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

* fix for non-i386

Browse Source
This commit is contained in:
peter 2004-10-25 17:04:07 +00:00
parent 869b0ecc85
commit b454870988
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/inc/heaptrc.pp
View File

@ -764,20 +764,14 @@ begin
{ I don't know where the stack is in other OS !! } { I don't know where the stack is in other OS !! }
{$ifdef win32} {$ifdef win32}
{ inside stack ? } { inside stack ? }
asm if (ptruint(p)>ptruint(get_frame)) and
movl %ebp,get_ebp
end;
if (ptruint(p)>get_ebp) and
(ptruint(p)<Win32StackTop) then (ptruint(p)<Win32StackTop) then
goto _exit; goto _exit;
{$endif win32} {$endif win32}
{$ifdef linux} {$ifdef linux}
{ inside stack ? } { inside stack ? }
asm if (ptruint(p)>ptruint(get_frame)) and
movl %ebp,get_ebp
end;
if (ptruint(p)>get_ebp) and
(ptruint(p)<$c0000000) then //todo: 64bit! (ptruint(p)<$c0000000) then //todo: 64bit!
goto _exit; goto _exit;
{ inside data ? } { inside data ? }
@ -1157,7 +1151,10 @@ finalization
end. end.
{ {
$Log$ $Log$
Revision 1.35 2004-10-25 15:38:59 peter Revision 1.36 2004-10-25 17:04:07 peter
* fix for non-i386
Revision 1.35 2004/10/25 15:38:59 peter
* compiler defined HEAP and HEAPSIZE removed * compiler defined HEAP and HEAPSIZE removed
Revision 1.34 2004/10/24 20:01:41 peter Revision 1.34 2004/10/24 20:01:41 peter