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

* set pi_do_call if range/overflow checking is on

Browse Source
This commit is contained in:
Jonas Maebe 2003-07-05 20:15:24 +00:00
parent 0c65bc5a8c
commit cc7f340ac8
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/psub.pas
View File

@ -204,6 +204,8 @@ implementation
{ there's always a call to FPC_DO_EXIT in the main program } { there's always a call to FPC_DO_EXIT in the main program }
include(current_procinfo.flags,pi_do_call); include(current_procinfo.flags,pi_do_call);
end; end;
if ([cs_check_range,cs_check_overflow] * aktlocalswitches <> []) then
include(current_procinfo.flags,pi_do_call);
end; end;
@ -1251,7 +1253,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.129 2003-06-17 16:34:44 jonas Revision 1.130 2003-07-05 20:15:24 jonas
* set pi_do_call if range/overflow checking is on
Revision 1.129 2003/06/17 16:34:44 jonas
* lots of newra fixes (need getfuncretparaloc implementation for i386)! * lots of newra fixes (need getfuncretparaloc implementation for i386)!
* renamed all_intregisters to volatile_intregisters and made it * renamed all_intregisters to volatile_intregisters and made it
processor dependent processor dependent