paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 16:31:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

* load result using hidden parameter

Browse Source
This commit is contained in:
peter 2003-05-25 08:55:49 +00:00
parent 1f099e81a7
commit cbbbd01d44
1 changed files with 5 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/rautils.pas
View File

@ -740,15 +740,7 @@ Begin
Message(asmr_e_cannot_use_RESULT_here); Message(asmr_e_cannot_use_RESULT_here);
exit; exit;
end; end;
opr.ref.offset:=current_procinfo.return_offset; SetupResult:=setupvar('result',false)
opr.ref.base:=current_procinfo.framepointer;
opr.ref.options:=ref_parafixup;
{ always assume that the result is valid. }
tvarsym(current_procdef.funcretsym).varstate:=vs_assigned;
{ increase reference count, this is also used to check
if the result variable is actually used or not }
inc(tvarsym(current_procdef.funcretsym).refcount);
SetupResult:=true;
end end
else else
Message(asmr_e_void_function); Message(asmr_e_void_function);
@ -1562,7 +1554,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.60 2003-05-15 18:58:53 peter Revision 1.61 2003-05-25 08:55:49 peter
* load result using hidden parameter
Revision 1.60 2003/05/15 18:58:53 peter
* removed selfpointer_offset, vmtpointer_offset * removed selfpointer_offset, vmtpointer_offset
* tvarsym.adjusted_address * tvarsym.adjusted_address
* address in localsymtable is now in the real direction * address in localsymtable is now in the real direction