diff a09.c @ 24:7104ad38bed3

fix
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Tue, 10 Jul 2018 10:49:07 +0900
parents bb6a2a9f59f1
children c4e3abe97e2c
line wrap: on
line diff
--- a/a09.c	Mon Jul 09 14:54:43 2018 +0900
+++ b/a09.c	Tue Jul 10 10:49:07 2018 +0900
@@ -1137,6 +1137,13 @@
    putword(scanexpr(0));   
    skipspace();
  }
+ if(pass==2) {
+  outbuffer();
+ }
+ loccounter+=codeptr;
+ codeptr=0;
+ prevloc = loccounter+1;
+ oldlc = loccounter = 0;
 }
 
 void os9end()
@@ -1161,7 +1168,6 @@
  case 0:/* RMB */
         //   in OS9 mode, this generates no data
         //   loccounter will be reset after any code to the current code generation
-        if (os9 && !prevloc) prevloc = loccounter+1;
         setlabel(lp);
         operand=scanexpr(0);
         if(unknown)error|=4;