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

* uses _eend instead of _edata in checkpointer, patch by

Browse Source 
Martin Schreiber
This commit is contained in:
peter 2005-01-21 15:56:32 +00:00
parent 020654b842
commit 14334ebb1b
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/inc/heaptrc.pp
View File

@ -726,6 +726,7 @@ var
var var
etext: ptruint; external name '_etext'; etext: ptruint; external name '_etext';
edata : ptruint; external name '_edata'; edata : ptruint; external name '_edata';
eend : ptruint; external name '_end';
{$endif} {$endif}
@ -774,8 +775,8 @@ begin
if (ptruint(p)>ptruint(get_frame)) and if (ptruint(p)>ptruint(get_frame)) and
(ptruint(p)<$c0000000) then //todo: 64bit! (ptruint(p)<$c0000000) then //todo: 64bit!
goto _exit; goto _exit;
{ inside data ? } { inside data or bss ? }
if (ptruint(p)>=ptruint(@etext)) and (ptruint(p)<ptruint(@edata)) then if (ptruint(p)>=ptruint(@etext)) and (ptruint(p)<ptruint(@eend)) then
goto _exit; goto _exit;
{$endif linux} {$endif linux}
@ -1144,7 +1145,11 @@ finalization
end. end.
{ {
$Log$ $Log$
Revision 1.37 2004-11-22 19:34:58 peter Revision 1.38 2005-01-21 15:56:32 peter
* uses _eend instead of _edata in checkpointer, patch by
Martin Schreiber
Revision 1.37 2004/11/22 19:34:58 peter
* GetHeapStatus added, removed MaxAvail,MemAvail,HeapSize * GetHeapStatus added, removed MaxAvail,MemAvail,HeapSize
Revision 1.36 2004/10/25 17:04:07 peter Revision 1.36 2004/10/25 17:04:07 peter