Browse Source

+ ppc support

Jonas Maebe 22 năm trước cách đây
mục cha
commit
67eaf25d33
1 tập tin đã thay đổi với 6 bổ sung0 xóa
  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