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

- undid previous commit, it wasn't necessary

Browse Source
This commit is contained in:
Jonas Maebe 2003-05-16 20:54:12 +00:00
parent d816c6a8c6
commit 3973883fe1
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/cgbase.pas
View File

@ -422,12 +422,6 @@ implementation
procedure tprocinfo.after_pass1; procedure tprocinfo.after_pass1;
begin begin
{$ifdef powerpc}
{ do it again because of implicit para's (HACK, JM) }
{ Retrieve function result offset }
if assigned(procdef.funcretsym) then
current_procinfo.return_offset:=tvarsym(procdef.funcretsym).adjusted_address;
{$endif powerpc}
end; end;
@ -585,7 +579,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.49 2003-05-16 20:00:39 jonas Revision 1.50 2003-05-16 20:54:12 jonas
- undid previous commit, it wasn't necessary
Revision 1.49 2003/05/16 20:00:39 jonas
* powerpc nested procedure fixes, should work completely now if all * powerpc nested procedure fixes, should work completely now if all
local variables of the parent procedure are declared before the local variables of the parent procedure are declared before the
nested procedures are declared nested procedures are declared