d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

added rcsid

Browse source 
Recognize and process mes ms_gto
This commit is contained in:
sater 1984-05-17 13:54:01 +00:00
parent ac23d5c871
commit 7a8f9ed57c
1 changed files with 10 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
util/opt/getline.c
View file

@ -1,3 +1,7 @@
#ifndef NORCSID
static char rcsid[] = "$Header$";
#endif
#include <stdio.h> #include <stdio.h>
#include "param.h" #include "param.h"
#include "types.h" #include "types.h"
@ -468,9 +472,11 @@ int inpseudo(n) short n; {
error("This optimizer cannot handle wordsize>2"); error("This optimizer cannot handle wordsize>2");
#endif #endif
break; break;
case ms_gto:
curpro.gtoproc=1;
/* Treat as empty mes ms_reg */
case ms_reg: case ms_reg:
if (prodepth==0) tstinpro();
error("MES REG outside procedure");
regvar(lnp->l_a.la_arg->a_next); regvar(lnp->l_a.la_arg->a_next);
oldline(lnp); oldline(lnp);
lnp=newline(OPNO); lnp=newline(OPNO);
@ -497,6 +503,7 @@ int inpseudo(n) short n; {
error("bad second arg of PRO"); error("bad second arg of PRO");
} }
prodepth++; prodepth++;
curpro.gtoproc=0;
if (prodepth>1) { if (prodepth>1) {
register i; register i;
@ -545,5 +552,5 @@ int inpseudo(n) short n; {
tstinpro() { tstinpro() {
if (prodepth==0) if (prodepth==0)
error("Instruction or label not allowed outside procedure"); error("This is not allowed outside a procedure");
} }