Mercurial > hg > Members > kono > os9 > sbc09

diff a09.c @ 25:c4e3abe97e2c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
rmb in os9 mode
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Tue, 10 Jul 2018 15:38:58 +0900
parents 7104ad38bed3
children 51a35f0347f6
line wrap: on
line diff
--- a/a09.c	Tue Jul 10 10:49:07 2018 +0900
+++ b/a09.c	Tue Jul 10 15:38:58 2018 +0900
@@ -316,7 +316,7 @@
     generating = 1;
     if (prevloc) {
        oldlc = loccounter  = prevloc-1 ;
-       prevloc = 0;
+       os9 = prevloc = 0;
     }
 }
 
@@ -1137,13 +1137,6 @@
    putword(scanexpr(0));   
    skipspace();
  }
- if(pass==2) {
-  outbuffer();
- }
- loccounter+=codeptr;
- codeptr=0;
- prevloc = loccounter+1;
- oldlc = loccounter = 0;
 }
 
 void os9end()
@@ -1271,7 +1264,6 @@
         if(!operand)suppress=2;
         break;                
  case 12: /* ORG */
-         if (os9 && !prevloc) prevloc = loccounter+1;
          operand=scanexpr(0);
          if(unknown)error|=4;
          if(generating&&pass==2&&!outmode&&!os9) {
@@ -1402,6 +1394,10 @@
  }
  if(error)report();
  loccounter+=codeptr;
+ if (os9 && prevloc==0 ) {
+     prevloc = loccounter+1;
+     oldlc = loccounter = 0;
+ }
 }
 
 void