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

- removed heapsize function, would cause conflicts with HEAPSIZE var

Browse Source 
* GetHeapstart was misplaced
This commit is contained in:
carl 1998-07-02 12:22:38 +00:00
parent 7632ce3279
commit 9aeafd0cc0
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/m68k/heap.inc
View File

@ -134,11 +134,6 @@
move.l HEAPSIZE,d0
end ['d0'];
function heapsize : longint;
begin
heapsize:=_heapsize;
end;
{$IfDef CHECKHEAP}
procedure call_stack(p : pointer);
@ -1060,17 +1055,21 @@ begin
{$endif TEMPHEAP}
HeapOrg := GetHeapStart;
HeapPtr := HeapOrg;
_memavail := GetHeapSize;
HeapEnd := HeapOrg + _memavail;
HeapError := @GrowHeap;
_memavail := GetHeapSize;
_heapsize:=longint(heapend)-longint(heaporg);
Freelist := nil;
end;
{
$Log$
Revision 1.1 1998-03-25 11:18:44 root
Initial revision
Revision 1.2 1998-07-02 12:22:38 carl
- removed heapsize function, would cause conflicts with HEAPSIZE var
* GetHeapstart was misplaced
Revision 1.1.1.1 1998/03/25 11:18:44 root
* Restored version
Revision 1.3 1998/01/26 12:01:52 michael
+ Added log at the end