paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 19:19:26 +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}
{ inside stack ? }
if (ptruint(p)>ptruint(get_frame)) and
{$ifdef ver2_0}
(ptruint(p)<Win32StackTop) then
{$else}
(p<StackTop) then
{$endif}
goto _exit;
{$endif win32}