paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 15:47:51 +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 }
if assigned(procdef.localst) then
procdef.localst.address_fixup:=align(procdef.parast.address_fixup+procdef.parast.datasize,16);
inherited after_header;
end;
procedure tppcprocinfo.after_pass1;
@ -113,7 +114,10 @@ begin
end.
{
$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
* procinfo renamed to current_procinfo
* procinfo will now be stored in current_module so it can be