mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 14:27:59 +02:00
342 lines
16 KiB
ObjectPascal
342 lines
16 KiB
ObjectPascal
{
|
|
Copyright (c) 2019 by Florian Klämpfl
|
|
|
|
ARM version of some node tree helper routines
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 2 of the License, or
|
|
(at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program; if not, write to the Free Software
|
|
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
|
|
****************************************************************************
|
|
}
|
|
unit narmutil;
|
|
|
|
{$i fpcdefs.inc}
|
|
|
|
interface
|
|
|
|
uses
|
|
cclasses,ngenutil,fmodule;
|
|
|
|
type
|
|
tarmnodeutils = class(tnodeutils)
|
|
class procedure InsertObjectInfo; override;
|
|
class procedure insert_init_final_table(main : tmodule; entries: tfplist); override;
|
|
end;
|
|
|
|
|
|
implementation
|
|
|
|
uses
|
|
verbose,
|
|
systems,
|
|
globals,
|
|
cpuinfo,cpubase,
|
|
cgbase,cgutils,
|
|
aasmbase,aasmdata,aasmtai,aasmcpu,
|
|
symdef;
|
|
|
|
const
|
|
Tag_File = 1;
|
|
Tag_Section = 2;
|
|
Tag_Symbol = 3;
|
|
Tag_CPU_raw_name = 4;
|
|
Tag_CPU_name = 5;
|
|
Tag_CPU_arch = 6;
|
|
Tag_CPU_arch_profile = 7;
|
|
Tag_ARM_ISA_use = 8;
|
|
Tag_THUMB_ISA_use = 9;
|
|
Tag_FP_Arch = 10;
|
|
Tag_WMMX_arch = 11;
|
|
Tag_Advanced_SIMD_arch = 12;
|
|
Tag_PCS_config = 13;
|
|
Tag_ABI_PCS_R9_use = 14;
|
|
Tag_ABI_PCS_RW_data = 15;
|
|
Tag_ABI_PCS_RO_data = 16;
|
|
Tag_ABI_PCS_GOT_use = 17;
|
|
Tag_ABI_PCS_wchar_t = 18;
|
|
Tag_ABI_FP_rounding = 19;
|
|
Tag_ABI_FP_denormal = 20;
|
|
Tag_ABI_FP_exceptions = 21;
|
|
Tag_ABI_FP_user_exceptions = 22;
|
|
Tag_ABI_FP_number_model = 23;
|
|
Tag_ABI_align_needed = 24;
|
|
Tag_ABI_align8_preserved = 25;
|
|
Tag_ABI_enum_size = 26;
|
|
Tag_ABI_HardFP_use = 27;
|
|
Tag_ABI_VFP_args = 28;
|
|
Tag_ABI_WMMX_args = 29;
|
|
Tag_ABI_optimization_goals = 30;
|
|
Tag_ABI_FP_optimization_goals = 31;
|
|
Tag_compatiblity = 32;
|
|
Tag_CPU_unaligned_access = 34;
|
|
Tag_FP_HP_extension = 36;
|
|
Tag_ABI_FP_16bit_format = 38;
|
|
Tag_MPextension_use = 42;
|
|
Tag_DIV_use = 44;
|
|
Tag_nodefaults = 64;
|
|
Tag_also_compatible_with = 65;
|
|
Tag_conformance = 67;
|
|
Tag_T2EE_use = 66;
|
|
Tag_Virtualization_use = 68;
|
|
|
|
class procedure tarmnodeutils.InsertObjectInfo;
|
|
begin
|
|
inherited InsertObjectInfo;
|
|
{ write eabi attributes to object file? }
|
|
if (target_info.system in [system_arm_linux]) and (target_info.abi in [abi_eabihf,abi_eabi]) then
|
|
begin
|
|
case current_settings.cputype of
|
|
cpu_armv2,
|
|
cpu_armv3:
|
|
begin
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_arch,0));
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_arch_profile,0));
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_name,''));
|
|
end;
|
|
cpu_armv4:
|
|
begin
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_arch,1));
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_arch_profile,0));
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_name,'4'));
|
|
end;
|
|
cpu_armv4t:
|
|
begin
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_arch,2));
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_arch_profile,0));
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_name,'4T'));
|
|
end;
|
|
cpu_armv5t:
|
|
begin
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_arch,3));
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_arch_profile,0));
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_name,'5T'));
|
|
end;
|
|
cpu_armv5te:
|
|
begin
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_arch,4));
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_arch_profile,0));
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_name,'5TE'));
|
|
end;
|
|
cpu_armv5tej:
|
|
begin
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_arch,5));
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_arch_profile,0));
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_name,'5TEJ'));
|
|
end;
|
|
cpu_armv6:
|
|
begin
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_arch,6));
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_arch_profile,0));
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_name,'6'));
|
|
end;
|
|
cpu_armv6k:
|
|
begin
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_arch,9));
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_arch_profile,0));
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_name,'6K'));
|
|
end;
|
|
cpu_armv6t2:
|
|
begin
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_arch,8));
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_arch_profile,0));
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_name,'T2'));
|
|
end;
|
|
cpu_armv6z:
|
|
begin
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_arch,7));
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_arch_profile,0));
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_name,'6Z'));
|
|
end;
|
|
cpu_armv6m:
|
|
begin
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_arch,11));
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_arch_profile,0));
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_name,'6-M'));
|
|
end;
|
|
cpu_armv7:
|
|
begin
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_arch,10));
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_arch_profile,0));
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_name,'7'));
|
|
end;
|
|
cpu_armv7a:
|
|
begin
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_arch,10));
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_arch_profile,$41));
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_name,'7-A'));
|
|
end;
|
|
cpu_armv7r:
|
|
begin
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_arch,10));
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_arch_profile,$52));
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_name,'7-R'));
|
|
end;
|
|
cpu_armv7m:
|
|
begin
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_arch,10));
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_arch_profile,$4D));
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_name,'7-M'));
|
|
end;
|
|
cpu_armv7em:
|
|
begin
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_arch,13));
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_arch_profile,$4D));
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_CPU_name,'7E-M'));
|
|
end;
|
|
else
|
|
Internalerror(2019100602);
|
|
end;
|
|
case current_settings.fputype of
|
|
fpu_none,
|
|
fpu_soft,
|
|
fpu_libgcc,
|
|
fpu_fpa,
|
|
fpu_fpa10,
|
|
fpu_fpa11:
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_FP_Arch,0));
|
|
fpu_vfpv2:
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_FP_Arch,2));
|
|
fpu_vfpv3,
|
|
fpu_neon_vfpv3:
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_FP_Arch,3));
|
|
fpu_vfpv3_d16:
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_FP_Arch,4));
|
|
fpu_fpv4_sp_d16,
|
|
fpu_fpv4_s16:
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_FP_Arch,6));
|
|
fpu_vfpv4,
|
|
fpu_neon_vfpv4:
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_FP_Arch,5));
|
|
fpu_fpv5_sp_d16,
|
|
fpu_fpv5_d16:
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_FP_Arch,8));
|
|
fpu_fp_armv8:
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_FP_Arch,7));
|
|
{ else not needed anymore PM 2020/04/13
|
|
Internalerror(2019100603); }
|
|
end;
|
|
if FPUARM_HAS_FMA in fpu_capabilities[current_settings.fputype] then
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_Advanced_SIMD_arch,2))
|
|
else if FPUARM_HAS_NEON in fpu_capabilities[current_settings.fputype] then
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_Advanced_SIMD_arch,1))
|
|
else
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_Advanced_SIMD_arch,0));
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_ARM_ISA_use,1));
|
|
if CPUARM_HAS_THUMB2 in cpu_capabilities[current_settings.cputype] then
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_THUMB_ISA_use,2))
|
|
else
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_THUMB_ISA_use,1));
|
|
if target_info.abi=abi_eabihf then
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_ABI_VFP_args,1))
|
|
else
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_ABI_VFP_args,0));
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_ABI_FP_denormal,1));
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_ABI_FP_exceptions,1));
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_ABI_FP_number_model,3));
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_ABI_align_needed,0));
|
|
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_eabi_attribute,Tag_ABI_align8_preserved,1));
|
|
{ gcc typically writes more like enum size, wchar size, optimization goal, however, this
|
|
is normally not module global in FPC }
|
|
end;
|
|
end;
|
|
|
|
class procedure tarmnodeutils.insert_init_final_table(main : tmodule; entries:tfplist);
|
|
|
|
procedure genentry(list : TAsmList);
|
|
var
|
|
ref: treference;
|
|
begin
|
|
if GenerateThumbCode then
|
|
list.concat(taicpu.op_regset(A_PUSH,R_INTREGISTER,R_SUBWHOLE,[RS_R14]))
|
|
else
|
|
begin
|
|
reference_reset(ref,4,[]);
|
|
ref.index:=NR_STACK_POINTER_REG;
|
|
ref.addressmode:=AM_PREINDEXED;
|
|
list.concat(setoppostfix(taicpu.op_ref_regset(A_STM,ref,R_INTREGISTER,R_SUBWHOLE,[RS_R14]),PF_FD));
|
|
end;
|
|
end;
|
|
|
|
procedure genexit(list : TAsmList);
|
|
var
|
|
ref: treference;
|
|
begin
|
|
if GenerateThumbCode then
|
|
list.concat(taicpu.op_regset(A_POP,R_INTREGISTER,R_SUBWHOLE,[RS_R15]))
|
|
else
|
|
begin
|
|
reference_reset(ref,4,[]);
|
|
ref.index:=NR_STACK_POINTER_REG;
|
|
ref.addressmode:=AM_PREINDEXED;
|
|
list.concat(setoppostfix(taicpu.op_ref_regset(A_LDM,ref,R_INTREGISTER,R_SUBWHOLE,[RS_R15]),PF_FD));
|
|
end;
|
|
end;
|
|
|
|
var
|
|
initList, finalList, header: TAsmList;
|
|
entry : pinitfinalentry;
|
|
i : longint;
|
|
begin
|
|
if not(tf_init_final_units_by_calls in target_info.flags) then
|
|
begin
|
|
inherited insert_init_final_table(main,entries);
|
|
exit;
|
|
end;
|
|
initList:=TAsmList.create;
|
|
finalList:=TAsmList.create;
|
|
|
|
genentry(finalList);
|
|
genentry(initList);
|
|
|
|
for i:=0 to entries.count-1 do
|
|
begin
|
|
entry:=pinitfinalentry(entries[i]);
|
|
if entry^.finifunc<>'' then
|
|
finalList.Concat(taicpu.op_sym(A_BL,current_asmdata.RefAsmSymbol(entry^.finifunc,AT_FUNCTION)));
|
|
if entry^.initfunc<>'' then
|
|
initList.Concat(taicpu.op_sym(A_BL,current_asmdata.RefAsmSymbol(entry^.initfunc,AT_FUNCTION)));
|
|
end;
|
|
|
|
genexit(finalList);
|
|
genexit(initList);
|
|
|
|
header:=TAsmList.create;
|
|
new_section(header, sec_code, 'FPC_INIT_FUNC_TABLE', 1);
|
|
header.concat(tai_symbol.Createname_global('FPC_INIT_FUNC_TABLE',AT_FUNCTION,0,voidcodepointertype));
|
|
|
|
initList.insertList(header);
|
|
header.free;
|
|
|
|
current_asmdata.AsmLists[al_procedures].concatList(initList);
|
|
|
|
header:=TAsmList.create;
|
|
new_section(header, sec_code, 'FPC_FINALIZE_FUNC_TABLE', 1);
|
|
header.concat(tai_symbol.Createname_global('FPC_FINALIZE_FUNC_TABLE',AT_FUNCTION,0,voidcodepointertype));
|
|
|
|
finalList.insertList(header);
|
|
header.free;
|
|
|
|
current_asmdata.AsmLists[al_procedures].concatList(finalList);
|
|
|
|
initList.Free;
|
|
finalList.Free;
|
|
|
|
inherited insert_init_final_table(main,entries);
|
|
end;
|
|
|
|
begin
|
|
cnodeutils:=tarmnodeutils;
|
|
end.
|
|
|