Prechádzať zdrojové kódy

* check for nil pointers before calling getcopy

Jonas Maebe 25 rokov pred
rodič
commit
71d94c07f8
1 zmenil súbory, kde vykonal 8 pridanie a 3 odobranie
  1. 8 3
      compiler/i386/n386cal.pas

+ 8 - 3
compiler/i386/n386cal.pas

@@ -334,7 +334,8 @@ implementation
          if (pocall_inline in procdefinition^.proccalloptions) then
            begin
               { make a copy for the next time the procedure is inlined (JM) }
-              left:=left.getcopy;
+              if assigned(left) then
+                left:=left.getcopy;
               inlined:=true;
               inlinecode:=tprocinlinenode(right);
               { set it to the same lexical level as the local symtable, becuase
@@ -352,7 +353,8 @@ implementation
                +tostr(pprocdef(procdefinition)^.parast^.address_fixup)))));
 {$endif extdebug}
               { copy for the next time the procedure is inlined (JM) }
-              right:=right.getcopy;
+              if assigned(right) then
+                right:=right.getcopy;
               { disable further inlining of the same proc
                 in the args }
               exclude(procdefinition^.proccalloptions,pocall_inline);
@@ -1593,7 +1595,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.2  2000-10-31 22:02:56  peter
+  Revision 1.3  2000-11-04 13:12:14  jonas
+    * check for nil pointers before calling getcopy
+
+  Revision 1.2  2000/10/31 22:02:56  peter
     * symtable splitted, no real code changes
 
   Revision 1.1  2000/10/15 09:33:31  peter