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

* fixed assembly for ppc64/linux (although it does not compile yet)

Browse Source 
git-svn-id: trunk@6217 -
This commit is contained in:
tom_at_work 2007-01-26 22:53:29 +00:00
parent da942bdc58
commit 1d2e01d26d
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/webtbs/tw7851a.pp
View File

@ -34,13 +34,11 @@ asm
mflr r0
{$ifndef cpu64}
stw r0, retaddr
{$else}
std r0, retaddr
{$endif}
bl TMyObject.Test2
{$ifndef cpu64}
lwz r0, retaddr
{$else}
std r0, retaddr
bl .TMyObject.Test2
ld r0, retaddr
{$endif}
mtlr r0