paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-05-31 15:42:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

* check for nil pointers before calling getcopy

Browse Source
This commit is contained in:
Jonas Maebe 2000-11-04 13:12:14 +00:00
parent 2d72c95c20
commit 71d94c07f8
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/i386/n386cal.pas
View File

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