whiledo.ast

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

var z: int;
	x: int;


function main(argv: array of string): int is
var y: int;
	w: int;
begin
	while (w < 10) do
	begin
		w := w + 1;
	end
	while (y < 10) do
	begin
		y := y + 1;
	end
	while (z < 10) do
	begin
		while (w < 10) do
			begin
				x:=y;
				y:=z;
				w := w + 1;
			end
		z := z + 1;
	end
end