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

Reinstated the heapsize function.

Browse Source
This commit is contained in:
michael 1998-07-02 14:11:30 +00:00
parent 004bb57ae9
commit c33e3788cd
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/inc/heaph.inc
View File

@ -18,6 +18,7 @@ Procedure mark(var p : pointer);
Procedure markheap(var oldfreelist,oldheapptr : pointer); Procedure markheap(var oldfreelist,oldheapptr : pointer);
Procedure releaseheap(oldfreelist,oldheapptr : pointer); Procedure releaseheap(oldfreelist,oldheapptr : pointer);
Function cal_memavail : longint; Function cal_memavail : longint;
Function heapsize : longint;
{$ifdef TEMPHEAP} {$ifdef TEMPHEAP}
Procedure split_heap; Procedure split_heap;
Procedure switch_to_base_heap; Procedure switch_to_base_heap;
@ -35,8 +36,8 @@ var
{ {
$Log$ $Log$
Revision 1.4 1998-07-02 12:13:49 carl Revision 1.5 1998-07-02 14:11:30 michael
- function heapsize MUST be removed, create conflicts with HEAPSIZE var Reinstated the heapsize function.
Revision 1.3 1998/05/12 10:42:45 peter Revision 1.3 1998/05/12 10:42:45 peter
* moved getopts to inc/, all supported OS's need argc,argv exported * moved getopts to inc/, all supported OS's need argc,argv exported