test5.ast

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

include io.inc

record foo is
  var a: int;
end

record bar is
  var a: foo;
end

function main(argv: array of string): int is
    var x: array of bar;
        y: bar;
        z: foo;
begin
	x := new array[5] of bar;
  z.a := 3;
	x[1].a := z;
	x[0].a := y;

  x[0].a.a := z.a;

  x[0].z := y;
	
  return 0;
end