Browse Source

* test for arm fixed

florian 21 years ago
parent
commit
332d0c1ac3
3 changed files with 19 additions and 0 deletions
  1. 6 0
      tests/tbs/tb0072.pp
  2. 10 0
      tests/tbs/tb0118.pp
  3. 3 0
      tests/tbs/tb0142.pp

+ 6 - 0
tests/tbs/tb0072.pp

@@ -29,6 +29,12 @@ asm
   mr r6,y
 end;
 {$endif CPUPOWERPC}
+{$ifdef CPUARM}
+asm
+  mov r2,x
+  mov r3,y
+end;
+{$endif CPUARM}
 
 {procedure nothing(x,y: longint);
 begin

+ 10 - 0
tests/tbs/tb0118.pp

@@ -46,6 +46,16 @@ asm
   li r12,0
 end;
 {$endif CPUPOWERPC}
+{$ifdef CPUARM}
+asm
+  // doesn't matter, there is no static register used anymore for self,
+  // and self is now loaded on-demand instead of always
+  mov r0,0
+  mov r1,0
+  mov r2,0
+  mov r3,0
+end;
+{$endif CPUARM}
 
 
 var

+ 3 - 0
tests/tbs/tb0142.pp

@@ -17,5 +17,8 @@ asm
 {$ifdef CPU68K}
         jsr {$ifdef dummy}free1{$else}free2{$endif}
 {$endif CPU68K}
+{$ifdef ARM}
+        bl {$ifdef dummy}free1{$else}free2{$endif}
+{$endif ARM}
 end;
 end.