diff options
| author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2006-01-14 15:34:38 +0000 |
|---|---|---|
| committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2006-01-14 15:34:38 +0000 |
| commit | d046dfd2a723422b8c9fb9497f7ec27977d42f54 (patch) | |
| tree | 3da68596a678a25b5e1e4903b996ff686c004afb /compiler/htypechk.pas | |
| parent | ca0e58d89a8a5266c1788bd3d0ac9149032071b4 (diff) | |
| download | fpc-d046dfd2a723422b8c9fb9497f7ec27977d42f54.tar.gz | |
* don't warn about possible use of uninitialised function results of
parent procedures in nested procedures (bug 4675)
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@2287 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/htypechk.pas')
| -rw-r--r-- | compiler/htypechk.pas | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/htypechk.pas b/compiler/htypechk.pas index 7ea8130d5f..0914fc471d 100644 --- a/compiler/htypechk.pas +++ b/compiler/htypechk.pas @@ -799,7 +799,8 @@ implementation not(vo_is_external in hsym.varoptions) and (hsym.owner.symtabletype in [parasymtable,localsymtable,staticsymtable]) and ((hsym.owner=current_procinfo.procdef.localst) or - (vo_is_funcret in hsym.varoptions)) then + ((hsym.owner=current_procinfo.procdef.parast) and + (vo_is_funcret in hsym.varoptions))) then begin if (vo_is_funcret in hsym.varoptions) then begin |