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

* call inherited after_header as well

Browse Source
This commit is contained in:
Jonas Maebe 2003-05-09 19:00:30 +00:00
parent 1a2eedd767
commit f64d66fa48
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/powerpc/cpupi.pas
View File

@ -68,6 +68,7 @@ unit cpupi;
{ this value is necessary for nested procedures } { this value is necessary for nested procedures }
if assigned(procdef.localst) then if assigned(procdef.localst) then
procdef.localst.address_fixup:=align(procdef.parast.address_fixup+procdef.parast.datasize,16); procdef.localst.address_fixup:=align(procdef.parast.address_fixup+procdef.parast.datasize,16);
inherited after_header;
end; end;
procedure tppcprocinfo.after_pass1; procedure tppcprocinfo.after_pass1;
@ -113,7 +114,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.12 2003-04-27 11:21:36 peter Revision 1.13 2003-05-09 19:00:30 jonas
* call inherited after_header as well
Revision 1.12 2003/04/27 11:21:36 peter
* aktprocdef renamed to current_procdef * aktprocdef renamed to current_procdef
* procinfo renamed to current_procinfo * procinfo renamed to current_procinfo
* procinfo will now be stored in current_module so it can be * procinfo will now be stored in current_module so it can be