From 7aede2018f0206ef577916a09270b4c8dc122b9e Mon Sep 17 00:00:00 2001 From: paul Date: Sat, 23 Jan 2010 19:01:30 +0000 Subject: [PATCH] compiler: mark 'var' and 'out' arguments as they are passed by reference for dispatch invoke git-svn-id: trunk@14781 - --- compiler/ncal.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/ncal.pas b/compiler/ncal.pas index 7d0989079d..0267656f95 100644 --- a/compiler/ncal.pas +++ b/compiler/ncal.pas @@ -410,7 +410,7 @@ implementation internalerror(200611041); end; - dispatchbyref:=para.left.resultdef.typ in [variantdef]; + dispatchbyref:=(para.parasym.varspez in [vs_var,vs_out]) or (para.left.resultdef.typ in [variantdef]); { assign the argument/parameter to the temporary location }