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

* fixed offset calculation for symtables etc.

Browse Source
This commit is contained in:
florian 2002-09-10 20:30:42 +00:00
parent ad5c522f02
commit 07eeafd07a
1 changed files with 35 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
compiler/powerpc/cpupi.pas
View File

@ -50,9 +50,10 @@ unit cpupi;
uses
globtype,globals,
cpubase,
aasmtai,
tgobj,
symsym;
symsym,paramgr;
constructor tppcprocinfo.create;
@ -64,21 +65,45 @@ unit cpupi;
procedure tppcprocinfo.after_header;
begin
procdef.parast.address_fixup:=0;
if procdef.localst.symtablelevel>1 then
begin
procinfo.framepointer_offset:=procdef.parast.address_fixup;
inc(procdef.parast.address_fixup,4);
end;
if paramanager.ret_in_param(procdef.rettype.def) then
begin
procinfo.return_offset:=procdef.parast.address_fixup;
inc(procdef.parast.address_fixup,4);
end;
if assigned(_class) then
begin
procinfo.selfpointer_offset:=procdef.parast.address_fixup;
inc(procdef.parast.address_fixup,4);
end;
{ this value is necessary for nested procedures }
procdef.localst.address_fixup:=align(procdef.parast.datasize,16);
if assigned(aktprocdef.funcretsym) then
procinfo.return_offset:=tg.direction*tfuncretsym(aktprocdef.funcretsym).address;
procdef.localst.address_fixup:=align(procdef.parast.address_fixup+procdef.parast.datasize,16);
if assigned(aktprocdef.funcretsym) and
not(paramanager.ret_in_param(procdef.rettype.def)) then
procinfo.return_offset:=tg.direction*tfuncretsym(aktprocdef.funcretsym).address+procdef.localst.address_fixup;
end;
procedure tppcprocinfo.after_pass1;
var
ofs : aword;
begin
procdef.parast.address_fixup:=align(maxpushedparasize,16);
ofs:=align(maxpushedparasize,16)+LinkageAreaSize;
inc(procdef.parast.address_fixup,ofs);
inc(procinfo.return_offset,ofs);
inc(procinfo.framepointer_offset,ofs);
inc(procinfo.selfpointer_offset,ofs);
if cs_asm_source in aktglobalswitches then
aktproccode.insert(Tai_comment.Create(strpnew('Parameter copies start at: r1+'+tostr(procdef.parast.address_fixup))));
procdef.localst.address_fixup:=align(procdef.parast.address_fixup+procdef.parast.datasize,16);
if assigned(aktprocdef.funcretsym) then
if assigned(aktprocdef.funcretsym) and
not(paramanager.ret_in_param(procdef.rettype.def)) then
procinfo.return_offset:=tg.direction*tfuncretsym(aktprocdef.funcretsym).address+procdef.localst.address_fixup;
if cs_asm_source in aktglobalswitches then
@ -98,7 +123,10 @@ begin
end.
{
$Log$
Revision 1.3 2002-09-07 17:54:59 florian
Revision 1.4 2002-09-10 20:30:42 florian
* fixed offset calculation for symtables etc.
Revision 1.3 2002/09/07 17:54:59 florian
* first part of PowerPC fixes
Revision 1.2 2002/08/18 20:06:30 peter
@ -111,4 +139,3 @@ end.
* first part of procinfo rewrite
}