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

* fix from Peter for getting correct symtableentry for funcret loads

Browse Source
This commit is contained in:
Jonas Maebe 2001-08-30 15:48:34 +00:00
parent 41a57028b9
commit eec2c98371
1 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/nld.pas
View File

@ -142,6 +142,7 @@ implementation
function tloadnode.det_resulttype:tnode;
var
p1 : tnode;
p : pprocinfo;
begin
result:=nil;
{ optimize simple with loadings }
@ -175,6 +176,20 @@ implementation
case symtableentry.typ of
funcretsym :
begin
{ find the main funcret for the function }
p:=procinfo;
while assigned(p) do
begin
if assigned(p^.procdef.funcretsym) and
((tfuncretsym(symtableentry)=p^.procdef.resultfuncretsym) or
(tfuncretsym(symtableentry)=p^.procdef.funcretsym)) then
begin
symtableentry:=p^.procdef.funcretsym;
break;
end;
p:=p^.parent;
end;
{ generate funcretnode }
p1:=cfuncretnode.create(symtableentry);
resulttypepass(p1);
{ if it's refered as absolute then we need to have the
@ -781,7 +796,10 @@ begin
end.
{
$Log$
Revision 1.23 2001-08-26 13:36:41 florian
Revision 1.24 2001-08-30 15:48:34 jonas
* fix from Peter for getting correct symtableentry for funcret loads
Revision 1.23 2001/08/26 13:36:41 florian
* some cg reorganisation
* some PPC updates