Dx = 3;//dx 默认为 3 因为动态链 静态链 返回地址 分别需要三个空间
levelReg[0].tx0 = tx = 0;
table[0].adr = cx = 0;
gen(jmp, 0, 1); {运行完之后 cx=1}
//主函数的变量声明
enter(a);// tx = 1; a 放在 dx = 3 的位置
enter(b);//tx = 2; b 放在 dx = 4 的位置 size = 5;
enter(p);//tx = 3; table[3].name = p; 保存到 lev = 0;中
levelReg[0].dx0 = 4;//保存到目前为止需要为 lev = 0 开辟的空间为 5
lev--;//lev = 0;
dx = levelReg[lev].dx0;//dx = levelReg[0].dx0 = 5;
enter(e);//tx = 6; 放在 dx = 5 的位置
enter(f);//tx = 7; 放在 dx = 6 的位置 dx = size = 7;
//主函数的回填阶段
code[table[levelReg[lev].tx0].adr].a = cx;// code[0].a = 8; jmp 0, 8;
table[levelReg[lev].tx0].adr = cx;//table[0].adr = 8;
table[levelReg[lev].tx0].size=dx;//table[0].size = 7;
levelReg[lev].cx0 = cx;
gen(ini,0,dx);//gen(ini, 0, 7);
//begin-end
gen(cal, lev - table[i].level, table[i].adr);//call p; gen(cal, 0, 2);
gen(opr,0,0);
lev++; //lev = 1;
dx = 3;
levelReg[1].tx0 = tx = 3; //保存子函数名在 table 中的下标为实现后面的回填
table[tx].adr = cx = 1; //tx = 3 在进入子函数的之前就锁定它在代码区的位置
gen(jmp, 0, 1); {运行完之后 cx=2}
//变量声明
enter(c);//tx = 4; c 放在 dx = 3 的位置
enter(d);//tx = 5; d 放在 dx = 4 的位置 dx = size = 5;
//回填阶段
code[table[levelReg[1].tx0].adr].a = cx;//code[1].a = 2;jmp 0, 2;
table[levelReg[1].tx0].adr = cx;//table[3].adr = 2 回填 子函数名所在 table 所在的代码段地址
table[levelReg[lev].tx0].size = dx;//为该子函数需要分配空间的大小
levelReg[lev].cx0 = cx;//levelReg[1].cx0 = 2;
gen(ini,0,dx);//code[2] = {int 0 5} 运行完 cx = 3;
//begin-end
gen(lit, 0, 100);//将 100 取到栈顶 cx = 4
gen(sto, lev - table[i].level, table[i].adr);//gen(sto, 0, 3); c = 100; 执行完 cx = 5;
gen(lod, lev - table[i].level, table[i].adr);//gen(lod, 0, 3);将 c 的值取到栈顶 执行完 cx = 6;
gen(sto, lev - table[i].level, table[i].adr);//gen(sto, 1, 3)将栈顶的值赋给 a 执行完 cx = 7;
gen(opr,0,0);//过程调用结束后 返回调用点 并退栈 执行完 cx = 8;
Var a, b;
procedure p;
Var c, d;
Var a, b; (1) jmp 0, 8;
procedure p; (2) jmp 0, 2
var c, d; (3)ini 0, 5
begin (4) lit 0, 100
c = 100; (5)sto 0, 3
a = c; (6) lod 0, 3
end; (7) sto 1, 3
var e, f; (8) opr 0, 0
begin (9) ini 0, 7
cal p; (10)cal 0, 2
end. (11)opr 0, 0
资源评论
屎宝宝2013-12-03可惜没什么用
数学熊猫2014-04-12资源不是很好，用处不大。。。
cjdevil1232011-11-07没有提供大量代码 很遗憾。。
