paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 16:39:19 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
rtl/m68k/heap.inc
View File

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