编译原理课程设计报告PL0编译器的扩充.docxVIP

课程设计 课程名称一编译原理 题目名称_PL/O编译器的扩充 _ 学生学院 计算机学院 专业班级「计算机科学与技术13 (9) 学 号 学生姓名 指导教师 2016年1月2日 1. 已完成的内容： 扩充赋值运算：性和扫 扩充语句（Pascal的FOR语句） FOR变量〉:*表达式＞STEPv表达式＞ UNTIL＜表达式＞Dov语句〉 增加类型：①字符类型；②实数类型。 增加注释;多行注释由厂和*/包含，单行注释为〃 实验环境与工具 （1） 计算机及操作系统：PC机，Win dows7 （2） 程序设计语言：C++ （3 ）使用软件 Borla nd C++ Bui Ider 6.0 （4）教学型编译程序：PL/0 具体实现: 1. 扩充赋值运算：-和/二 1. 语法树 32277 0529083000 1475105271 7800035826表达式 00 表达式 1924 050112395*= (/=/-=,+=)00*= (/二严,+=)98107 5121285 变量 0 0 变量 修改GetSym()方法(写出修改的代码) else if(CH=*) { GetChO ; if (CH=‘ 二){ SYM二TIME SBECOMES;GetChO ; } el se SYM二TIMES; } els e if (CH二二/) { GetChO ； i f (CH=‘ =) { SYM=SLA SHBECOMES; GetCh ();} 修改STATEME NT ()方法(写出修改的代码) case IDENT: i二POSITIONED, TX); if (i=0) Error (11); else i f (TABLE[i ]. KIND==VA RIABLE |〔TABLE[i]. K IND二二FLOAT TYPE) { /^ASSIGNMENT TO NON-VA RIABLE^/ GetSymO ; if (S YM二二BECOME S| | SYM二二T IMESBECOME S | | SYM== SLASHBECOM ES | SYM=P LUSBECOMES | SYM=MIN USBECOMES) { RELOP二SYM; if(S YM!二BECOME S) { //若为除等于(或其他类似符号)则先把符号左 边的变量值放入栈中 GEN (LOD, L EV-TABLE[i ]. vp. LEVEL , TABLE [i]? vp. ADR); } GetSymO ; } el se Error (1 3); EXPRESSION(FSYS,LEV,TX); i f (RELOP==T IMESBECOME S) { GEN (OPR, 0,4); } else if (RELOP==SLASHBECOMES) { GEN (OPR, 0, 5); } else if (RELOP二二PLUSBECOMES) { GEN (OPR, 0, 2); } else if (RELOP二二MINUSBECOMES) { GEN (OPR, 0, 3); GEN(STO, LE V-TABLE[i]. vp. LEVEL, TABLE[i]. v p. ADR); 4. 运行测试(测试的PLO源码扩充单词的测试并贴运行结果截图) PL0源码： PROGRAM EXO 1; VAR A, B, C, D; BEGIN A:=16; A/二 2; WRITE (A); //结果为 8 B:二 4; B*二2; WRITE(B); //结果为 8 C:=6; C+二 2; WRITE(C); //结果为 8 D:二10; D-二 2 ; WRI TE(D); //结果为 8 END. 5.运行结果 5. 运行结果: 开始时在实现/二和*二操作时，*二的实现很顺利，而/二却一直没有得到 理想的结果，通过与同学的讨论得知代码中除号指令的解析中，其实为除 余操作，于是将％改为/,但是结果还是错误，经过调试发现是两个相除的 数在栈中的位置相反了，正确的状态应该是除数位于次栈顶，而被除数位 于栈顶。 解决：在调用EXPRESS IO N函数解析/二右边表达式前，先将其左边变 量的值放入栈中。 7. 扩充语句(Pascal的FOR语句) FOR变量〉:二v表达式〉STEPv表达式＞UNTIL＜表达式＞Dov语句〉 600 075704215 语法图 修改GetSym ()方法(写出修改的代码) 此处无修改，F OR、STEP、UN TTL及DO等关键字已放置关键字数组中， 通过该数组便可识别。 修改STATEMEN T ()方法(写出修改的代码) case F ORSYM: GetSym ()