diff --git a/compiler/i386/n386cal.pas b/compiler/i386/n386cal.pas index 4b5d830f10..bb25cac898 100644 --- a/compiler/i386/n386cal.pas +++ b/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