paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 04:39:28 +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.flags and pi_uses_exceptions)<>0) then
begin
pt:=load_funcret(aktprocdef);
left:=cassignmentnode.create(pt,left);
left:=cassignmentnode.create(
cloadnode.create(aktprocdef.funcretsym,aktprocdef.funcretsym.owner),
left);
onlyassign:=true;
end;
tvarsym(aktprocdef.funcretsym).varstate:=vs_assigned;
@ -1494,7 +1495,10 @@ begin
end.
{
$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
and aliases for result and function name are added using absolutesym
* 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);
function load_high_value(vs:tvarsym):tnode;
function load_funcret(pd:tprocdef):tnode;
implementation
@ -200,21 +199,6 @@ implementation
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
*****************************************************************************}
@ -1151,7 +1135,10 @@ begin
end.
{
$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
and aliases for result and function name are added using absolutesym
* vs_hidden parameter for funcret passed in parameter