mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-06 01:26:35 +02:00
+ linux/ppc support
This commit is contained in:
parent
da6811ed58
commit
396f4aa9ab
@ -14,7 +14,11 @@ end ['EAX'];
|
|||||||
move.l HEAPSIZE,d0
|
move.l HEAPSIZE,d0
|
||||||
end ['D0'];
|
end ['D0'];
|
||||||
{$endif CPU68K}
|
{$endif CPU68K}
|
||||||
|
{$ifdef cpupowerpc}
|
||||||
|
lis r3, heapsize@ha
|
||||||
|
lwz r3, heapsize@l(r3)
|
||||||
|
end;
|
||||||
|
{$endif cpupowerpc}
|
||||||
|
|
||||||
begin
|
begin
|
||||||
writeln(getheapsize);
|
writeln(getheapsize);
|
||||||
|
Loading…
Reference in New Issue
Block a user