paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 22:53:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

compiler: fix an assumption that para.parasym is always assigned

Browse Source 
git-svn-id: trunk@14783 -
This commit is contained in:
paul 2010-01-23 19:31:50 +00:00
parent ca99f902d6
commit 8511a3e1e4
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/ncal.pas
View File

@ -410,7 +410,8 @@ implementation
internalerror(200611041);
end;
dispatchbyref:=(para.parasym.varspez in [vs_var,vs_out]) or (para.left.resultdef.typ in [variantdef]);
dispatchbyref:=(assigned(para.parasym) and (para.parasym.varspez in [vs_var,vs_out])) or
(para.left.resultdef.typ in [variantdef]);
{ assign the argument/parameter to the temporary location }