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

* set return_offset moved to after_header

Browse Source
This commit is contained in:
peter 2003-04-26 00:31:42 +00:00
parent 6720314fc5
commit 9b236892b7
2 changed files with 9 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/cgbase.pas
View File

@ -171,9 +171,6 @@ unit cgbase;
Here the address fix ups to generate code for the body must be done.
}
procedure after_pass1;virtual;
{ sets the offset for a temp used by the result }
procedure set_result_offset;virtual;
end;
pregvarinfo = ^tregvarinfo;
@ -442,7 +439,7 @@ implementation
end;
procedure tprocinfo.set_result_offset;
procedure tprocinfo.after_header;
begin
if assigned(procdef.funcretsym) then
begin
@ -453,11 +450,6 @@ implementation
end;
end;
procedure tprocinfo.after_header;
begin
end;
procedure tprocinfo.after_pass1;
begin
end;
@ -674,7 +666,10 @@ begin
end.
{
$Log$
Revision 1.42 2003-04-25 20:59:33 peter
Revision 1.43 2003-04-26 00:31:42 peter
* set return_offset moved to after_header
Revision 1.42 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

6
compiler/psub.pas
View File

@ -724,7 +724,6 @@ implementation
procinfo.allocate_interrupt_stackframe;
{$endif i386}
procinfo.set_result_offset;
procinfo.after_header;
{ set _FAIL as keyword if constructor }
@ -887,7 +886,10 @@ implementation
end.
{
$Log$
Revision 1.104 2003-04-25 20:59:34 peter
Revision 1.105 2003-04-26 00:31:42 peter
* set return_offset moved to after_header
Revision 1.104 2003/04/25 20:59:34 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