paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 00:09:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* better check for a valid call node

Browse Source 
git-svn-id: trunk@42387 -
This commit is contained in:
svenbarth 2019-07-12 22:06:52 +00:00
parent 8cd1f1973b
commit d31dd4ac7b
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/pdecl.pas
View File

@ -462,10 +462,8 @@ implementation
p:=nil;
typecheckpass(pcalln);
if pcalln.nodetype<>errorn then
if (pcalln.nodetype=calln) and assigned(tcallnode(pcalln).procdefinition) and not codegenerror then
begin
if pcalln.nodetype<>calln then
internalerror(2019070701);
{ collect the parameters of the call node as there might be
compile time type conversions (e.g. a Byte parameter being
passed a value > 255) }
@ -506,7 +504,9 @@ implementation
if not assigned(rtti_attrs_def) then
rtti_attrs_def:=trtti_attribute_list.create;
rtti_attrs_def.addattribute(typesym,pcalln,paras);
end;
end
else
pcalln.free;
end
else
begin