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

* test for arm fixed

Browse Source
This commit is contained in:
florian 2004-03-30 20:39:10 +00:00
parent 6959430b83
commit 332d0c1ac3
3 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/tbs/tb0072.pp
View File

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

10
tests/tbs/tb0118.pp
View File

@ -46,6 +46,16 @@ asm
li r12,0 li r12,0
end; end;
{$endif CPUPOWERPC} {$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 var

3
tests/tbs/tb0142.pp
View File

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