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

Also look for function name of 'result' is not found in load_result_node

Browse Source 
git-svn-id: trunk@47208 -
This commit is contained in:
pierre 2020-10-26 14:45:34 +00:00
parent e50a388f30
commit bf5b85e5e5
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/nutils.pas
View File

@ -562,9 +562,16 @@ implementation
function load_result_node:tnode; function load_result_node:tnode;
var var
srsym : tsym; srsym : tsym;
begin pd : tprocdef;
begin
result:=nil; result:=nil;
srsym:=get_local_or_para_sym('result'); srsym:=get_local_or_para_sym('result');
if not assigned(srsym) then
begin
pd:=current_procinfo.procdef;
if assigned(pd.procsym) then
srsym:=get_local_or_para_sym(pd.procsym.name);
end;
if assigned(srsym) then if assigned(srsym) then
result:=cloadnode.create(srsym,srsym.owner) result:=cloadnode.create(srsym,srsym.owner)
else else