test4.ast

一个编译器修改的例子

var p: int;

record foo is
var a: int;
    b: int;
end

record bar is
var a: int;
    b: foo;
end

function f(x: bar):int is
begin
x.x.x.x.a:=x.a+x.a;
x.b.a:=x.b.b+1;
return x.b.a;
end