Browse Source

* set pi_do_call if range/overflow checking is on

Jonas Maebe 22 years ago
parent
commit
cc7f340ac8
1 changed files with 6 additions and 1 deletions
  1. 6 1
      compiler/psub.pas

+ 6 - 1
compiler/psub.pas

@@ -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