commit 6e8a261

zzo38  ·  2022-11-06 22:33:43 +0000 UTC
parent cd7ba6c
Fix a mistake in the assembler with the \@ command
1 files changed,  +1, -0
+1, -0
1@@ -412,6 +412,7 @@ parse(char *w, FILE *f)
2 		  case '@':
3 		    if(!ssptr) return error("Stack underflow",w);
4 		    i=p.ptr;
5+		    p.ptr=sstack[--ssptr];
6 		    if(!makelabel(w+2)) return error("Invalid label",w);
7 		    p.ptr=i;
8 		    break;