diff a09.c @ 11:ce7323f9b937

fix
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Fri, 06 Jul 2018 18:31:38 +0900
parents 96a067cf4c4f
children 111e5defb8ab
line wrap: on
line diff
--- a/a09.c	Thu Jul 05 18:37:11 2018 +0900
+++ b/a09.c	Fri Jul 06 18:31:38 2018 +0900
@@ -451,8 +451,8 @@
  if(isalpha(c))return scanlabel();
  else if(isdigit(c))return scandecimal();
  else switch(c) {
-  case '.' :
-  case '*' : srcptr++;exprcat|=2;return loccounter;
+  case '*' : if(prevloc) { srcptr++;exprcat|=2;return prevloc-1; }
+  case '.' : srcptr++;exprcat|=2;return loccounter;
   case '$' : return scanhex();
   case '%' : return scanbin();
   case '&' : /* compatibility */