Browse Source

* 1.0.x only

peter 21 years ago
parent
commit
3d4e245aaa
2 changed files with 8 additions and 1 deletions
  1. 6 1
      tests/tbs/tb0072.pp
  2. 2 0
      tests/tbs/tb0118.pp

+ 6 - 1
tests/tbs/tb0072.pp

@@ -1,4 +1,3 @@
-
 { Old file: tbs0079.pp }
 { Old file: tbs0079.pp }
 {  Shows problems with stackframe with assembler keyword OK 0.99.1 (CEC) }
 {  Shows problems with stackframe with assembler keyword OK 0.99.1 (CEC) }
 { This test does not really
 { This test does not really
@@ -35,6 +34,12 @@ asm
   mov r3,y
   mov r3,y
 end;
 end;
 {$endif CPUARM}
 {$endif CPUARM}
+{$ifdef CPUX86_64}
+asm
+  movl x,%eax
+  movl y,%ecx
+end;
+{$endif CPUX86_64}
 
 
 {procedure nothing(x,y: longint);
 {procedure nothing(x,y: longint);
 begin
 begin

+ 2 - 0
tests/tbs/tb0118.pp

@@ -1,3 +1,5 @@
+{ %maxversion=1.0.99 }
+
 { Old file: tbs0138.pp }
 { Old file: tbs0138.pp }
 { with problem, %esi can be crushed and is not restored OK 0.99.6 (PM) }
 { with problem, %esi can be crushed and is not restored OK 0.99.6 (PM) }