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

* also support unified syntax for non-thumb2 (not yet activatable/usable)

Browse Source 
git-svn-id: trunk@31804 -
This commit is contained in:
Jonas Maebe 2015-09-23 20:38:14 +00:00
parent ff4847f685
commit c5f64a51da
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/arm/agarmgas.pas
View File

@ -42,6 +42,8 @@ unit agarmgas;
end;
TArmInstrWriter=class(TCPUInstrWriter)
unified_syntax: boolean;
procedure WriteInstruction(hp : tai);override;
end;
@ -92,6 +94,8 @@ unit agarmgas;
begin
inherited;
InstrWriter := TArmInstrWriter.create(self);
if GenerateThumb2Code then
TArmInstrWriter(InstrWriter).unified_syntax:=true;
end;
@ -126,7 +130,7 @@ unit agarmgas;
procedure TArmGNUAssembler.WriteExtraHeader;
begin
inherited WriteExtraHeader;
if GenerateThumb2Code then
if TArmInstrWriter(InstrWriter).unified_syntax then
writer.AsmWriteLn(#9'.syntax unified');
end;
@ -319,12 +323,14 @@ unit agarmgas;
sep: string[3];
begin
op:=taicpu(hp).opcode;
postfix:='';
if GenerateThumb2Code then
begin
postfix:='';
if taicpu(hp).wideformat then
postfix:='.w';
end;
if unified_syntax then
begin
if taicpu(hp).ops = 0 then
s:=#9+gas_op2str[op]+cond2str[taicpu(hp).condition]+oppostfix2str[taicpu(hp).oppostfix]
else if taicpu(hp).oppostfix in [PF_8..PF_U32F64] then