|
@@ -51,7 +51,6 @@ unit agarmvasm;
|
|
|
itcpugas,cpuinfo,
|
|
itcpugas,cpuinfo,
|
|
|
aasmcpu;
|
|
aasmcpu;
|
|
|
|
|
|
|
|
-
|
|
|
|
|
{****************************************************************************}
|
|
{****************************************************************************}
|
|
|
{ VASM m68k Assembler writer }
|
|
{ VASM m68k Assembler writer }
|
|
|
{****************************************************************************}
|
|
{****************************************************************************}
|
|
@@ -63,6 +62,7 @@ unit agarmvasm;
|
|
|
InstrWriter := TARMInstrWriter.create(self);
|
|
InstrWriter := TARMInstrWriter.create(self);
|
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
|
|
+
|
|
|
function TARMVASM.sectionattrs(atype:TAsmSectiontype):string;
|
|
function TARMVASM.sectionattrs(atype:TAsmSectiontype):string;
|
|
|
begin
|
|
begin
|
|
|
case atype of
|
|
case atype of
|
|
@@ -73,13 +73,7 @@ unit agarmvasm;
|
|
|
sec_data, sec_rodata:
|
|
sec_data, sec_rodata:
|
|
|
result:='adrw';
|
|
result:='adrw';
|
|
|
sec_rodata_norel:
|
|
sec_rodata_norel:
|
|
|
- case target_info.system of
|
|
|
|
|
- { stop vlink from complaining when it merges ro sections into rw ones (KB) }
|
|
|
|
|
- system_m68k_atari: result:='adrw';
|
|
|
|
|
- system_m68k_amiga: result:='adrw';
|
|
|
|
|
- else
|
|
|
|
|
- result:='adr';
|
|
|
|
|
- end;
|
|
|
|
|
|
|
+ result:='adr';
|
|
|
sec_bss, sec_threadvar:
|
|
sec_bss, sec_threadvar:
|
|
|
result:='aurw';
|
|
result:='aurw';
|
|
|
sec_stab, sec_stabstr:
|
|
sec_stab, sec_stabstr:
|
|
@@ -89,6 +83,7 @@ unit agarmvasm;
|
|
|
end;
|
|
end;
|
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
|
|
+
|
|
|
function TARMVASM.MakeCmdLine: TCmdStr;
|
|
function TARMVASM.MakeCmdLine: TCmdStr;
|
|
|
var
|
|
var
|
|
|
objtype: string;
|
|
objtype: string;
|
|
@@ -109,8 +104,6 @@ unit agarmvasm;
|
|
|
Replace(result,'$EXTRAOPT',asmextraopt);
|
|
Replace(result,'$EXTRAOPT',asmextraopt);
|
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
-
|
|
|
|
|
-
|
|
|
|
|
{*****************************************************************************
|
|
{*****************************************************************************
|
|
|
Initialize
|
|
Initialize
|
|
|
*****************************************************************************}
|
|
*****************************************************************************}
|
florian