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

+ stack checking enabled for all targets (it is simulated now)

Browse Source
This commit is contained in:
carl 2002-04-14 20:54:17 +00:00
parent 39c86c857d
commit 85216e1a0e
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/i386/cga.pas
View File

@ -1824,9 +1824,7 @@ implementation
else else
{$endif __NOWINPECOFF__} {$endif __NOWINPECOFF__}
exprasmList.insert(Taicpu.Op_const_reg(A_SUB,S_L,stackframe,R_ESP)); exprasmList.insert(Taicpu.Op_const_reg(A_SUB,S_L,stackframe,R_ESP));
if (cs_check_stack in aktlocalswitches) and if (cs_check_stack in aktlocalswitches) then
not(target_info.target in [target_i386_freebsd,target_i386_netbsd,
target_i386_linux,target_i386_win32,target_i386_wdosx]) then
begin begin
emitinsertcall('FPC_STACKCHECK'); emitinsertcall('FPC_STACKCHECK');
exprasmList.insert(Taicpu.Op_const(A_PUSH,S_L,stackframe)); exprasmList.insert(Taicpu.Op_const(A_PUSH,S_L,stackframe));
@ -2572,7 +2570,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.21 2002-04-04 19:06:08 peter Revision 1.22 2002-04-14 20:54:17 carl
+ stack checking enabled for all targets (it is simulated now)
Revision 1.21 2002/04/04 19:06:08 peter
* removed unused units * removed unused units
* use tlocation.size in cg.a_*loc*() routines * use tlocation.size in cg.a_*loc*() routines