From 8511a3e1e4d9907b45b583181bf0c4c894ec5f8d Mon Sep 17 00:00:00 2001 From: paul Date: Sat, 23 Jan 2010 19:31:50 +0000 Subject: [PATCH] compiler: fix an assumption that para.parasym is always assigned git-svn-id: trunk@14783 - --- compiler/ncal.pas | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/compiler/ncal.pas b/compiler/ncal.pas index 74b77fe31e..53298c5545 100644 --- a/compiler/ncal.pas +++ b/compiler/ncal.pas @@ -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 }