paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-06 04:55:55 +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

7
compiler/i386/n386cal.pas
View File

@ -334,6 +334,7 @@ implementation
if (pocall_inline in procdefinition^.proccalloptions) then
begin
{ make a copy for the next time the procedure is inlined (JM) }
if assigned(left) then
left:=left.getcopy;
inlined:=true;
inlinecode:=tprocinlinenode(right);
@ -352,6 +353,7 @@ implementation
+tostr(pprocdef(procdefinition)^.parast^.address_fixup)))));
{$endif extdebug}
{ copy for the next time the procedure is inlined (JM) }
if assigned(right) then
right:=right.getcopy;
{ disable further inlining of the same proc
in the args }
@ -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