mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-04 19:24:05 +02:00
272 lines
9.6 KiB
ObjectPascal
272 lines
9.6 KiB
ObjectPascal
{
|
|
Copyright (c) 1999-2003 by Florian Klaempfl
|
|
|
|
This unit implements an asmoutput class for SPARC AT&T syntax
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 2 of the License, or
|
|
(at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program; if not, write to the Free Software
|
|
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
|
|
****************************************************************************
|
|
}
|
|
unit cpugas;
|
|
|
|
{$i fpcdefs.inc}
|
|
|
|
interface
|
|
|
|
uses
|
|
cpubase,
|
|
aasmtai,aasmdata,aasmcpu,assemble,aggas,
|
|
cgutils;
|
|
|
|
type
|
|
TGasSPARC=class(TGnuAssembler)
|
|
constructor create(smart: boolean); override;
|
|
end;
|
|
|
|
TSPARCInstrWriter=class(TCPUInstrWriter)
|
|
procedure WriteInstruction(hp:Tai);override;
|
|
function GetReferenceString(var ref : TReference):string;
|
|
function getopstr(const Oper:TOper):string;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
cutils,systems,procinfo,
|
|
verbose,itcpugas,cgbase;
|
|
|
|
|
|
{****************************************************************************}
|
|
{ GNU PPC Assembler writer }
|
|
{****************************************************************************}
|
|
|
|
constructor TGasSPARC.create(smart: boolean);
|
|
begin
|
|
inherited create(smart);
|
|
InstrWriter := TSPARCInstrWriter.create(self);
|
|
end;
|
|
|
|
|
|
function TSPARCInstrWriter.GetReferenceString(var ref:TReference):string;
|
|
var
|
|
asm_comment : string;
|
|
begin
|
|
GetReferenceString:='';
|
|
asm_comment:='';
|
|
with ref do
|
|
begin
|
|
if (base=NR_NO) and (index=NR_NO) then
|
|
begin
|
|
if assigned(symbol) then
|
|
GetReferenceString:=symbol.name;
|
|
if offset>0 then
|
|
GetReferenceString:=GetReferenceString+'+'+ToStr(offset)
|
|
else if offset<0 then
|
|
GetReferenceString:=GetReferenceString+ToStr(offset);
|
|
case refaddr of
|
|
addr_high:
|
|
GetReferenceString:='%hi('+GetReferenceString+')';
|
|
addr_low:
|
|
GetReferenceString:='%lo('+GetReferenceString+')';
|
|
addr_pic:
|
|
begin
|
|
asm_comment:='addr_pic should use %l7 register as base or index: '+GetReferenceString;
|
|
Comment(V_Warning,asm_comment);
|
|
GetReferenceString:='%l7+'+GetReferenceString;
|
|
end;
|
|
end;
|
|
end
|
|
else
|
|
begin
|
|
if (base=NR_NO) and (index<>NR_NO) then
|
|
begin
|
|
base:=index;
|
|
index:=NR_NO;
|
|
end;
|
|
{$ifdef extdebug}
|
|
if assigned(symbol) and
|
|
not(refaddr in [addr_pic,addr_low]) then
|
|
internalerror(2003052601);
|
|
{$endif extdebug}
|
|
GetReferenceString:=GetReferenceString+gas_regname(base);
|
|
if index=NR_NO then
|
|
begin
|
|
{ if (Offset<simm13lo) or (Offset>simm13hi) then
|
|
internalerror(2003053008); }
|
|
if offset>0 then
|
|
GetReferenceString:=GetReferenceString+'+'+ToStr(offset)
|
|
else if offset<0 then
|
|
GetReferenceString:=GetReferenceString+ToStr(offset);
|
|
{
|
|
else if (offset=0) and not(assigned(symbol)) then
|
|
GetReferenceString:=GetReferenceString+ToStr(offset);
|
|
}
|
|
if assigned(symbol) then
|
|
begin
|
|
if refaddr=addr_low then
|
|
GetReferenceString:='%lo('+symbol.name+')+'+GetReferenceString
|
|
else if refaddr=addr_pic then
|
|
begin
|
|
if assigned(current_procinfo) and (base <> current_procinfo.got) then
|
|
begin
|
|
asm_comment:=' pic address should use %l7 register: '+GetReferenceString;
|
|
Comment(V_Warning,asm_comment);
|
|
end;
|
|
GetReferenceString:=GetReferenceString+'+'+symbol.name;
|
|
end
|
|
else
|
|
GetReferenceString:=symbol.name+'+'+GetReferenceString;
|
|
end;
|
|
end
|
|
else
|
|
begin
|
|
{$ifdef extdebug}
|
|
if (Offset<>0) or assigned(symbol) then
|
|
internalerror(2003052603);
|
|
{$endif extdebug}
|
|
GetReferenceString:=GetReferenceString+'+'+gas_regname(index);
|
|
|
|
end;
|
|
end;
|
|
end;
|
|
if asm_comment <> '' then
|
|
begin
|
|
owner.AsmWrite(target_asm.comment+' '+asm_comment);
|
|
owner.AsmLn;
|
|
end;
|
|
end;
|
|
|
|
|
|
function TSPARCInstrWriter.getopstr(const Oper:TOper):string;
|
|
begin
|
|
with Oper do
|
|
case typ of
|
|
top_reg:
|
|
getopstr:=gas_regname(reg);
|
|
top_const:
|
|
getopstr:=tostr(longint(val));
|
|
top_ref:
|
|
if (oper.ref^.refaddr in [addr_no,addr_pic]) or
|
|
((oper.ref^.refaddr=addr_low) and ((oper.ref^.base<>NR_NO) or
|
|
(oper.ref^.index<>NR_NO))) then
|
|
getopstr:='['+getreferencestring(ref^)+']'
|
|
else
|
|
getopstr:=getreferencestring(ref^);
|
|
else
|
|
internalerror(10001);
|
|
end;
|
|
end;
|
|
|
|
|
|
procedure TSPARCInstrWriter.WriteInstruction(hp:Tai);
|
|
var
|
|
Op:TAsmOp;
|
|
s:String;
|
|
i:Integer;
|
|
begin
|
|
if hp.typ<>ait_instruction then
|
|
exit;
|
|
op:=taicpu(hp).opcode;
|
|
{ translate pseudoops, this should be move to a separate pass later, so it's done before
|
|
peephole optimization }
|
|
case op of
|
|
A_FABSd:
|
|
begin
|
|
if (taicpu(hp).ops<>2) or
|
|
(taicpu(hp).oper[0]^.typ<>top_reg) or
|
|
(taicpu(hp).oper[1]^.typ<>top_reg) then
|
|
internalerror(200401045);
|
|
{ FABSs %f<even>,%f<even> }
|
|
s:=#9+std_op2str[A_FABSs]+#9+getopstr(taicpu(hp).oper[0]^)+','+getopstr(taicpu(hp).oper[1]^);
|
|
owner.AsmWriteLn(s);
|
|
{ FMOVs %f<odd>,%f<odd> }
|
|
inc(taicpu(hp).oper[0]^.reg);
|
|
inc(taicpu(hp).oper[1]^.reg);
|
|
s:=#9+std_op2str[A_FMOVs]+#9+getopstr(taicpu(hp).oper[0]^)+','+getopstr(taicpu(hp).oper[1]^);
|
|
dec(taicpu(hp).oper[0]^.reg);
|
|
dec(taicpu(hp).oper[1]^.reg);
|
|
owner.AsmWriteLn(s);
|
|
end;
|
|
A_FMOVd:
|
|
begin
|
|
if (taicpu(hp).ops<>2) or
|
|
(taicpu(hp).oper[0]^.typ<>top_reg) or
|
|
(taicpu(hp).oper[1]^.typ<>top_reg) then
|
|
internalerror(200401045);
|
|
{ FMOVs %f<even>,%f<even> }
|
|
s:=#9+std_op2str[A_FMOVs]+#9+getopstr(taicpu(hp).oper[0]^)+','+getopstr(taicpu(hp).oper[1]^);
|
|
owner.AsmWriteLn(s);
|
|
{ FMOVs %f<odd>,%f<odd> }
|
|
inc(taicpu(hp).oper[0]^.reg);
|
|
inc(taicpu(hp).oper[1]^.reg);
|
|
s:=#9+std_op2str[A_FMOVs]+#9+getopstr(taicpu(hp).oper[0]^)+','+getopstr(taicpu(hp).oper[1]^);
|
|
dec(taicpu(hp).oper[0]^.reg);
|
|
dec(taicpu(hp).oper[1]^.reg);
|
|
owner.AsmWriteLn(s);
|
|
end
|
|
else
|
|
begin
|
|
{ call maybe not translated to call }
|
|
s:=#9+std_op2str[op]+cond2str[taicpu(hp).condition];
|
|
if taicpu(hp).delayslot_annulled then
|
|
s:=s+',a';
|
|
if taicpu(hp).ops>0 then
|
|
begin
|
|
s:=s+#9+getopstr(taicpu(hp).oper[0]^);
|
|
for i:=1 to taicpu(hp).ops-1 do
|
|
s:=s+','+getopstr(taicpu(hp).oper[i]^);
|
|
end;
|
|
owner.AsmWriteLn(s);
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
|
|
const
|
|
as_sparc_as_info : tasminfo =
|
|
(
|
|
id : as_gas;
|
|
idtxt : 'AS';
|
|
asmbin : 'as';
|
|
{$ifdef FPC_SPARC_V8_ONLY}
|
|
asmcmd : '$PIC -o $OBJ $ASM';
|
|
{$else}
|
|
asmcmd : '$PIC -Av9 -o $OBJ $ASM';
|
|
{$endif}
|
|
supported_targets : [system_sparc_solaris,system_sparc_linux,system_sparc_embedded];
|
|
flags : [af_needar,af_smartlink_sections];
|
|
labelprefix : '.L';
|
|
comment : '# ';
|
|
dollarsign: '$';
|
|
);
|
|
|
|
as_sparc_gas_info : tasminfo =
|
|
(
|
|
id : as_ggas;
|
|
idtxt : 'GAS';
|
|
asmbin : 'gas';
|
|
asmcmd : '$PIC -Av9 -o $OBJ $ASM';
|
|
supported_targets : [system_sparc_solaris,system_sparc_linux,system_sparc_embedded];
|
|
flags : [af_needar,af_smartlink_sections];
|
|
labelprefix : '.L';
|
|
comment : '# ';
|
|
dollarsign: '$';
|
|
);
|
|
|
|
begin
|
|
RegisterAssembler(as_SPARC_as_info,TGasSPARC);
|
|
RegisterAssembler(as_SPARC_gas_info,TGasSPARC);
|
|
end.
|