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

* removed load_funcret

Browse Source
This commit is contained in:
peter 2003-04-26 00:28:41 +00:00
parent dbd9760c80
commit 61a964729e
2 changed files with 11 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/nflw.pas
View File

@ -893,8 +893,9 @@ implementation
(procinfo.no_fast_exit) or (procinfo.no_fast_exit) or
((procinfo.flags and pi_uses_exceptions)<>0) then ((procinfo.flags and pi_uses_exceptions)<>0) then
begin begin
pt:=load_funcret(aktprocdef); left:=cassignmentnode.create(
left:=cassignmentnode.create(pt,left); cloadnode.create(aktprocdef.funcretsym,aktprocdef.funcretsym.owner),
left);
onlyassign:=true; onlyassign:=true;
end; end;
tvarsym(aktprocdef.funcretsym).varstate:=vs_assigned; tvarsym(aktprocdef.funcretsym).varstate:=vs_assigned;
@ -1494,7 +1495,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.68 2003-04-25 20:59:33 peter Revision 1.69 2003-04-26 00:28:41 peter
* removed load_funcret
Revision 1.68 2003/04/25 20:59:33 peter
* removed funcretn,funcretsym, function result is now in varsym * removed funcretn,funcretsym, function result is now in varsym
and aliases for result and function name are added using absolutesym and aliases for result and function name are added using absolutesym
* vs_hidden parameter for funcret passed in parameter * vs_hidden parameter for funcret passed in parameter

21
compiler/nld.pas
View File

@ -128,7 +128,6 @@ interface
procedure load_procvar_from_calln(var p1:tnode); procedure load_procvar_from_calln(var p1:tnode);
function load_high_value(vs:tvarsym):tnode; function load_high_value(vs:tvarsym):tnode;
function load_funcret(pd:tprocdef):tnode;
implementation implementation
@ -200,21 +199,6 @@ implementation
end; end;
function load_funcret(pd:tprocdef):tnode;
var
srsym : tsym;
srsymtable : tsymtable;
begin
result:=nil;
srsymtable:=pd.localst;
srsym:=searchsymonlyin(srsymtable,'result');
if assigned(srsym) then
result:=cloadnode.create(srsym,srsymtable)
else
CGMessage(cg_e_illegal_expression);
end;
{***************************************************************************** {*****************************************************************************
TLOADNODE TLOADNODE
*****************************************************************************} *****************************************************************************}
@ -1151,7 +1135,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.87 2003-04-25 20:59:33 peter Revision 1.88 2003-04-26 00:28:42 peter
* removed load_funcret
Revision 1.87 2003/04/25 20:59:33 peter
* removed funcretn,funcretsym, function result is now in varsym * removed funcretn,funcretsym, function result is now in varsym
and aliases for result and function name are added using absolutesym and aliases for result and function name are added using absolutesym
* vs_hidden parameter for funcret passed in parameter * vs_hidden parameter for funcret passed in parameter