瀏覽代碼

Fix CheckPointer code for pointer in stack area for linux

git-svn-id: trunk@34551 -
pierre 9 年之前
父節點
當前提交
749dc00401
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      rtl/inc/heaptrc.pp

+ 1 - 1
rtl/inc/heaptrc.pp

@@ -1060,7 +1060,7 @@ begin
 {$ifdef linux}
   { inside stack ? }
   if (ptruint(p)>ptruint(get_frame)) and
-     (ptruint(p)<$c0000000) then      //todo: 64bit!
+     (ptruint(p)<ptruint(StackTop)) then
     exit;
   { inside data or bss ? }
   if (ptruint(p)>=ptruint(@etext)) and (ptruint(p)<ptruint(@eend)) then