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

+ implemented a_call_ref()

Browse Source
This commit is contained in:
Jonas Maebe 2002-08-31 19:25:50 +00:00
parent 2290ef3c9c
commit 76111bb9eb
1 changed files with 19 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/powerpc/cgcpu.pas
View File

@ -241,6 +241,7 @@ const
end;
end;
{ calling a code fragment by name }
procedure tcgppc.a_call_name(list : taasmoutput;const s : string);
@ -259,9 +260,21 @@ const
{ calling a code fragment through a reference }
procedure tcgppc.a_call_ref(list : taasmoutput;const ref : treference);
var
href : treference;
begin
{$warning FIX ME}
procinfo.flags:=procinfo.flags or pi_do_call;
{ save our RTOC register value. Only necessary when doing pointer based }
{ calls or cross TOC calls, but currently done always }
reference_reset_base(href,STACK_POINTER_REG,LA_RTOC);
list.concat(taicpu.op_reg_ref(A_STW,R_TOC,href));
a_reg_alloc(list,R_0);
a_load_ref_reg(list,OS_ADDR,ref,R_0);
list.concat(taicpu.op_reg_reg(A_MTSPR,R_LR,R_0));
a_reg_dealloc(list,R_0);
list.concat(taicpu.op_none(A_BCCTRL));
list.concat(taicpu.op_reg_ref(A_LWZ,R_TOC,href));
procinfo.flags:=procinfo.flags or pi_do_call;
end;
{********************** load instructions ********************}
@ -1674,7 +1687,10 @@ begin
end.
{
$Log$
Revision 1.45 2002-08-18 22:16:14 florian
Revision 1.46 2002-08-31 19:25:50 jonas
+ implemented a_call_ref()
Revision 1.45 2002/08/18 22:16:14 florian
+ the ppc gas assembler writer adds now registers aliases
to the assembler file