Jonas Maebe 22 lat temu
rodzic
commit
67eaf25d33
1 zmienionych plików z 6 dodań i 0 usunięć
  1. 6 0
      tests/tbs/tb0072.pp

+ 6 - 0
tests/tbs/tb0072.pp

@@ -23,6 +23,12 @@ asm
   move.l  y,d1
 end;
 {$endif CPU68K}
+{$ifdef CPUPOWERPC}
+asm
+  mr r5,x
+  mr r6,y
+end;
+{$endif CPUPOWERPC}
 
 {procedure nothing(x,y: longint);
 begin