paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 02:59:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

symdef.pas, tprocdef:

Browse Source 
* don't check the type of the owner symtable if we don't have one

git-svn-id: trunk@33842 -
This commit is contained in:
svenbarth 2016-05-28 22:08:00 +00:00
parent c509036c11
commit 7c5c5d2e4b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/symdef.pas
View File

@ -5753,7 +5753,7 @@ implementation
assigned(returndef) and assigned(returndef) and
not(is_void(returndef)) then not(is_void(returndef)) then
s:=s+':'+returndef.GetTypeName; s:=s+':'+returndef.GetTypeName;
if owner.symtabletype=localsymtable then if assigned(owner) and (owner.symtabletype=localsymtable) then
s:=s+' is nested' s:=s+' is nested'
else if po_is_block in procoptions then else if po_is_block in procoptions then
s:=s+' is block'; s:=s+' is block';