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

m68k: some initial support for C ABIs which use an address register to return structs by address

Browse Source 
git-svn-id: trunk@36592 -
This commit is contained in:
Károly Balogh 2017-06-24 19:03:58 +00:00
parent da11451934
commit 41f72a0e6d
2 changed files with 24 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/m68k/cpubase.pas
View File

@ -303,6 +303,14 @@ unit cpubase;
{# Floating point results will be placed into this register } {# Floating point results will be placed into this register }
NR_FPU_RESULT_REG = NR_FP0; NR_FPU_RESULT_REG = NR_FP0;
{# This is m68k C ABI specific. Some ABIs expect the address of the
return struct result value in this register. Note that it could be
either A0 or A1, so later it must be decided on target/ABI specific
basis. We start with A1 now, because that's what Linux/m68k does
currently. (KB) }
RS_M68K_STRUCT_RESULT_REG: tsuperregister = RS_A1;
NR_M68K_STRUCT_RESULT_REG: tregister = NR_A1;
NR_DEFAULTFLAGS = NR_SR; NR_DEFAULTFLAGS = NR_SR;
RS_DEFAULTFLAGS = RS_SR; RS_DEFAULTFLAGS = RS_SR;

18
compiler/m68k/cpupara.pas
View File

@ -357,15 +357,29 @@ unit cpupara;
while (paralen > 0) do while (paralen > 0) do
begin begin
paraloc:=hp.paraloc[side].add_location; paraloc:=hp.paraloc[side].add_location;
paraloc^.loc:=LOC_REFERENCE;
paraloc^.def:=get_paraloc_def(paradef,paralen,firstparaloc); paraloc^.def:=get_paraloc_def(paradef,paralen,firstparaloc);
if (not (cs_fp_emulation in current_settings.moduleswitches)) and if (not (cs_fp_emulation in current_settings.moduleswitches)) and
(paradef.typ=floatdef) then (paradef.typ=floatdef) then
paraloc^.size:=int_float_cgsize(paralen) paraloc^.size:=int_float_cgsize(paralen)
else else
paraloc^.size:=int_cgsize(paralen); paraloc^.size:=int_cgsize(paralen);
{ various m68k based C ABIs used in the Unix world use a register to
return a struct by address. we will probably need some kind of a
switch to support these various ABIs when generating cdecl calls (KB) }
if ((vo_is_funcret in hp.varoptions) and
(tprocdef(p).proccalloption in [pocall_cdecl,pocall_cppdecl]) and
(target_info.system in [system_m68k_linux]) and
(tprocdef(p).returndef.typ = recorddef)) then
begin
paraloc^.loc:=LOC_REGISTER;
paraloc^.register:=NR_M68K_STRUCT_RESULT_REG;
paralen:=0;
continue;
end;
paraloc^.loc:=LOC_REFERENCE;
paraloc^.reference.offset:=cur_stack_offset; paraloc^.reference.offset:=cur_stack_offset;
if (side = callerside) then if (side = callerside) then
paraloc^.reference.index:=NR_STACK_POINTER_REG paraloc^.reference.index:=NR_STACK_POINTER_REG