Browse Source

* if there are assertions, include pi_do_call in procinfo.flags

Jonas Maebe 21 years ago
parent
commit
fd8625f3eb
1 changed files with 10 additions and 5 deletions
  1. 10 5
      compiler/ninl.pas

+ 10 - 5
compiler/ninl.pas

@@ -1973,10 +1973,12 @@ implementation
                   { We've checked the whole statement for correctness, now we
                   { We've checked the whole statement for correctness, now we
                     can remove it if assertions are off }
                     can remove it if assertions are off }
                   if not(cs_do_assertion in aktlocalswitches) then
                   if not(cs_do_assertion in aktlocalswitches) then
-                   begin
-                     { we need a valid node, so insert a nothingn }
-                     result:=cnothingnode.create;
-                   end;
+                    begin
+                      { we need a valid node, so insert a nothingn }
+                      result:=cnothingnode.create;
+                    end
+                   else
+                     include(current_procinfo.flags,pi_do_call);
                 end;
                 end;
 
 
                else
                else
@@ -2356,7 +2358,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.123  2003-11-29 16:19:54  peter
+  Revision 1.124  2003-12-08 21:17:12  jonas
+    * if there are assertions, include pi_do_call in procinfo.flags
+
+  Revision 1.123  2003/11/29 16:19:54  peter
     * Initialize() added
     * Initialize() added
 
 
   Revision 1.122  2003/11/10 22:02:52  peter
   Revision 1.122  2003/11/10 22:02:52  peter