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

* also perform initialised checking for out-parameter, and set the

Browse Source 
initialised state of value/const/var parameters to initialised

git-svn-id: trunk@2487 -
This commit is contained in:
Jonas Maebe 2006-02-08 20:33:15 +00:00
parent 0e2a5dde24
commit 7edc9d0e6a
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/htypechk.pas
View File

@ -804,8 +804,7 @@ implementation
not(vo_is_external in hsym.varoptions) and
(hsym.owner.symtabletype in [parasymtable,localsymtable,staticsymtable]) and
((hsym.owner=current_procinfo.procdef.localst) or
((hsym.owner=current_procinfo.procdef.parast) and
(vo_is_funcret in hsym.varoptions))) then
(hsym.owner=current_procinfo.procdef.parast)) then
begin
if (vo_is_funcret in hsym.varoptions) then
begin

2
compiler/symsym.pas
View File

@ -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;