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

* inserting $result into the symtables should never trigger a duplicate symbol error, resolves #40608

Browse Source
This commit is contained in:
florian 2024-01-27 22:05:31 +01:00
parent 272417e602
commit b32573d1eb
2 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/pparautl.pas
View File

@ -351,7 +351,7 @@ implementation
not paramanager.ret_in_param(pd.returndef,pd) then
begin
vs:=clocalvarsym.create('$result',vs_value,pd.returndef,[vo_is_funcret]);
pd.localst.insertsym(vs);
pd.localst.insertsym(vs,false);
pd.funcretsym:=vs;
end;

13
tests/webtbs/tw40608.pp Normal file
View File

@ -0,0 +1,13 @@
{$mode ObjFPC}{$H+}
generic function genericfunc<T>: String;
function innerfunc: String;
begin // project1.lpr(6,3) Error: Duplicate identifier "$result"
end;
begin
end;
begin
end.