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

+ Added code for macos

Browse Source
This commit is contained in:
olle 2005-04-28 18:37:23 +00:00
parent 942c4ea025
commit fefdf31dce
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tests/tbs/tb0193.pp
View File

@ -19,8 +19,13 @@ end ['EAX'];
end ['D0']; end ['D0'];
{$endif CPU68K} {$endif CPU68K}
{$ifdef cpupowerpc} {$ifdef cpupowerpc}
{$ifndef macos}
lis r3, stacksize@ha lis r3, stacksize@ha
lwz r3, stacksize@l(r3) lwz r3, stacksize@l(r3)
{$else macos}
lwz r3, stacksize(r2)
lwz r3, 0(r3)
{$endif macos}
end; end;
{$endif cpupowerpc} {$endif cpupowerpc}
{$ifdef cpusparc} {$ifdef cpusparc}