paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-06 01:51:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

Be sure not to add a symbol with empty name as an alias for function return variable

Browse Source
This commit is contained in:
Pierre Muller 2024-02-23 15:40:35 +00:00
parent 37c3e86c7f
commit e7f9626592
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/pparautl.pas
View File

@ -369,6 +369,8 @@ implementation
hs:=pd.resultname^
else
hs:=pd.procsym.name;
if (hs='') then
hs:='$_result';
sl:=tpropaccesslist.create;
sl.addsym(sl_load,pd.funcretsym);
aliasvs:=cabsolutevarsym.create_ref(hs,pd.returndef,sl);