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

Move {$checkpointer off} before interface and relax windows data bss check to also accept sections in between like .rdata

Browse Source 
git-svn-id: trunk@34262 -
This commit is contained in:
pierre 2016-08-10 09:46:37 +00:00
parent 3a9f2f55f4
commit 5884fbc8b0
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/inc/heaptrc.pp
View File

@ -12,6 +12,9 @@
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************} **********************************************************************}
{$checkpointer off}
unit heaptrc; unit heaptrc;
interface interface
@ -22,7 +25,6 @@ interface
{$inline off} {$inline off}
{$endif FPC_HEAPTRC_EXTRA} {$endif FPC_HEAPTRC_EXTRA}
{$checkpointer off}
{$TYPEDADDRESS on} {$TYPEDADDRESS on}
{$if defined(win32) or defined(wince)} {$if defined(win32) or defined(wince)}
@ -988,12 +990,8 @@ begin
if (ptruint(p)>ptruint(get_frame)) and if (ptruint(p)>ptruint(get_frame)) and
(p<StackTop) then (p<StackTop) then
exit; exit;
{ inside data ? } { inside data, rdata ... bss }
if (ptruint(p)>=ptruint(@sdata)) and (ptruint(p)<ptruint(@edata)) then if (ptruint(p)>=ptruint(@sdata)) and (ptruint(p)<ptruint(@ebss)) then
exit;
{ inside bss ? }
if (ptruint(p)>=ptruint(@sbss)) and (ptruint(p)<ptruint(@ebss)) then
exit; exit;
{ is program multi-threaded and p inside Threadvar range? } { is program multi-threaded and p inside Threadvar range? }
if TlsKey^<>-1 then if TlsKey^<>-1 then