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

+ reinstated hepasize function

Browse Source 
* renamed HEAPSIZE global var to HEAP_SIZE to remove conflicts
This commit is contained in:
carl 1998-07-08 11:54:40 +00:00
parent 59456d7671
commit df00344700
1 changed files with 14 additions and 4 deletions

18
rtl/m68k/heap.inc
View File

@ -131,10 +131,16 @@
function getheapsize : longint; assembler;
asm
move.l HEAPSIZE,d0
move.l HEAP_SIZE,d0
end ['d0'];
function heapsize : longint;
begin
heapsize:=_internal_heapsize;
end;
{$IfDef CHECKHEAP}
procedure call_stack(p : pointer);
var i : longint;
@ -1015,9 +1021,9 @@ begin
{ set the total new heap size }
asm
move.l Size,d0
move.l HEAPSIZE,d1
move.l HEAP_SIZE,d1
add.l d0,d1
move.l d1,HEAPSIZE
move.l d1,HEAP_SIZE
end;
GrowHeap:=2;{ try again }
_internal_heapsize:=size+_internal_heapsize;
@ -1064,7 +1070,11 @@ end;
{
$Log$
Revision 1.3 1998-07-02 14:24:08 michael
Revision 1.4 1998-07-08 11:54:40 carl
+ reinstated hepasize function
* renamed HEAPSIZE global var to HEAP_SIZE to remove conflicts
Revision 1.3 1998/07/02 14:24:08 michael
Undid carls changes, but renamed _heapsize to _internal_heapsize. Make cycle now works
Revision 1.2 1998/07/02 12:22:38 carl