diff --git a/compiler/cgbase.pas b/compiler/cgbase.pas index bc144e1626..3c77ba0b7f 100644 --- a/compiler/cgbase.pas +++ b/compiler/cgbase.pas @@ -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 diff --git a/compiler/psub.pas b/compiler/psub.pas index 8172cb1619..75723c23aa 100644 --- a/compiler/psub.pas +++ b/compiler/psub.pas @@ -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