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

* ifdef cpu64bit -> ifdef cpu64

Browse Source 
git-svn-id: trunk@6182 -
This commit is contained in:
Jonas Maebe 2007-01-25 08:33:20 +00:00
parent cdb67cfc8b
commit 3198915389
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/webtbs/tw7851a.pp
View File

@ -32,13 +32,13 @@ var
retaddr: pointer;
asm
mflr r0
{$ifndef cpu64bit}
{$ifndef cpu64}
stw r0, retaddr
{$else}
std r0, retaddr
{$endif}
bl TMyObject.Test2
{$ifndef cpu64bit}
{$ifndef cpu64}
lwz r0, retaddr
{$else}
ld r0, retaddr

2
tests/webtbs/tw8153a.pp
View File

@ -12,7 +12,7 @@ type
procedure tc.test; assembler;
asm
{$ifdef cpu64bit}
{$ifdef cpu64}
ld r4,0(r3)
ld r4,+vmtoffset tc.v(r4)
{$else}