柳青《编译技术》Comp-Cha7.pptVIP

语法规则 过程调用语句∷=call标识符 对标识符查符号表。 gen (cal, lev-level, adr) 调用层—说明层 通过层差，找到 说明层，恢复过 程的执行环境。 转过程代码入口。 5、PL/O编译程序中对过程调用语句的翻译 相应的程序： if sym=callsym then begin getsym; if symident then error (14) else begin i:=position(id); if i=0 then error (11) else with table[i]do if kind=procedur then gen(cal, lev—level, adr) else error (15); getsym end end 6、例：对下面PL/O语方程序进行分析和翻译 const a=10; var b; procedure p; var c; begin read (c); b:=a+c end; begin call p; if b15 then write (b) end. 执行编译 先输入此源程序文件名； 然后执行： cx:=0; getsym; block(0,0,…) 执行过程block(lev, tx, …) 的过程体： dx:=3; Txo:=tx;0 table[Tx], adr:=cx gen(jmp, 0,0) Repeat 处理常量说明部分； 处理变量说明部分； 看此时符号表与code表状况 接着处理过程说明部分： 对过程名p填符号表； 对过程p的过程体进行分析和翻译， 即执行Block (lev+1, tx,……) 1 3 看符号表 看过程 看符号表 执行情况如下： dx:=3 tx0:=tx=3 table[tx].adr:=cx gen (jmp, 0, 0) repeat 处理说明部分 until not (sym in declbegsys); code [table [Tx0]. adr].a:=cx with table [tx0] do adr:=cx sige:=dx end; cx0:=cx=2 gen (int, 0, dx) statement (……); gen (opr, 0, 0) list code 结束调用Block (lev+1, tx, ……) ┆ unitl not (sym in declbegsys) 看此时符号表状况 看code表状况 0 0 sige adr vol/level kind name tx code表 cx f l a 0 Jmp 0 0 1 符号表 const a=10; var b; procedure p; var c; ┆ 4 c variable 1 3 3 p protedur 0 1 2