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

+ added sparc code

Browse Source
This commit is contained in:
florian 2004-10-03 18:13:26 +00:00
parent d2bf4b0d92
commit 18ab96362b
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/tbs/tb0193.pp
View File

@ -23,7 +23,11 @@ end ['D0'];
lwz r3, heapsize@l(r3)
end;
{$endif cpupowerpc}
{$ifdef cpusparc}
sethi %hi(heapsize),%i0
or %i0,%lo(heapsize),%i0
end;
{$endif cpusparc}
begin
writeln(getheapsize);
end.