【正文】 int test(bool* s1, bool* s2, int n)。 int term (bool* fsys, int * ptx, int lev)。 begin 入口： test(facbegsys,fsys,24)。 對調用 expression(fsys)。 代碼生成 代碼生成是由過程 GEN完成。 condition。 code[cx1].a:=cx If c then s int main() { ...... if(1==block(0, 0, nxtlev)) { ...} ...... interpret()。 gen(jmp,0,0)。dx)。 dx: 計算每個變量在運行棧中相對本 過程 基地址 的偏移量 ，放在 table表 中的 adr域， 生成 目標代碼 時再 放在 code中的 a域 。 //過程 占的空間 填寫在 table中 cx0=cx。 ?OPR 0 0 在 過程 目標程序的 出口處 ， 釋放數(shù)據(jù)段 （退棧）， 恢復調用 該過程 前 正在運行的過程 的數(shù)據(jù)段 基址寄存器 B和 棧頂寄存器 T的值，并將 返回地址 送 到指令地址寄存器 P中。 主程序的 SL， DL， RA賦初值 s[1]:=0。 p:=p+1。 填寫 靜態(tài)鏈 s[t+2]=b。 b1:=b。 } 167。 ?棧符號表：函數(shù)或分程序的嵌套結構，使得程序中出現(xiàn)的符號的處理（內層可引用外層符號、同名變量內層優(yōu)先）與棧的操作相一致。 x: integer。 procedure exchange (i, j: integer)。 procedure quicksort (m, n:integer)。 begin ... a ...exchange (i, j)。 var step。 step:=step+1。 cal move(3, a, b, c)。 上機調試觀察調用執(zhí)行過程，畫出調用分解示意圖 move(2, a, c, b)。 ac 。 move(1, c, a, b)。 end. 作業(yè)（ P30）： 5 A B C 給出上面兩個盤子已經(jīng)移到 B上，而 A上只剩一個盤子時數(shù)據(jù)棧的狀態(tài)。 end end。 begin if n0 //遞歸總是有條件的 begin cal move(n1, from, to, buf)。 begin ... end {quicksort}。 function partition (y,z: integer): integer。 a[i]:=a[j]。 var i: integer。 符號表的操作： ? 創(chuàng)建符號表：在編譯開始時或進入一個分程序 ? 插入表項：定義時（包括變量和形參定義） ? 查詢表項：可執(zhí)行語句使用時 ? 修改表項：在獲得新的語義值信息時進行 ? 刪除一個或一組無用的項 ? 釋放符號表的空間：在編譯結束前或退出一個分程序 符號表的生存期 ?對多遍掃描的編譯程序，不同遍所用的符號表也往往不同。 ?符號表中，包括名字、種類、類型、層次、相對地址、存儲類別等名字的屬性信息，以及動態(tài)數(shù)組的內情向量、記錄結構型的成員信息、函數(shù)及過程的形參等結構信息。 l=l1。 填寫 返回地址 b=t+1。 p=s[t+3]。 s[3]=0。 b:=1。 //生成 過程 入口指令 類 p－ code解釋器 ?目標代碼存放在數(shù)組 CODE中（ 程序地址寄存器 p） ?解釋程序定義一個一維整型數(shù)組 S作為 運行棧 ?棧頂寄存器 （指針） t， 基址寄存器 （指針） b， 指令寄存器 i（當前正在解釋的目標指令） 目標代碼的解釋執(zhí)行 幾條 特殊指令 在 code中的 位置 和 功能 ?INT 0 A 在 過程 目標程序的 入口處 ， 開辟 A個單元的數(shù)據(jù)段。 //過程入口地址填寫在 code中 table[tx0].adr=cx。實際上目標代碼的順序是內層過程的在前邊，主程序的目標代碼在最后。 if(sym==ident) {enter(procedur, amp。 tx0=tx。 cx1:= cx。例如 gen(opr,0,16)。 所以在 write語句中 調用 expression時 后跟符為： expression([rparen,ma]+fsys)。 end end。 為 symble的元素數(shù) 32 后跟符號集 TEST SYM在 S1中? 打印出錯編號 n S1:=S1+S2 SYM在 S1中? GETSYM 返回 Y Y N N TEST測試過程流程圖 因子的處理過程 procedure factor(fsys:symset)。 int statement(bool* fsys, int * ptx, int lev)。 statbegsys: [beginsym,callsym,ifsym,whilesym,readsym,writesym]。 ) r op e nd t he n do 項 i dent n umbe r ( . 。若不屬于，則 濾去 后跟 符號和 開始 符號 集合外 的所有符號。 PL/0編譯程序對語法錯誤的處理： (1)對于 易于校正 的錯誤，如丟了逗號，分號等，指出出錯位置， 加以校正 ，繼續(xù)進行分析。 } /* 標識符未聲明 */ else {switch (table[i].kind) {case constant: /* 名字為常量 */ break。 /* 賦值語句格式錯誤 */ i = 0。 return i。 ?當 語法語義正確時 ，就 生成 相應語句功能的 目標代碼 int position(char* id) {int i。 break。 table[(*ptx)].adr = (*pdx)。 /* 數(shù)越界 */ num = 0。 } 過程 ENTER的實現(xiàn) /* 在名字表中加入一項 * * k: 名字種類 const,var or procedure * ptx: 名字表尾指針 * lev: 名字所在的層次 ,以后所有的 lev都是這樣 * pdx: 當前應分配變量的相對地址，分配后增加 1 */ void enter(enum object k, int* ptx,int lev, int* pdx) {(*ptx)++。tx 變量說明處理 int vardeclaration(int* ptx,int lev,int* pdx) {if (sym == ident) {enter(variable, ptx, lev, pdx)。 } if (sym == semicolon) {getsymdo。 while (sym == ma) {getsymdo。 過程 P2在code的 入口 (0) jmp 0 0 CX (1) jmp 0 0 (2) jmp 0 0 …… (k) jmp 0 0 名字 類 值 層次 地址 大小 變量說明部分 : :=var標識符 {， 標識符 }； if(sym==varsym)/* 收到變量聲明符號，開始處理變量聲明 */ {getsymdo。 var c。//常量 無 層次 var a1,a2,a3。 enum object kind。 ?標識符的屬性 :種類，所在 層次 ,值 和分配的 相對位置 。 if (sym == rparen) getsymdo。 } 〈 因子 〉 ∷= 〈 標識符 〉 |〈 無符號整數(shù) 〉 |