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

* cleanup

Browse Source 
git-svn-id: trunk@49349 -
This commit is contained in:
florian 2021-05-10 20:30:31 +00:00
parent 8535c758ef
commit 929fc50004
1 changed files with 3 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/arm/agarmvasm.pas
View File

@ -51,7 +51,6 @@ unit agarmvasm;
itcpugas,cpuinfo,
aasmcpu;
{****************************************************************************}
{ VASM m68k Assembler writer }
{****************************************************************************}
@ -63,6 +62,7 @@ unit agarmvasm;
InstrWriter := TARMInstrWriter.create(self);
end;
function TARMVASM.sectionattrs(atype:TAsmSectiontype):string;
begin
case atype of
@ -73,13 +73,7 @@ unit agarmvasm;
sec_data, sec_rodata:
result:='adrw';
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:
result:='aurw';
sec_stab, sec_stabstr:
@ -89,6 +83,7 @@ unit agarmvasm;
end;
end;
function TARMVASM.MakeCmdLine: TCmdStr;
var
objtype: string;
@ -109,8 +104,6 @@ unit agarmvasm;
Replace(result,'$EXTRAOPT',asmextraopt);
end;
{*****************************************************************************
Initialize
*****************************************************************************}