test2.ast

来自「一个编译器修改的例子」· AST 代码 · 共 23 行

include io.inc

record foo is
    var a: int;
end

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

function main(argv: array of string): int is
    var x: foo;
        y: bar;
begin
        x.a := 5;
        y.c := x;
        WriteString("This should be 5: ");
        WriteInt(y.c.a);
        WriteString("\n");
        return 0;
end