diff options
| author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2006-02-08 20:33:15 +0000 |
|---|---|---|
| committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2006-02-08 20:33:15 +0000 |
| commit | 7421c2b304c88f41f9c033090c9fcf464ff36893 (patch) | |
| tree | 9c3c5e25f92f62f037fd86ac016349798bd1a88e /compiler/symsym.pas | |
| parent | 35ce13f85f20322ea6374a639359ce6b1777bee4 (diff) | |
| download | fpc-7421c2b304c88f41f9c033090c9fcf464ff36893.tar.gz | |
* also perform initialised checking for out-parameter, and set the
initialised state of value/const/var parameters to initialised
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@2487 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/symsym.pas')
| -rw-r--r-- | compiler/symsym.pas | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/compiler/symsym.pas b/compiler/symsym.pas index 3fc2bb856a..23717c6d1f 100644 --- a/compiler/symsym.pas +++ b/compiler/symsym.pas @@ -1545,6 +1545,8 @@ implementation constructor tparavarsym.create(const n : string;nr:word;vsp:tvarspez;const tt : ttype;vopts:tvaroptions); begin inherited create(paravarsym,n,vsp,tt,vopts); + if (vsp in [vs_var,vs_value,vs_const]) then + varstate := vs_initialised; paranr:=nr; paraloc[calleeside].init; paraloc[callerside].init; |