test6.ast

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

include io.inc

var test: int;

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


procedure add(var test: test) is
begin
	test.a;
end

function main(argv:array of string):int is
	var bla: test;
begin
	bla.b:=0;
	bla.a:=1;
	add(bla);
  WriteString("Try being a depressed robot....\n");
  WriteString("(c)Marvin 2005.\n");
  return 0;
end