Parcourir la source

* obsolete test

peter il y a 21 ans
Parent
commit
698bdc9926
1 fichiers modifiés avec 0 ajouts et 18 suppressions
  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.