paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 02:59:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ powerpc suppport

Browse Source
This commit is contained in:
Jonas Maebe 2003-12-29 10:58:05 +00:00
parent 67eaf25d33
commit e9051dc267
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
tests/tbs/tb0118.pp
View File

@ -29,6 +29,25 @@ asm
move.l d0,a5 move.l d0,a5
end ['d0','a5']; end ['d0','a5'];
{$endif CPU68K} {$endif CPU68K}
{$ifdef CPUPOWERPC}
asm
// doesn't matter, there is no static register used anymore for self,
// and self is now loaded on-demand instead of always
li r0,0
li r3,0
li r4,0
li r5,0
li r6,0
li r7,0
li r8,0
li r9,0
li r10,0
li r11,0
li r12,0
end;
{$endif CPUPOWERPC}
var var
p1 : tpt; p1 : tpt;
begin begin