paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-10 08:46:06 +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 if (pocall_inline in procdefinition^.proccalloptions) then
begin begin
{ make a copy for the next time the procedure is inlined (JM) } { make a copy for the next time the procedure is inlined (JM) }
if assigned(left) then
left:=left.getcopy; left:=left.getcopy;
inlined:=true; inlined:=true;
inlinecode:=tprocinlinenode(right); inlinecode:=tprocinlinenode(right);
@ -352,6 +353,7 @@ implementation
+tostr(pprocdef(procdefinition)^.parast^.address_fixup))))); +tostr(pprocdef(procdefinition)^.parast^.address_fixup)))));
{$endif extdebug} {$endif extdebug}
{ copy for the next time the procedure is inlined (JM) } { copy for the next time the procedure is inlined (JM) }
if assigned(right) then
right:=right.getcopy; right:=right.getcopy;
{ disable further inlining of the same proc { disable further inlining of the same proc
in the args } in the args }
@ -1593,7 +1595,10 @@ begin
end. end.
{ {
$Log$ $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 * symtable splitted, no real code changes
Revision 1.1 2000/10/15 09:33:31 peter Revision 1.1 2000/10/15 09:33:31 peter