paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 09:26:15 +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;
end; end;
{ calling a code fragment by name } { calling a code fragment by name }
procedure tcgppc.a_call_name(list : taasmoutput;const s : string); procedure tcgppc.a_call_name(list : taasmoutput;const s : string);
@ -259,9 +260,21 @@ const
{ calling a code fragment through a reference } { calling a code fragment through a reference }
procedure tcgppc.a_call_ref(list : taasmoutput;const ref : treference); procedure tcgppc.a_call_ref(list : taasmoutput;const ref : treference);
var
href : treference;
begin begin
{$warning FIX ME} { save our RTOC register value. Only necessary when doing pointer based }
procinfo.flags:=procinfo.flags or pi_do_call; { 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; end;
{********************** load instructions ********************} {********************** load instructions ********************}
@ -1674,7 +1687,10 @@ begin
end. end.
{ {
$Log$ $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 + the ppc gas assembler writer adds now registers aliases
to the assembler file to the assembler file