paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 01:19:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed web bug #3104: if stack checking is on, procedures pi_do_call

Browse Source 
must be set
This commit is contained in:
Jonas Maebe 2004-05-19 22:25:56 +00:00
parent c553f6b320
commit 844faab90a
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/psub.pas
View File

@ -211,7 +211,7 @@ implementation
{ there's always a call to FPC_DO_EXIT in the main program }
include(current_procinfo.flags,pi_do_call);
end;
if ([cs_check_range,cs_check_overflow] * aktlocalswitches <> []) then
if ([cs_check_range,cs_check_overflow,cs_check_stack] * aktlocalswitches <> []) then
include(current_procinfo.flags,pi_do_call);
end;
@ -1345,7 +1345,11 @@ implementation
end.
{
$Log$
Revision 1.188 2004-05-16 13:29:21 peter
Revision 1.189 2004-05-19 22:25:56 jonas
* fixed web bug 3104: if stack checking is on, procedures pi_do_call
must be set
Revision 1.188 2004/05/16 13:29:21 peter
* fix checking for forwards in static symtable
Revision 1.187 2004/04/11 12:37:30 peter