paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-23 06:49:49 +02: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^ hs:=pd.resultname^
else else
hs:=pd.procsym.name; hs:=pd.procsym.name;
if (hs='') then
hs:='$_result';
sl:=tpropaccesslist.create; sl:=tpropaccesslist.create;
sl.addsym(sl_load,pd.funcretsym); sl.addsym(sl_load,pd.funcretsym);
aliasvs:=cabsolutevarsym.create_ref(hs,pd.returndef,sl); aliasvs:=cabsolutevarsym.create_ref(hs,pd.returndef,sl);