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

* heap stuff for powerpc fixed

Browse Source
This commit is contained in:
florian 2002-08-13 18:11:08 +00:00
parent c68b2dfbee
commit a0b13c1d2f
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
rtl/unix/sysunix.inc
View File

@ -147,15 +147,13 @@ end['A0','D0'];
{$ifdef powerpc} {$ifdef powerpc}
{$define fpc_getheapstart_ok} {$define fpc_getheapstart_ok}
asm asm
lea.l _HEAP,a0 lis r3,_HEAP@ha
move.l a0,d0 la r3,_HEAP@l(r3)
end['A0','D0']; end['R3'];
{$endif powerpc} {$endif powerpc}
{$ifndef fpc_getheapstart_ok} {$ifndef fpc_getheapstart_ok}
asm asm
lis r3,_HEAP@ha end;
la r3,_HEAP@l(r3)
end ['r3'];
{$error Getheapstart code is not implemented } {$error Getheapstart code is not implemented }
{$endif not fpc_getheapstart_ok} {$endif not fpc_getheapstart_ok}
@ -179,7 +177,7 @@ end ['D0'];
asm asm
lis r9,_HEAPSIZE@ha lis r9,_HEAPSIZE@ha
lwz r3,_HEAPSIZE@l(r9) lwz r3,_HEAPSIZE@l(r9)
end ['r0','r9']; end ['R0','R9'];
{$endif powerpc} {$endif powerpc}
{$ifndef fpc_getheapsize_ok} {$ifndef fpc_getheapsize_ok}
asm asm
@ -787,7 +785,10 @@ End.
{ {
$Log$ $Log$
Revision 1.25 2002-08-03 20:05:13 florian Revision 1.26 2002-08-13 18:11:08 florian
* heap stuff for powerpc fixed
Revision 1.25 2002/08/03 20:05:13 florian
+ ppc implementation of heap functions added + ppc implementation of heap functions added
Revision 1.24 2002/07/29 21:28:17 florian Revision 1.24 2002/07/29 21:28:17 florian
@ -876,4 +877,4 @@ End.
Revision 1.2 2000/07/13 11:33:49 michael Revision 1.2 2000/07/13 11:33:49 michael
+ removed logs + removed logs
} }