Browse Source

* obsolete test

peter 21 năm trước cách đây
mục cha
commit
698bdc9926
1 tập tin đã thay đổi với 0 bổ sung18 xóa
  1. 0 18
      tests/test/tcg2.pp

+ 0 - 18
tests/test/tcg2.pp

@@ -1,18 +0,0 @@
-{ %CPU=i386 }
-
-function x : longint;saveregisters;
-begin
-  x:=34;
-end;
-
-var
-  y : longint;
-begin
-  asm
-    movl $15,%eax
-  end;
-  y:=x;
-  Writeln(y);
-  if y<>34 then
-    halt(1);
-end.