1、課 程 設(shè) 計(jì) 班級(jí)：21301學(xué)號(hào)：1361080108姓名：馬瑞澤百度一.課程設(shè)計(jì)目的在分析理解一個(gè)教學(xué)型編譯程序（如pl/0）的基礎(chǔ)上，對(duì)其詞法分析程序、語(yǔ)法分析程序和語(yǔ)義處理程序進(jìn)行部分修改擴(kuò)充。達(dá)到進(jìn)一步了解程序編譯過程的基本原理和基本實(shí)現(xiàn)方法的目的。二課程設(shè)計(jì)要求1. 基本內(nèi)容（1）擴(kuò)充賦值運(yùn)算：+= 和 -=（2）擴(kuò)充語(yǔ)句（pascal的for語(yǔ)句）:for := to do for := downto do 其中，語(yǔ)句的循環(huán)變量的步長(zhǎng)為2，語(yǔ)句的循環(huán)變量的步長(zhǎng)為-2。2. 選做內(nèi)容（1）增加運(yùn)算：+ 和 -。（2）增加類型： 字符類型； 實(shí)數(shù)類型。（3）擴(kuò)充函數(shù)： 有返回值和返

2、回語(yǔ)句； 有參數(shù)函數(shù)。（4）增加一維數(shù)組類型（可增加指令）。（5）其他典型語(yǔ)言設(shè)施。3.本人在課程設(shè)計(jì)中已實(shí)現(xiàn)的功能（1）增加單詞：保留字 else，for，to，downto, repeat, until, return運(yùn)算符 +=，-=，+，-（2）修改單詞：不等號(hào)# 改為 （3）增加條件語(yǔ)句的else子句（4）擴(kuò)充賦值運(yùn)算：+= 和 -=（5）擴(kuò)充語(yǔ)句 for := to do for := downto do （6）增加運(yùn)算：+ 和 -（包括前后+、-運(yùn)算）（7）增加一維數(shù)組類型（8） 其他典型語(yǔ)言設(shè)施：repeat 語(yǔ)句 until 語(yǔ)句三課程設(shè)計(jì)環(huán)境與工具（1）計(jì)算機(jī)及操作系統(tǒng)：p

3、c機(jī)，win7（2）實(shí)現(xiàn)工具：vc+ 6.0, c語(yǔ)言（3） 教學(xué)型編譯程序：pl/0 四結(jié)構(gòu)設(shè)計(jì)說明1) pl/0編譯程序的結(jié)構(gòu)圖2) pl/0編譯程序的過程或函數(shù)的功能表過程或函數(shù)名簡(jiǎn)要功能說明pl0主程序error出錯(cuò)處理，打印出錯(cuò)位置和錯(cuò)誤編碼getsym詞法分析，讀取一個(gè)單詞getch漏掉空格，讀取一個(gè)字符gen生成目標(biāo)代碼，并送入目標(biāo)程序區(qū)test測(cè)試當(dāng)前單詞符號(hào)是否合法block分程序分析處理過程enter登錄名字表position(函數(shù))查找標(biāo)識(shí)符在名字表中的位置constdeclaration常量定義處理vardeclaration變量說明處理listode列出目標(biāo)代碼清單s

4、tatement語(yǔ)句處理expression表達(dá)式處理term項(xiàng)處理factor因子處理condition條件處理interpret對(duì)目標(biāo)代碼的解釋執(zhí)行程序base(函數(shù))通過靜態(tài)鏈求出數(shù)據(jù)區(qū)的基地址3) pl/0編譯程序的總體流程圖調(diào)用解釋過程interpret解釋執(zhí)行目標(biāo)執(zhí)行目標(biāo)程序 啟動(dòng)置初值 4) 詞法分析詞法分析是編譯的第一個(gè)階段，它的主要任務(wù)是從左向右逐個(gè)字符地對(duì)源程序進(jìn)行掃描，產(chǎn)生一個(gè)個(gè)單詞序列用于語(yǔ)法分析。pl/0詞法分析程序getsym的功能是為語(yǔ)法分析提供單詞用的，是語(yǔ)法分析的基礎(chǔ)，把輸入的字符串形式的源程序分割成一個(gè)個(gè)單詞符號(hào)。經(jīng)過詞法分析程序分析出來的單詞，對(duì)語(yǔ)言固有的

5、單詞只給出類別存放在全程變量sym中，而對(duì)用戶定義的單詞（標(biāo)識(shí)符或常數(shù)）既給出類別又給值，其類別放在sym中，值放在全程變量id或全程變量num中，全部單詞種類由編譯程序定義的純量類型symbol給出，稱為語(yǔ)法詞匯表。詞法分析器的分析過程：調(diào)用getsym時(shí)，它通過getch過程從源程序中獲得一個(gè)字符。如果這個(gè)字符是字母，則繼續(xù)獲取字符或數(shù)字，最終可以拼成一個(gè)單詞，查保留字表，如果查到為保留字，則把sym變量賦成相應(yīng)的保留字類型值；如果沒有查到，則這個(gè)單詞應(yīng)是一個(gè)用戶自定義的標(biāo)識(shí)符（可能是變量名、常量名或是過程的名字），把sym置為ident，把這個(gè)單詞存入id變量。查保留字表時(shí)使用了二分法查

6、找以提高效率。如果getch獲得的字符是數(shù)字，則繼續(xù)用getch獲取數(shù)字，并把它們拼成一個(gè)整數(shù)或?qū)崝?shù)，然后把sym置為 integer，并把拼成的數(shù)值放入num變量。如果識(shí)別出其它合法的符號(hào)（比如：賦值號(hào)、大于號(hào)、小于等于號(hào)等），則把sym則成相應(yīng)的類型。如果遇到不合法的字符，把sym置成nul。詞法分析程序getsym將完成下列任務(wù)：（1）濾空格 （2）識(shí)別保留字 （3）識(shí)別標(biāo)識(shí)符（4）拼數(shù) （5）拼復(fù)合詞 （6）輸出源程序程序分程序語(yǔ)句條件表達(dá)式項(xiàng)因子pl/0 語(yǔ)法調(diào)用關(guān)系圖5) 語(yǔ)法分析pl/0編譯程序的語(yǔ)法分析采用了自頂向下的遞歸的子程序法。語(yǔ)法分析同時(shí)也根據(jù)程序的語(yǔ)義生成相應(yīng)三元代碼

7、，并提供了出錯(cuò)處理的機(jī)制。語(yǔ)法分析主要由分程序分析過程（block）、常量定義分析過程（constdeclaration）、變量定義分析過程（vardeclaration）、語(yǔ)句分析過程（statement）、表達(dá)式處理過程（expression）、項(xiàng)處理過程（term）、因子處理過程（factor）和條件處理過程（condition）構(gòu)成。這些過程在結(jié)構(gòu)上構(gòu)成一個(gè)嵌套的層次結(jié)構(gòu)。除此之外，還有出錯(cuò)報(bào)告過程（error）、代碼生成過程（gen）、測(cè)試單詞合法性及出錯(cuò)恢復(fù)過程（test）、登錄名字表過程（enter）、查詢名字表函數(shù)（position）以及列出類 pcode代碼過程（listco

8、de）作過語(yǔ)法分析的輔助過程。由pl/0的語(yǔ)法圖可知：一個(gè)完整的pl/0程序是由分程序和句號(hào)構(gòu)成的。因此，本編譯程序在運(yùn)行的時(shí)候，通過主程序中調(diào)用分程序處理過程block來分析分程序部分（分程序分析過程中還可能會(huì)遞歸調(diào)用block過程），然后，判斷最后讀入的符號(hào)是否為句號(hào)。如果是句號(hào)且分程序分析中未出錯(cuò)，則是一個(gè)合法的pl/0程序，可以運(yùn)行生成的代碼，否則就說明源pl/0程序是不合法的，輸出出錯(cuò)提示即可。6) 語(yǔ)義分析pl/0 的語(yǔ)義分析主要進(jìn)行以下檢查：（1） 是否存在標(biāo)識(shí)符先引用未聲明的情況；（2） 是否存在己聲明的標(biāo)識(shí)符的錯(cuò)誤引用；（3） 是否存在一般標(biāo)識(shí)符的多重聲明。7) 中間代碼生成

9、目標(biāo)代碼類pcode是一種假想棧式計(jì)算機(jī)的匯編語(yǔ)言。自己添加覆蓋了opr 0 14棧頂值輸出至屏幕（字符型）opr 0 15棧頂值輸出至屏幕（整數(shù)型）opr 0 16棧頂值輸出至屏幕（實(shí)數(shù)型）opr 0 17屏幕輸出換行opr 0 18從命令行讀入一個(gè)字符輸入置于棧頂opr 0 19從命令行讀入一個(gè)整數(shù)輸入置于棧頂opr 0 20從命令行讀入一個(gè)實(shí)數(shù)輸入置于棧頂8) 語(yǔ)法錯(cuò)誤處理pl/0編譯程序?qū)φZ(yǔ)法錯(cuò)誤的處理采用兩種辦法：（1）對(duì)于一些易于校正的錯(cuò)誤，如丟了逗號(hào)、分號(hào)等，指出出錯(cuò)的位置，加以校正，繼續(xù)進(jìn)行分析。 （2）對(duì)于難于校正的錯(cuò)誤，給出錯(cuò)誤的位置與性質(zhì)，跳過后面一些單詞，直到下一個(gè)可以

10、進(jìn)行正常語(yǔ)法分析的語(yǔ)法單位。錯(cuò)誤類型如下0 過程開始部分說明不正確1 常數(shù)說明中=寫成:=2 常數(shù)說明中=后應(yīng)為整數(shù)或?qū)崝?shù)或字符3 常數(shù)說明中的標(biāo)識(shí)符后應(yīng)是=4 const, var, procedure后應(yīng)為標(biāo)識(shí)符5 漏掉了,或;6 過程說明后的符號(hào)不正確(應(yīng)該是語(yǔ)句開始符,或過程定義符)7 應(yīng)是語(yǔ)句開始符8 程序體內(nèi)語(yǔ)句部分的后跟符不正確9 程序結(jié)尾丟了句號(hào).10 語(yǔ)句間漏了;11 標(biāo)識(shí)符未說明12 賦值語(yǔ)句中,賦值號(hào)左部標(biāo)識(shí)符屬性應(yīng)是變量13 變量后不能是此符號(hào)14 call后應(yīng)為標(biāo)識(shí)符15 call后標(biāo)識(shí)符屬性應(yīng)為過程16 條件語(yǔ)句中丟了then17 丟了end或;18 while型循

11、環(huán)語(yǔ)句丟了do19 語(yǔ)句后的符號(hào)不正確20 應(yīng)為關(guān)系運(yùn)算符21 表達(dá)式內(nèi)標(biāo)識(shí)符屬性不能是過程22 表達(dá)式中漏掉右括號(hào)(23 因子后的非法符號(hào)24 表達(dá)式的開始符不能是此符號(hào)31 數(shù)越界補(bǔ)充說明了：32 read或write語(yǔ)句括號(hào)中的標(biāo)識(shí)符不是變量33 read或write語(yǔ)句缺少右括號(hào))34 read或write語(yǔ)句缺少左括號(hào)(35 read或write括號(hào)里應(yīng)為變量自己增加了：45 +或-后面應(yīng)為變量46 repeat缺少until47 for語(yǔ)句錯(cuò)誤48 for語(yǔ)句缺少do49 類型值不匹配50 類型無法轉(zhuǎn)換51 只有整數(shù)能+或-52 類型不正確testsym在s1中?打印出錯(cuò)編號(hào)ns1

12、:=s1+s2sym在s1中?getsym返回yynntest測(cè)試過程流程圖五 設(shè)計(jì)過程(一) 實(shí)驗(yàn)內(nèi)容1.增加單詞：保留字 else，for, to, downto, repeat，until，return運(yùn)算符 +=(plusbk), -=(minusbk), +(inc), - (dec)首先要擴(kuò)展symbol，在此基礎(chǔ)上再進(jìn)行其它細(xì)節(jié)的修改。要添加的symbol為：typedef enum nul, ident, number, plus, minus, times, slash, oddsym, eql, neq, lss, leq, gtr, geq, lparen, rparen

13、, comma, semicolon, period, becomes, beginsym, endsym, ifsym, thensym, whilesym, writesym, readsym, dosym, callsym, constsym, varsym, procsym, progsym, elsesym, forsym, tosym, downtosym, repeatsym, untilsym, returnsym, plusbk, minusbk, inc, dec symbol;char *symout = nul, ident, number, plus, minus,

14、times, slash, oddsym, eql, neq, lss, leq, gtr, geq, lparen, rparen, comma, semicolon, period, becomes, beginsym, endsym, ifsym, thensym, whilesym, writesym, readsym, dosym, callsym, constsym, varsym, procsym, progsym, else,for, to, downto, repeat, until, return, plusbk, minusbk, inc” dec ;其中黑斜體為新加入的

15、symbol。再將else,for，to，downto，repeat, until, return, plusbk, minusbk, inc,dec關(guān)鍵字加到kword和將相應(yīng)的sym加到wsym，按字母順序排列。以及修改neq 后如下void _fastcall tform1:buttonrunclick(tobject *sender) for (ch= ; ch=; ch+) ssymch=nul; strcpy(kword 1,begin); strcpy(kword 2,call); strcpy(kword 3,const); strcpy(kword 4,dec); strcp

16、y(kword 5,do); strcpy(kword 6, dowhile); strcpy(kword 7, downto ); strcpy(kword 8,else); strcpy(kword 9,end); strcpy(kword 10,for); strcpy(kword 11,if); strcpy(kword12,inc); strcpy(kword13,minusbk); strcpy(kword14,odd); strcpy(kword15,plusbk); strcpy(kword16,procedure); strcpy(kword17,program); strc

17、py(kword18,read); strcpy(kword19,repeat); strcpy(kword20,return); strcpy(kword21,then); strcpy(kword22,to); strcpy(kword23,var); strcpy(kword24,until);strcpy(kword25,while); strcpy(kword26,write); wsym 1=beginsym; wsym 2=callsym; wsym 3=constsym; wsym 4=dec; wsym 5=dosym; wsym 6=dowhilesym; wsym 7=d

18、owntosyms; wsym 8=elsesym; wsym 9=endsym; wsym 10=forsym; wsym 11=ifsym; wsym12=incsym; wsym13=minusbk; wsym14=oddsym; wsym15=plusbk; wsym16=procsym; wsym17=progsym; wsym18=readsym; wsym19=repeatsym; wsym20=returnsym; wsym21=thensym; wsym 22=tosym;wsym23=varsym; wsym24=untilsym; wsym25=whilesym; wsy

19、m26=writesym; ssym+=plus; ssym-=minus; ssym*=times; ssym/=slash; ssym(=lparen; ssym)=rparen; ssym=eql; ssym,=comma; ssym.=period; ssym;=semicolon;因?yàn)殛P(guān)鍵字增加到了26個(gè)，所以令const norw = 26;symbol由原來的33個(gè)值擴(kuò)展為目前的44個(gè)值，symout也由原來的33個(gè)元素?cái)U(kuò)展為目前的44個(gè)元素.我用個(gè)symmax來記錄symbol值的個(gè)數(shù)， 所以，除了error函數(shù)中可能出現(xiàn)的作為參數(shù)的“33”不被替換為“44”外，其余的“33”

20、均用“symmax”來替換。symbol擴(kuò)展完畢。2. 修改單詞：不等號(hào)# 改為 只要修改getsym（）函數(shù)。當(dāng)編譯器檢測(cè)到當(dāng)前字符為“”時(shí)，接著檢測(cè)下一個(gè)字符，如果是“”，則使sym=neq。代碼修改如下：if (ch=) sym=neq; getch (); /增加為不等于號(hào)；else sym=lss; 3. 增加條件語(yǔ)句的else子句 該條件語(yǔ)法描述圖如下：語(yǔ)句只要在statement修改如下代碼：case ifsym:getsym();condition(symsetunion(symsetnew(thensym,dosym),fsys),lev,tx);if (sym=thensy

21、m) getsym();else error(16);cx1=cx; gen(jpc,0,0);statement(symsetunion(symsetnew(elsesym), fsys), lev, tx); if(sym != elsesym) codecx1.a=cx; /如果程序中沒有else語(yǔ)句，執(zhí)行jpc時(shí)跳到此地址 else /添加else語(yǔ)句 getsym(); cx2=cx; gen(jmp,0,0); /跳過else語(yǔ)句 codecx1.a = cx; /如果程序中有else語(yǔ)句，執(zhí)行jpc時(shí)跳到此地址 statement(fsys,lev,tx); codecx2.a

22、= cx; /執(zhí)行完then語(yǔ)句后跳出 break;else子句擴(kuò)充完畢。(二) 課程設(shè)計(jì)內(nèi)容1. 增加運(yùn)算符 +=，-=，+，-a) 詞法分析1) 在getsym（）中完成inc（）、plusbk（）的詞法分析，代碼修改如下：else if(ch = +) getch(); if(ch = =) /增加+= sym = plusbk; getch(); else if(ch = +) /增加+ sym = inc; getch(); else sym = plus; 2) 在getsym（）中完成dec（）、minusbk（）的詞法分析，代碼修改如下：else if(ch = -) getc

23、h(); if(ch = =) /增加-= sym = minusbk; getch(); else if(ch = -) /增加- sym = dec; getch(); else sym = minus; b）擴(kuò)充 后+ 和 后- 操作存在inc和dec操作的語(yǔ)法圖有如下兩個(gè)：根據(jù)以上語(yǔ)法圖，我們只要對(duì)語(yǔ)句處理程序和因子處理程序進(jìn)行修改添加，即可實(shí)現(xiàn)增加 后inc 和 后dec 操作，首先對(duì)語(yǔ)句處理程序statement進(jìn)行如下修改：case ident:i=position (id,tx);if (i=0) error(11);else if (tablei.kind!=variable

24、) /*assignment to non-variable*/error(12); i=0; getsym();if (sym=becomes) getsym (); expression (fsys, lev, tx);if (i!=0) gen(sto,lev-tablei.vp.level,tablei.vp.adr); else if (sym=inc) /語(yǔ)句中的+運(yùn)算 if (i!=0) gen(lod,lev-tablei.vp.level,tablei.vp.adr); gen(lit,0,1); gen(opr,0,2); if (i!=0) gen(sto,lev-tab

25、lei.vp.level,tablei.vp.adr); getsym(); else if (sym=dec) /語(yǔ)句中的-運(yùn)算 if (i!=0) gen(lod,lev-tablei.vp.level,tablei.vp.adr); gen (lit,0,1); gen (opr,0,3); if (i!=0) gen(sto,lev-tablei.vp.level,tablei.vp.adr); getsym (); 在接受到sym=ident后，如果sym為inc，則主要執(zhí)行這四條指令：gen(lod,lev-tablei.vp.level,tablei.vp.adr) 將ident

26、的值放到棧頂，gen(lit,0,1); 將常數(shù)1放到棧頂，gen(opr,0,2) 次棧頂加棧頂，gen(sto,lev-tablei.vp.level,tablei.vp.adr);將棧頂內(nèi)容保存到ident中。這樣就完成了語(yǔ)句中的+運(yùn)算。如果sym為dec，則主要執(zhí)行這四條指令：gen(lod,lev-tablei.vp.level,tablei.vp.adr) 將ident的值放到棧頂，gen(lit,0,1); 將常數(shù)1放到棧頂，gen(opr,0,3) 次棧頂減棧頂，gen(sto,lev-tablei.vp.level,tablei.vp.adr);將棧頂內(nèi)容保存到ident中。

27、這樣就完成了語(yǔ)句中的-運(yùn)算。其次，再對(duì)因子處理程序factor修改如下：if (sym=ident) i=position(id,tx); if (i=0) error(11); elseswitch (tablei.kind) case constant: gen(lit,0,tablei.val);getsym(); break; case variable: gen(lod,lev-tablei.vp.level,tablei.vp.adr); getsym(); if(sym=inc|sym=dec) /因子中的+和-運(yùn)算 gen(lit,0,1); if(sym=inc) gen(o

28、pr,0,2);/如果為inc，則加1 else gen(opr,0,3);/否則減一 gen(sto,lev-tablei.vp.level,tablei.vp.adr);/將棧頂送入變量單元 gen(lod,lev-tablei.vp.level,tablei.vp.adr); /將變量送入棧頂 getsym(); break; case procedur: error(21); break;這樣，對(duì) 后inc 和 后dec操作就擴(kuò)充完成c）擴(kuò)充 前+ 和 前- 操作存在 前inc 和 前dec 操作的語(yǔ)法圖有如下兩個(gè)：語(yǔ)句+indentindent首先將 statbegsysinc=1;

29、 statbegsysdec=1; facbegsysinc =1; facbegsysdec =1;其次根據(jù)以上語(yǔ)法圖，我們只要對(duì)語(yǔ)句處理程序和因子處理程序進(jìn)行修改添加，即可實(shí)現(xiàn)增加 前inc 和 前dec 操作，首先對(duì)語(yǔ)句處理程序statement進(jìn)行如下修改：case inc: /前+ getsym(); if (sym = ident) i=position(id,tx); if (i=0) error(11); else if (tablei.kind!=variable) /*assignment to non-variable*/ error(12); i=0; if (i!=0

30、) gen(lod,lev-tablei.vp.level,tablei.vp.adr); gen(lit,0,1); gen(opr,0,2); if (i!=0) gen(sto,lev-tablei.vp.level,tablei.vp.adr); getsym(); else error(45); break; case dec: /前- getsym(); if (sym = ident) i=position(id,tx); if (i=0) error(11); else if (tablei.kind!=variable) /*assignment to non-variabl

31、e*/ error(12); i=0; if (i!=0) gen(lod,lev-tablei.vp.level,tablei.vp.adr); gen (lit,0,1); gen (opr,0,3); if (i!=0) gen(sto,lev-tablei.vp.level,tablei.vp.adr); getsym (); else error(45); break;再次，再對(duì)因子處理程序factor修改如下：因子+indentindentelse if(sym = inc) /前+ getsym(); if (sym = ident) i=position(id,tx); if

32、(i=0) error(11); else if (tablei.kind!=variable) /*assignment to non-variable*/ error(12); i=0; if (i!=0) gen(lod,lev-tablei.vp.level,tablei.vp.adr); gen(lit,0,1); gen(opr,0,2); if (i!=0) gen(sto,lev-tablei.vp.level,tablei.vp.adr); /將棧頂送入變量單元 gen(lod,lev-tablei.vp.level,tablei.vp.adr); /將變量送入棧頂 gets

33、ym(); else error(45); else if(sym = dec) /前- getsym(); if (sym = ident) i=position(id,tx); if (i=0) error(11); else if (tablei.kind!=variable) /*assignment to non-variable*/ error(12); i=0; if (i!=0) gen(lod,lev-tablei.vp.level,tablei.vp.adr); gen (lit,0,1); gen (opr,0,3); if (i!=0) gen(sto,lev-tabl

34、ei.vp.level,tablei.vp.adr); /將棧頂送入變量單元 gen(lod,lev-tablei.vp.level,tablei.vp.adr); /將變量送入棧頂 getsym (); else error(45); d）擴(kuò)充 += 和 -= 操作這兩個(gè)操作都是一種對(duì)變量進(jìn)行賦值的形式，其合法的語(yǔ)句形式的語(yǔ)法圖如下所示：根據(jù)圖3，在語(yǔ)句處理statement中，在已經(jīng)處理inc和dec的基礎(chǔ)上，添加對(duì)plusbk（）運(yùn)算和minusbk（）運(yùn)算的擴(kuò)充，相關(guān)代碼添加如下：else if (sym=plusbk) /增加運(yùn)算符+= if (i!=0) gen(lod,lev-t

35、ablei.vp.level,tablei.vp.adr); getsym(); expression(fsys,lev,tx); gen(opr,0,2); if (i!=0) gen(sto,lev-tablei.vp.level,tablei.vp.adr); else if (sym=minusbk) /增加運(yùn)算符-= if (i!=0) gen(lod,lev-tablei.vp.level,tablei.vp.adr); getsym(); expression(fsys,lev,tx); gen(opr,0,3); if (i!=0) gen(sto,lev-tablei.vp.

36、level,tablei.vp.adr); 這樣就完成了對(duì)運(yùn)算和運(yùn)算的添加。2.增加pascal的for語(yǔ)句:a）格式如下：for := to(或downto) do b）添加語(yǔ)句for 語(yǔ)句的語(yǔ)句語(yǔ)法圖如下：首先，詞法分析部分增加關(guān)鍵字在symbol里增加forsym, tosym, downtosym，對(duì)應(yīng)symmax=44 ; norw = 25;初始化中strcpy(kword10,for); wsym 10=ifsym;strcpy(kword22,to); wsym22=tosym;strcpy(kword 7,downto); wsym 7=downtosym;其次，修改stat

37、ement，代碼如下： case forsym: /添加for語(yǔ)句。 getsym(); if(sym != ident) error(47); else i=position(id,tx);if(i = 0) error(11);else if (tablei.kind!=variable) /*assignment to non-variable*/error(12); i=0; getsym(); if(sym = becomes) getsym();else error(13);expression(symsetunion(symsetnew(tosym,downtosym),fsys

38、),lev,tx);if(i != 0) gen(sto,lev-tablei.vp.level,tablei.vp.adr); if(sym = tosym) /如果是to語(yǔ)句 cx1=cx;/記錄當(dāng)前地址入口 gen(lod,lev-tablei.vp.level,tablei.vp.adr); /取ident變量值到棧頂 getsym(); expression(symsetunion(symsetnew(dosym),fsys),lev,tx); /取表達(dá)式值到棧頂 gen(opr,0,13);/判斷變量是否小于或等于棧頂 cx2=cx;gen(jpc,0,0); gen(lod,lev-tablei.vp.level,tablei.vp.adr); gen(lit,0,1); gen(opr,0,2); gen(sto,lev-tablei.vp.level,tablei.vp.adr);/變量加一 if(sym =