diff src/a09.c @ 168:2937e970aac6

generate os9 module done
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Thu, 11 Apr 2019 13:59:28 +0900
parents fbb3301a2564
children 7dd634f92ffd
line wrap: on
line diff
--- a/src/a09.c	Wed Apr 10 22:48:30 2019 +0900
+++ b/src/a09.c	Thu Apr 11 13:59:28 2019 +0900
@@ -957,7 +957,8 @@
  if(lp) {
   if(lp->cat!=13&&lp->cat!=6) {
    if(lp->cat!=2||lp->value!=loccounter)
-     lp->value=loccounter; // seterror(8);
+     lp->value=loccounter; 
+     if (pass==1) seterror(8);
   } else {
    lp->cat=2;
    lp->value=loccounter;