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