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

* tprocdef.customprocname: fixed bug introduced in r21069 that was causing result to always contain 'procedure' or 'function' word. These should be included only if pno_proctypeoption flag is given. Resolves #24640.

Browse Source 
git-svn-id: trunk@25126 -
This commit is contained in:
sergei 2013-07-17 12:41:55 +00:00
parent 2240c24252
commit 8b1463aedc
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/symdef.pas
View File

@ -4693,12 +4693,14 @@ implementation
potype_destructor: potype_destructor:
s:=s+'destructor '; s:=s+'destructor ';
else else
if (pno_proctypeoption in pno) and if (pno_proctypeoption in pno) then
assigned(returndef) and begin
not(is_void(returndef)) then if assigned(returndef) and
s:=s+'function ' not(is_void(returndef)) then
else s:=s+'function '
s:=s+'procedure '; else
s:=s+'procedure ';
end;
end; end;
if (pno_ownername in pno) and if (pno_ownername in pno) and
(owner.symtabletype in [recordsymtable,objectsymtable]) then (owner.symtabletype in [recordsymtable,objectsymtable]) then