paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-05 03:19:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

fixed fpc 2.1.1 compilation

Browse Source 
git-svn-id: trunk@8864 -
This commit is contained in:
vincents 2006-03-03 21:36:21 +00:00
parent 841106f0ca
commit f500ae6647
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/memcheck.pas
View File

@ -791,7 +791,11 @@ begin
{$ifdef win32} {$ifdef win32}
{ inside stack ? } { inside stack ? }
if (ptruint(p)>ptruint(get_frame)) and if (ptruint(p)>ptruint(get_frame)) and
{$ifdef ver2_0}
(ptruint(p)<Win32StackTop) then (ptruint(p)<Win32StackTop) then
{$else}
(p<StackTop) then
{$endif}
goto _exit; goto _exit;
{$endif win32} {$endif win32}