paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-25 12:41:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed para/localst calculations (note to self: don't commit at

Browse Source 
extremely late/early hours :)
This commit is contained in:
Jonas Maebe 2003-05-17 14:05:30 +00:00
parent cb279b2029
commit 624819ccb8
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/powerpc/cpupi.pas
View File

@ -80,6 +80,9 @@ unit cpupi;
begin begin
if not(po_assembler in procdef.procoptions) then if not(po_assembler in procdef.procoptions) then
begin begin
procdef.parast.address_fixup := 0;
allocate_implicit_parameter;
procdef.localst.address_fixup := procdef.parast.address_fixup + procdef.parast.datasize;
ofs:=align(maxpushedparasize+LinkageAreaSize,16); ofs:=align(maxpushedparasize+LinkageAreaSize,16);
inc(procdef.parast.address_fixup,ofs); inc(procdef.parast.address_fixup,ofs);
inc(framepointer_offset,ofs); inc(framepointer_offset,ofs);
@ -119,7 +122,11 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.17 2003-05-16 23:15:51 jonas Revision 1.18 2003-05-17 14:05:30 jonas
* fixed para/localst calculations (note to self: don't commit at
extremely late/early hours :)
Revision 1.17 2003/05/16 23:15:51 jonas
* workaround for nested procedures until Peter fixes it properly :) * workaround for nested procedures until Peter fixes it properly :)
Revision 1.16 2003/05/16 20:00:39 jonas Revision 1.16 2003/05/16 20:00:39 jonas