[fpc-devel] aarch64-linux: PATCH: add aarch64-linux to compiler/
Edmund Grimley Evans
edmund.grimley.evans at gmail.com
Wed May 20 20:52:33 CEST 2015
There are not a lot of changes here: mostly just filling in a few gaps
that were helpfully left for me to fill in. The most interesting
change is in t_linux.pas, where I had to do something a bit different
with linker scripts and "-T". There's a comment in the code there.
Running on a supported system,
make all OS_TARGET=linux CPU_TARGET=aarch64 \
BINUTILSPREFIX=aarch64-linux-gnu- FPC=fpc
gets you as far as the cross-compiler, compiler/ppcrossa64.
diff --git a/compiler/aarch64/agcpugas.pas b/compiler/aarch64/agcpugas.pas
index 4aa2a88..c3895e5 100644
--- a/compiler/aarch64/agcpugas.pas
+++ b/compiler/aarch64/agcpugas.pas
@@ -39,6 +39,10 @@ unit agcpugas;
procedure WriteInstruction(hp : tai);override;
end;
+ TAArch64Assembler=class(TGNUassembler)
+ constructor create(smart: boolean); override;
+ end;
+
TAArch64AppleAssembler=class(TAppleGNUassembler)
constructor create(smart: boolean); override;
function MakeCmdLine: TCmdStr; override;
@@ -69,6 +73,16 @@ unit agcpugas;
{****************************************************************************}
+{ AArch64 Assembler writer }
+{****************************************************************************}
+
+ constructor TAArch64Assembler.create(smart: boolean);
+ begin
+ inherited create(smart);
+ InstrWriter := TAArch64InstrWriter.create(self);
+ end;
+
+{****************************************************************************}
{ Apple AArch64 Assembler writer }
{****************************************************************************}
@@ -99,6 +113,8 @@ unit agcpugas;
const
darwin_addrpage2str: array[addr_page..addr_gotpageoffset] of string[11] =
('@PAGE','@PAGEOFF','@GOTPAGE','@GOTPAGEOFF');
+ linux_addrpage2str: array[addr_page..addr_gotpageoffset] of string[10] =
+ ('',':lo12:',':got:',':got_lo12:');
begin
if ref.base=NR_NO then
begin
@@ -117,8 +133,7 @@ unit agcpugas;
if target_asm.id=as_darwin then
result:=ref.symbol.name+darwin_addrpage2str[ref.refaddr]
else
- { todo }
- internalerror(2014121502);
+ result:=linux_addrpage2str[ref.refaddr]+ref.symbol.name
end
else
internalerror(2015022301);
@@ -160,8 +175,7 @@ unit agcpugas;
if target_asm.id=as_darwin then
result:=result+', '+ref.symbol.name+darwin_addrpage2str[ref.refaddr]
else
- { todo }
- internalerror(2014122510);
+ result:=result+', '+linux_addrpage2str[ref.refaddr]+ref.symbol.name
end
else
{ todo: not yet generated/don't know syntax }
@@ -269,6 +283,19 @@ unit agcpugas;
const
+ as_aarch64_gas_info : tasminfo =
+ (
+ id : as_gas;
+ idtxt : 'AS';
+ asmbin : 'as';
+ asmcmd : '-o $OBJ $EXTRAOPT $ASM';
+ supported_targets : [system_aarch64_linux];
+ flags : [af_needar,af_smartlink_sections];
+ labelprefix : '.L';
+ comment : '// ';
+ dollarsign: '$';
+ );
+
as_aarch64_gas_darwin_info : tasminfo =
(
id : as_darwin;
@@ -284,5 +311,6 @@ unit agcpugas;
begin
+ RegisterAssembler(as_aarch64_gas_info,TAArch64Assembler);
RegisterAssembler(as_aarch64_gas_darwin_info,TAArch64AppleAssembler);
end.
diff --git a/compiler/aarch64/cgcpu.pas b/compiler/aarch64/cgcpu.pas
index dcec48d..471c318 100644
--- a/compiler/aarch64/cgcpu.pas
+++ b/compiler/aarch64/cgcpu.pas
@@ -171,7 +171,7 @@ implementation
the address of the entry itself from that page (can be relaxed by
the linker in case the variable itself can be stored directly in
the GOT) }
- if target_info.system in systems_darwin then
+ if target_info.system in (systems_darwin + systems_linux) then
begin
if (preferred_newbasereg=NR_NO) or
(ref.base=preferred_newbasereg) or
@@ -1631,9 +1631,7 @@ implementation
procedure tcgaarch64.g_maybe_got_init(list : TAsmList);
begin
- { nothing to do on Darwin; check on ELF targets }
- if not(target_info.system in systems_darwin) then
- internalerror(2014112601);
+ { nothing to do on Darwin or Linux }
end;
diff --git a/compiler/aarch64/cputarg.pas b/compiler/aarch64/cputarg.pas
index a05c853..584a295 100644
--- a/compiler/aarch64/cputarg.pas
+++ b/compiler/aarch64/cputarg.pas
@@ -36,7 +36,7 @@ implementation
**************************************}
{$ifndef NOTARGETLINUX}
-// ,t_linux
+ ,t_linux
{$endif}
{$ifndef NOTARGETBSD}
,t_bsd
diff --git a/compiler/systems.inc b/compiler/systems.inc
index e4970f0..454e839 100644
--- a/compiler/systems.inc
+++ b/compiler/systems.inc
@@ -168,8 +168,9 @@
system_i386_aros, { 83 }
system_x86_64_aros, { 84 }
system_x86_64_dragonfly, { 85 }
- system_aarch64_darwin, { 85 }
- system_x86_64_iphonesim { 86 }
+ system_aarch64_darwin, { 86 }
+ system_x86_64_iphonesim, { 87 }
+ system_aarch64_linux { 88 }
);
type
diff --git a/compiler/systems.pas b/compiler/systems.pas
index 2e415ea..9ba1c14 100644
--- a/compiler/systems.pas
+++ b/compiler/systems.pas
@@ -224,7 +224,7 @@ interface
systems_android = [system_arm_android, system_i386_android, system_mipsel_android];
systems_linux = [system_i386_linux,system_x86_64_linux,system_powerpc_linux,system_powerpc64_linux,
system_arm_linux,system_sparc_linux,system_alpha_linux,system_m68k_linux,
- system_x86_6432_linux,system_mipseb_linux,system_mipsel_linux];
+ system_x86_6432_linux,system_mipseb_linux,system_mipsel_linux,system_aarch64_linux];
systems_dragonfly = [system_x86_64_dragonfly];
systems_freebsd = [system_i386_freebsd,
system_x86_64_freebsd];
@@ -958,8 +958,7 @@ begin
default_target(system_aarch64_darwin);
{$endif darwin}
{$ifndef default_target_set}
- { change to Linux once aarch64 Linux support has been implemented }
- default_target(system_aarch64_darwin);
+ default_target(system_aarch64_linux);
{$define default_target_set}
{$endif}
{$endif cpuaarch64}
diff --git a/compiler/systems/i_linux.pas b/compiler/systems/i_linux.pas
index b291320..25e2417 100644
--- a/compiler/systems/i_linux.pas
+++ b/compiler/systems/i_linux.pas
@@ -824,6 +824,74 @@ unit i_linux;
{$endif FPC_ARMEL}
{$endif FPC_ARMHF}
+ system_aarch64_linux_info : tsysteminfo =
+ (
+ system : system_aarch64_linux;
+ name : 'Linux for AArch64';
+ shortname : 'Linux';
+ flags : [tf_needs_symbol_size,
+ tf_needs_symbol_type,
+ tf_files_case_sensitive,
+ tf_requires_proper_alignment,
+ tf_smartlink_sections,tf_pic_uses_got,
+ tf_has_winlike_resources];
+ cpu : cpu_aarch64;
+ unit_env : 'LINUXUNITS';
+ extradefines : 'UNIX;HASUNIX';
+ exeext : '';
+ defext : '.def';
+ scriptext : '.sh';
+ smartext : '.sl';
+ unitext : '.ppu';
+ unitlibext : '.ppl';
+ asmext : '.s';
+ objext : '.o';
+ resext : '.res';
+ resobjext : '.or';
+ sharedlibext : '.so';
+ staticlibext : '.a';
+ staticlibprefix : 'libp';
+ sharedlibprefix : 'lib';
+ sharedClibext : '.so';
+ staticClibext : '.a';
+ staticClibprefix : 'lib';
+ sharedClibprefix : 'lib';
+ importlibprefix : 'libimp';
+ importlibext : '.a';
+ Cprefix : '';
+ newline : #10;
+ dirsep : '/';
+ assem : as_gas;
+ assemextern : as_gas;
+ link : ld_none;
+ linkextern : ld_linux;
+ ar : ar_gnu_ar;
+ res : res_elf;
+ dbg : dbg_stabs;
+ script : script_unix;
+ endian : endian_little;
+ alignment :
+ (
+ procalign : 8;
+ loopalign : 4;
+ jumpalign : 0;
+ constalignmin : 0;
+ constalignmax : 8;
+ varalignmin : 0;
+ varalignmax : 16;
+ localalignmin : 4;
+ localalignmax : 16;
+ recordalignmin : 0;
+ recordalignmax : 16;
+ maxCrecordalign : 16
+ );
+ first_parm_offset : 16;
+ stacksize : 8*1024*1024;
+ stackalign : 16;
+ abi : abi_default;
+ llvmdatalayout : 'e-p:64:64:64-i1:8:8-i8:8:8-i16:16:16-i32:32:32-i64:64:64-f32:32:32-f64:64:64-v64:64:64-v128:128:128-a0:0:64-n32:64-S128'
+ );
+
system_mipseb_linux_info : tsysteminfo =
(
system : system_mipseb_LINUX;
@@ -1009,6 +1077,11 @@ initialization
set_source_info(system_arm_linux_info);
{$endif linux}
{$endif CPUARM}
+{$ifdef cpuaarch64}
+ {$ifdef linux}
+ set_source_info(system_aarch64_linux_info);
+ {$endif linux}
+{$endif cpuaarch64}
{$ifdef CPUMIPSEB}
{$ifdef linux}
set_source_info(system_mipseb_linux_info);
diff --git a/compiler/systems/t_linux.pas b/compiler/systems/t_linux.pas
index 469fc00..35f2947 100644
--- a/compiler/systems/t_linux.pas
+++ b/compiler/systems/t_linux.pas
@@ -192,6 +192,10 @@ end;
{$endif FPC_ARMHF}
{$endif arm}
+{$ifdef aarch64}
+const defdynlinker='/lib/ld-linux-aarch64.so.1';
+{$endif aarch64}
+
{$ifdef mips}
const defdynlinker='/lib/ld.so.1';
{$endif mips}
@@ -289,6 +293,7 @@ const
{$ifdef POWERPC64} platform_select='';{$endif}
{$ifdef sparc} platform_select='-b elf32-sparc -m elf32_sparc';{$endif}
{$ifdef arm} platform_select='';{$endif} {unknown :( }
+{$ifdef aarch64} platform_select='';{$endif} {unknown :( }
{$ifdef m68k} platform_select='';{$endif} {unknown :( }
{$ifdef mips}
{$ifdef mipsel}
@@ -722,6 +727,236 @@ begin
add('}');
{$endif x86_64}
+{$ifdef AArch64}
+{$define LINKERSCRIPT_INCLUDED}
+ if isdll or (sysrootpath='') then begin
+ { On other architectures, supplying a complete linker script
+ without the -T option just results in:
+ warning: link.res contains output sections; did you forget -T?
+ However, with a recent aarch64 linker the result is:
+ /usr/bin/ld: internal error ../../ld/ldlang.c 5221
+ So in these cases, where -T will not be used, we supply a
+ minimal linker script with just the FPC-specific part: }
+ add('SECTIONS');
+ add('{');
+ add(' .data :');
+ add(' {');
+ { extra by FPC }
+ add(' KEEP (*(.fpc .fpc.n_version .fpc.n_links))');
+ add(' }');
+ add('}');
+ end else begin
+ { Complete linker script for aarch64-linux: }
+ add('SECTIONS');
+ add('{');
+ add(' /* Read-only sections, merged into text segment: */');
+ add(' PROVIDE (__executable_start = SEGMENT_START("text-segment", 0x400000)); . = SEGMENT_START("text-segment", 0x400000) + SIZEOF_HEADERS;');
+ add(' .interp : { *(.interp) }');
+ add(' .note.gnu.build-id : { *(.note.gnu.build-id) }');
+ add(' .hash : { *(.hash) }');
+ add(' .gnu.hash : { *(.gnu.hash) }');
+ add(' .dynsym : { *(.dynsym) }');
+ add(' .dynstr : { *(.dynstr) }');
+ add(' .gnu.version : { *(.gnu.version) }');
+ add(' .gnu.version_d : { *(.gnu.version_d) }');
+ add(' .gnu.version_r : { *(.gnu.version_r) }');
+ add(' .rela.dyn :');
+ add(' {');
+ add(' *(.rela.init)');
+ add(' *(.rela.text .rela.text.* .rela.gnu.linkonce.t.*)');
+ add(' *(.rela.fini)');
+ add(' *(.rela.rodata .rela.rodata.* .rela.gnu.linkonce.r.*)');
+ add(' *(.rela.data .rela.data.* .rela.gnu.linkonce.d.*)');
+ add(' *(.rela.tdata .rela.tdata.* .rela.gnu.linkonce.td.*)');
+ add(' *(.rela.tbss .rela.tbss.* .rela.gnu.linkonce.tb.*)');
+ add(' *(.rela.ctors)');
+ add(' *(.rela.dtors)');
+ add(' *(.rela.got)');
+ add(' *(.rela.bss .rela.bss.* .rela.gnu.linkonce.b.*)');
+ add(' *(.rela.ifunc)');
+ add(' }');
+ add(' .rela.plt :');
+ add(' {');
+ add(' *(.rela.plt)');
+ add(' PROVIDE_HIDDEN (__rela_iplt_start = .);');
+ add(' *(.rela.iplt)');
+ add(' PROVIDE_HIDDEN (__rela_iplt_end = .);');
+ add(' }');
+ add(' .init :');
+ add(' {');
+ add(' KEEP (*(SORT_NONE(.init)))');
+ add(' } =0');
+ add(' .plt : ALIGN(16) { *(.plt) *(.iplt) }');
+ add(' .text :');
+ add(' {');
+ add(' *(.text.unlikely .text.*_unlikely .text.unlikely.*)');
+ add(' *(.text.exit .text.exit.*)');
+ add(' *(.text.startup .text.startup.*)');
+ add(' *(.text.hot .text.hot.*)');
+ add(' *(.text .stub .text.* .gnu.linkonce.t.*)');
+ add(' /* .gnu.warning sections are handled specially by elf32.em. */');
+ add(' *(.gnu.warning)');
+ add(' } =0');
+ add(' .fini :');
+ add(' {');
+ add(' KEEP (*(SORT_NONE(.fini)))');
+ add(' } =0');
+ add(' PROVIDE (__etext = .);');
+ add(' PROVIDE (_etext = .);');
+ add(' PROVIDE (etext = .);');
+ add(' .rodata : { *(.rodata .rodata.* .gnu.linkonce.r.*) }');
+ add(' .rodata1 : { *(.rodata1) }');
+ add(' .eh_frame_hdr : { *(.eh_frame_hdr) }');
+ add(' .eh_frame : ONLY_IF_RO { KEEP (*(.eh_frame)) }');
+ add(' .gcc_except_table : ONLY_IF_RO { *(.gcc_except_table');
+ add(' .gcc_except_table.*) }');
+ add(' /* These sections are generated by the Sun/Oracle C++ compiler. */');
+ add(' .exception_ranges : ONLY_IF_RO { *(.exception_ranges');
+ add(' .exception_ranges*) }');
+ add(' /* Adjust the address for the data segment. We want to adjust up to');
+ add(' the same address within the page on the next page up. */');
+ add(' . = ALIGN (CONSTANT (MAXPAGESIZE)) - ((CONSTANT (MAXPAGESIZE) - .) & (CONSTANT (MAXPAGESIZE) - 1)); . = DATA_SEGMENT_ALIGN (CONSTANT (MAXPAGESIZE), CONSTANT (COMMONPAGESIZE));');
+ add(' /* Exception handling */');
+ add(' .eh_frame : ONLY_IF_RW { KEEP (*(.eh_frame)) }');
+ add(' .gcc_except_table : ONLY_IF_RW { *(.gcc_except_table .gcc_except_table.*) }');
+ add(' .exception_ranges : ONLY_IF_RW { *(.exception_ranges .exception_ranges*) }');
+ add(' /* Thread Local Storage sections */');
+ add(' .tdata : { *(.tdata .tdata.* .gnu.linkonce.td.*) }');
+ add(' .tbss : { *(.tbss .tbss.* .gnu.linkonce.tb.*) *(.tcommon) }');
+ add(' .preinit_array :');
+ add(' {');
+ add(' PROVIDE_HIDDEN (__preinit_array_start = .);');
+ add(' KEEP (*(.preinit_array))');
+ add(' PROVIDE_HIDDEN (__preinit_array_end = .);');
+ add(' }');
+ add(' .init_array :');
+ add(' {');
+ add(' PROVIDE_HIDDEN (__init_array_start = .);');
+ add(' KEEP (*(SORT_BY_INIT_PRIORITY(.init_array.*) SORT_BY_INIT_PRIORITY(.ctors.*)))');
+ add(' KEEP (*(.init_array EXCLUDE_FILE (*crtbegin.o *crtbegin?.o *crtend.o *crtend?.o ) .ctors))');
+ add(' PROVIDE_HIDDEN (__init_array_end = .);');
+ add(' }');
+ add(' .fini_array :');
+ add(' {');
+ add(' PROVIDE_HIDDEN (__fini_array_start = .);');
+ add(' KEEP (*(SORT_BY_INIT_PRIORITY(.fini_array.*) SORT_BY_INIT_PRIORITY(.dtors.*)))');
+ add(' KEEP (*(.fini_array EXCLUDE_FILE (*crtbegin.o *crtbegin?.o *crtend.o *crtend?.o ) .dtors))');
+ add(' PROVIDE_HIDDEN (__fini_array_end = .);');
+ add(' }');
+ add(' .ctors :');
+ add(' {');
+ add(' /* gcc uses crtbegin.o to find the start of');
+ add(' the constructors, so we make sure it is');
+ add(' first. Because this is a wildcard, it');
+ add(' doesn''t matter if the user does not');
+ add(' actually link against crtbegin.o; the');
+ add(' linker won''t look for a file to match a');
+ add(' wildcard. The wildcard also means that it');
+ add(' doesn''t matter which directory crtbegin.o');
+ add(' is in. */');
+ add(' KEEP (*crtbegin.o(.ctors))');
+ add(' KEEP (*crtbegin?.o(.ctors))');
+ add(' /* We don''t want to include the .ctor section from');
+ add(' the crtend.o file until after the sorted ctors.');
+ add(' The .ctor section from the crtend file contains the');
+ add(' end of ctors marker and it must be last */');
+ add(' KEEP (*(EXCLUDE_FILE (*crtend.o *crtend?.o ) .ctors))');
+ add(' KEEP (*(SORT(.ctors.*)))');
+ add(' KEEP (*(.ctors))');
+ add(' }');
+ add(' .dtors :');
+ add(' {');
+ add(' KEEP (*crtbegin.o(.dtors))');
+ add(' KEEP (*crtbegin?.o(.dtors))');
+ add(' KEEP (*(EXCLUDE_FILE (*crtend.o *crtend?.o ) .dtors))');
+ add(' KEEP (*(SORT(.dtors.*)))');
+ add(' KEEP (*(.dtors))');
+ add(' }');
+ add(' .jcr : { KEEP (*(.jcr)) }');
+ add(' .data.rel.ro : { *(.data.rel.ro.local* .gnu.linkonce.d.rel.ro.local.*) *(.data.rel.ro .data.rel.ro.* .gnu.linkonce.d.rel.ro.*) }');
+ add(' .dynamic : { *(.dynamic) }');
+ add(' .got : { *(.got) *(.igot) }');
+ add(' . = DATA_SEGMENT_RELRO_END (24, .);');
+ add(' .got.plt : { *(.got.plt) *(.igot.plt) }');
+ add(' .data :');
+ add(' {');
+ add(' PROVIDE (__data_start = .);');
+
+ { extra by FPC }
+ add(' KEEP (*(.fpc .fpc.n_version .fpc.n_links))');
+
+ add(' *(.data .data.* .gnu.linkonce.d.*)');
+ add(' SORT(CONSTRUCTORS)');
+ add(' }');
+ add(' .data1 : { *(.data1) }');
+ add(' _edata = .; PROVIDE (edata = .);');
+ add(' . = .;');
+ add(' __bss_start = .;');
+ add(' __bss_start__ = .;');
+ add(' .bss :');
+ add(' {');
+ add(' *(.dynbss)');
+ add(' *(.bss .bss.* .gnu.linkonce.b.*)');
+ add(' *(COMMON)');
+ add(' /* Align here to ensure that the .bss section occupies space up to');
+ add(' _end. Align after .bss to ensure correct alignment even if the');
+ add(' .bss section disappears because there are no input sections.');
+ add(' FIXME: Why do we need it? When there is no .bss section, we don''t');
+ add(' pad the .data section. */');
+ add(' . = ALIGN(. != 0 ? 64 / 8 : 1);');
+ add(' }');
+ add(' _bss_end__ = . ; __bss_end__ = . ;');
+ add(' . = ALIGN(64 / 8);');
+ add(' . = SEGMENT_START("ldata-segment", .);');
+ add(' . = ALIGN(64 / 8);');
+ add(' __end__ = . ;');
+ add(' _end = .; PROVIDE (end = .);');
+ add(' . = DATA_SEGMENT_END (.);');
+ add(' /* Stabs debugging sections. */');
+ add(' .stab 0 : { *(.stab) }');
+ add(' .stabstr 0 : { *(.stabstr) }');
+ add(' .stab.excl 0 : { *(.stab.excl) }');
+ add(' .stab.exclstr 0 : { *(.stab.exclstr) }');
+ add(' .stab.index 0 : { *(.stab.index) }');
+ add(' .stab.indexstr 0 : { *(.stab.indexstr) }');
+ add(' .comment 0 : { *(.comment) }');
+ add(' /* DWARF debug sections.');
+ add(' Symbols in the DWARF debugging sections are relative to the beginning');
+ add(' of the section so we begin them at 0. */');
+ add(' /* DWARF 1 */');
+ add(' .debug 0 : { *(.debug) }');
+ add(' .line 0 : { *(.line) }');
+ add(' /* GNU DWARF 1 extensions */');
+ add(' .debug_srcinfo 0 : { *(.debug_srcinfo) }');
+ add(' .debug_sfnames 0 : { *(.debug_sfnames) }');
+ add(' /* DWARF 1.1 and DWARF 2 */');
+ add(' .debug_aranges 0 : { *(.debug_aranges) }');
+ add(' .debug_pubnames 0 : { *(.debug_pubnames) }');
+ add(' /* DWARF 2 */');
+ add(' .debug_info 0 : { *(.debug_info .gnu.linkonce.wi.*) }');
+ add(' .debug_abbrev 0 : { *(.debug_abbrev) }');
+ add(' .debug_line 0 : { *(.debug_line .debug_line.* .debug_line_end ) }');
+ add(' .debug_frame 0 : { *(.debug_frame) }');
+ add(' .debug_str 0 : { *(.debug_str) }');
+ add(' .debug_loc 0 : { *(.debug_loc) }');
+ add(' .debug_macinfo 0 : { *(.debug_macinfo) }');
+ add(' /* SGI/MIPS DWARF 2 extensions */');
+ add(' .debug_weaknames 0 : { *(.debug_weaknames) }');
+ add(' .debug_funcnames 0 : { *(.debug_funcnames) }');
+ add(' .debug_typenames 0 : { *(.debug_typenames) }');
+ add(' .debug_varnames 0 : { *(.debug_varnames) }');
+ add(' /* DWARF 3 */');
+ add(' .debug_pubtypes 0 : { *(.debug_pubtypes) }');
+ add(' .debug_ranges 0 : { *(.debug_ranges) }');
+ add(' /* DWARF Extension. */');
+ add(' .debug_macro 0 : { *(.debug_macro) }');
+ add(' .ARM.attributes 0 : { KEEP (*(.ARM.attributes)) KEEP (*(.gnu.attributes)) }');
+ add(' .note.gnu.arm.ident 0 : { KEEP (*(.note.gnu.arm.ident)) }');
+ add(' /DISCARD/ : { *(.note.GNU-stack) *(.gnu_debuglink) *(.gnu.lto_*) }');
+ add('}');
+ end;
+{$endif AArch64}
+
{$ifdef ARM}
if target_info.abi=abi_eabi then
begin
@@ -1569,6 +1804,11 @@ initialization
RegisterExport(system_arm_linux,texportliblinux);
RegisterTarget(system_arm_linux_info);
{$endif ARM}
+{$ifdef aarch64}
+ RegisterImport(system_aarch64_linux,timportliblinux);
+ RegisterExport(system_aarch64_linux,texportliblinux);
+ RegisterTarget(system_aarch64_linux_info);
+{$endif aarch64}
{$ifdef MIPS}
{$ifdef MIPSEL}
RegisterImport(system_mipsel_linux,timportliblinux);
diff --git a/compiler/utils/fpc.pp b/compiler/utils/fpc.pp
index 7da8dd2..ad79833 100644
--- a/compiler/utils/fpc.pp
+++ b/compiler/utils/fpc.pp
@@ -143,6 +143,10 @@ program fpc;
ppcbin:='ppcarm';
processorname:='arm';
{$endif arm}
+{$ifdef aarch64}
+ ppcbin:='ppca64';
+ processorname:='aarch64';
+{$endif arm}
{$ifdef sparc}
ppcbin:='ppcsparc';
processorname:='sparc';
@@ -202,7 +206,9 @@ program fpc;
else
if processorstr <> processorname then
begin
- if processorstr='arm' then
+ if processorstr='aarch64' then
+ cpusuffix:='a64'
+ else if processorstr='arm' then
cpusuffix:='arm'
else if processorstr='i386' then
cpusuffix:='386'
diff --git a/compiler/utils/ppuutils/ppudump.pp b/compiler/utils/ppuutils/ppudump.pp
index bddc07a..5ade096 100644
--- a/compiler/utils/ppuutils/ppudump.pp
+++ b/compiler/utils/ppuutils/ppudump.pp
@@ -169,8 +169,9 @@ const
{ 83 } 'AROS-i386',
{ 84 } 'AROS-x86-64',
{ 85 } 'DragonFly-x86-64',
- { 85 } 'Darwin-AArch64',
- { 86 } 'iPhoneSim-x86-64'
+ { 86 } 'Darwin-AArch64',
+ { 87 } 'iPhoneSim-x86-64',
+ { 88 } 'Linux-AArch64'
);
const
More information about the fpc-devel
mailing list