编译原理实验报告（PL/0语言功能扩充）

else

if(SYM==PLUSBECOMES||SYM==MINUSBECOMES)

{

GEN(LOD,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);

if(SYM==PLUSBECOMES){

GetSym();

FACTOR(FSYS,LEV,TX);

GEN(OPR,0,2);

}

else

if (i!=0)

GEN(STO,LEV-TABLE[i].vp.LEVEL,TABLE[i].vp.ADR);

}

case FORSYM:

GetSym();

i=POSITION(ID,TX);