From e507f612f5bee3e00effa488a48b0b1280add211 Mon Sep 17 00:00:00 2001 From: Karoly Balogh Date: Sat, 25 May 2024 00:14:11 +0300 Subject: [PATCH] m68k-palmos: further fixes to assembly section. also actually use aout, as we have aout binutils for palmos --- compiler/m68k/ag68kgas.pas | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-) diff --git a/compiler/m68k/ag68kgas.pas b/compiler/m68k/ag68kgas.pas index 321d574e48..6e890b13c9 100644 --- a/compiler/m68k/ag68kgas.pas +++ b/compiler/m68k/ag68kgas.pas @@ -38,8 +38,11 @@ interface type Tm68kAoutGNUAssembler=class(TAoutGNUAssembler) - constructor CreateWithWriter(info: pasminfo; wr: TExternalAssemblerOutputFile; freewriter, smart: boolean); override; - function MakeCmdLine : TCmdStr; override; + protected + function sectionattrs(atype:TAsmSectiontype):string; override; + public + constructor CreateWithWriter(info: pasminfo; wr: TExternalAssemblerOutputFile; freewriter, smart: boolean); override; + function MakeCmdLine : TCmdStr; override; end; @@ -101,6 +104,10 @@ interface Replace(result,'$ARCH',GasMachineArg); end; + function tm68kAoutGNUAssembler.sectionattrs(atype:TAsmSectiontype):string; + begin + result:=''; + end; function getreferencestring(var ref : treference) : string; var @@ -364,7 +371,7 @@ interface idtxt : 'AS'; asmbin : 'as'; asmcmd : '$ARCH -o $OBJ $EXTRAOPT $ASM'; - supported_targets : [system_m68k_macosclassic,system_m68k_linux,system_m68k_PalmOS,system_m68k_netbsd,system_m68k_human68k,system_m68k_embedded]; + supported_targets : [system_m68k_macosclassic,system_m68k_linux,system_m68k_netbsd,system_m68k_human68k,system_m68k_embedded]; flags : [af_needar,af_smartlink_sections]; labelprefix : '.L'; labelmaxlen : -1; @@ -378,7 +385,7 @@ interface idtxt : 'AS-AOUT'; asmbin : 'as'; asmcmd : '$ARCH -o $OBJ $EXTRAOPT $ASM'; - supported_targets : [system_m68k_Amiga,system_m68k_Atari]; + supported_targets : [system_m68k_Amiga,system_m68k_Atari,system_m68k_palmos]; flags : [af_needar]; labelprefix : '.L'; labelmaxlen : -1;