mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 03:19:47 +01:00
298 lines
9.3 KiB
ObjectPascal
298 lines
9.3 KiB
ObjectPascal
{
|
|
$Id$
|
|
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,aasmcpu,assemble,aggas;
|
|
|
|
type
|
|
TGasSPARC=class(TGnuAssembler)
|
|
procedure WriteInstruction(hp:Tai);override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
cutils,systems,
|
|
verbose,itcpugas;
|
|
|
|
|
|
function GetReferenceString(var ref:TReference):string;
|
|
begin
|
|
GetReferenceString:='';
|
|
with ref do
|
|
begin
|
|
inc(offset,offsetfixup);
|
|
offsetfixup:=0;
|
|
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 symaddr of
|
|
refs_hi :
|
|
GetReferenceString:='%hi('+GetReferenceString+')';
|
|
refs_lo :
|
|
GetReferenceString:='%lo('+GetReferenceString+')';
|
|
end;
|
|
end
|
|
else
|
|
begin
|
|
if assigned(symbol) then
|
|
internalerror(2003052601);
|
|
GetReferenceString:='[';
|
|
if base<>NR_NO then
|
|
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);
|
|
end
|
|
else
|
|
begin
|
|
if Offset<>0 then
|
|
internalerror(2003052603);
|
|
GetReferenceString:=GetReferenceString+'+'+gas_regname(index);
|
|
end;
|
|
GetReferenceString:=GetReferenceString+']';
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
|
|
function getopstr(const Oper:TOper):string;
|
|
var
|
|
hs : string;
|
|
begin
|
|
with Oper do
|
|
case typ of
|
|
top_reg:
|
|
getopstr:=gas_regname(reg);
|
|
top_ref:
|
|
getopstr:=getreferencestring(ref^);
|
|
top_const:
|
|
getopstr:=tostr(longint(val));
|
|
top_symbol:
|
|
begin
|
|
if assigned(sym) then
|
|
hs:={'$'+}sym.name
|
|
else
|
|
hs:='$';
|
|
if symofs>0 then
|
|
hs:=hs+'+'+tostr(symofs)
|
|
else
|
|
if symofs<0 then
|
|
hs:=hs+tostr(symofs)
|
|
else
|
|
if not(assigned(sym)) then
|
|
hs:=hs+'0';
|
|
getopstr:=hs;
|
|
end;
|
|
else
|
|
internalerror(10001);
|
|
end;
|
|
end;
|
|
(*
|
|
function getopstr_jmp(const Oper:TOper):string;
|
|
var
|
|
hs:string;
|
|
begin
|
|
with Oper do
|
|
case typ of
|
|
top_reg:
|
|
getopstr_jmp:=gas_reg2str[reg]+'+';
|
|
top_ref:
|
|
getopstr_jmp:=GetReferenceString(ref^);
|
|
top_const:
|
|
getopstr_jmp:=tostr(longint(val));
|
|
top_symbol:
|
|
begin
|
|
hs:=sym.name;
|
|
if symofs>0 then
|
|
hs:=hs+'+'+tostr(symofs)
|
|
else
|
|
if symofs<0 then
|
|
hs:=hs+tostr(symofs);
|
|
getopstr_jmp:=hs;
|
|
end;
|
|
else
|
|
internalerror(10001);
|
|
end;
|
|
end;*)
|
|
|
|
procedure TGasSPARC.WriteInstruction(hp:Tai);
|
|
var
|
|
Op:TAsmOp;
|
|
s:String;
|
|
i:Integer;
|
|
begin
|
|
if hp.typ<>ait_instruction then
|
|
exit;
|
|
op:=taicpu(hp).opcode;
|
|
{ FMOVd does not exist, rewrite it using 2 FMOVs }
|
|
if op=A_FMOVD then
|
|
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]^);
|
|
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);
|
|
AsmWriteLn(s);
|
|
end
|
|
else
|
|
begin
|
|
{ call maybe not translated to call }
|
|
s:=#9+std_op2str[op]+cond2str[taicpu(hp).condition];
|
|
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;
|
|
AsmWriteLn(s);
|
|
end;
|
|
end;
|
|
|
|
|
|
const
|
|
as_SPARC_as_info:TAsmInfo=(
|
|
id:as_gas;
|
|
idtxt:'AS';
|
|
asmbin:'as';
|
|
asmcmd:'-o $OBJ $ASM';
|
|
supported_target:system_any;
|
|
outputbinary:false;
|
|
allowdirect:true;
|
|
needar:true;
|
|
labelprefix_only_inside_procedure:false;
|
|
labelprefix:'.L';
|
|
comment:';# ';
|
|
secnames:({sec_none}'', {no section}
|
|
{sec_code}'.text', {executable code}
|
|
{sec_data}'.data', {initialized R/W data}
|
|
{sec_bss}'.section ".bss"', {uninitialized R/W data}
|
|
{sec_idata2}'.comment', {comments}
|
|
{sec_idata4}'.debug', {debugging information}
|
|
{sec_idata5}'.rodata', {RO data}
|
|
{sec_idata6}'.line', {line numbers info for symbolic debug}
|
|
{sec_idata7}'.init', {runtime intialization code}
|
|
{sec_edata}'.fini', {runtime finalization code}
|
|
{sec_stab}'.stab',
|
|
{sec_stabstr} '.stabstr',
|
|
{sec_common}'.note') {note info}
|
|
);
|
|
|
|
begin
|
|
RegisterAssembler(as_SPARC_as_info,TGasSPARC);
|
|
end.
|
|
{
|
|
$Log$
|
|
Revision 1.24 2004-01-12 16:39:41 peter
|
|
* sparc updates, mostly float related
|
|
|
|
Revision 1.23 2003/10/24 11:22:50 mazen
|
|
*fix related to toper==>poper
|
|
|
|
Revision 1.22 2003/09/03 15:55:01 peter
|
|
* NEWRA branch merged
|
|
|
|
Revision 1.21.2.1 2003/09/01 21:02:55 peter
|
|
* sparc updates for new tregister
|
|
|
|
Revision 1.21 2003/07/08 21:25:00 peter
|
|
* sparc fixes
|
|
|
|
Revision 1.20 2003/07/02 22:18:04 peter
|
|
* paraloc splitted in callerparaloc,calleeparaloc
|
|
* sparc calling convention updates
|
|
|
|
Revision 1.19 2003/06/01 21:38:06 peter
|
|
* getregisterfpu size parameter added
|
|
* op_const_reg size parameter added
|
|
* sparc updates
|
|
|
|
Revision 1.18 2003/06/01 01:04:35 peter
|
|
* reference fixes
|
|
|
|
Revision 1.17 2003/05/31 01:00:51 peter
|
|
* register fixes
|
|
|
|
Revision 1.16 2003/05/30 23:57:08 peter
|
|
* more sparc cleanup
|
|
* accumulator removed, splitted in function_return_reg (called) and
|
|
function_result_reg (caller)
|
|
|
|
Revision 1.15 2003/05/28 23:18:31 florian
|
|
* started to fix and clean up the sparc port
|
|
|
|
Revision 1.14 2003/05/07 11:55:34 mazen
|
|
- unused units removed from uses clause
|
|
- unused variables removed from implemntation declarations
|
|
|
|
Revision 1.13 2003/05/06 14:55:27 mazen
|
|
* comment changed to ;# instead of ##
|
|
* .bss section changed to .section ".bss"
|
|
|
|
Revision 1.12 2003/03/15 22:51:58 mazen
|
|
* remaking sparc rtl compile
|
|
|
|
Revision 1.11 2003/01/08 18:43:58 daniel
|
|
* Tregister changed into a record
|
|
|
|
Revision 1.10 2002/11/16 15:29:16 florian
|
|
* fixed Cish syntax
|
|
|
|
Revision 1.9 2002/11/10 19:07:46 mazen
|
|
* SPARC calling mechanism almost OK (as in GCC./mppcsparc )
|
|
|
|
Revision 1.8 2002/10/25 19:37:53 mazen
|
|
* bug of references name missing last character fixed
|
|
|
|
Revision 1.7 2002/10/20 19:01:38 mazen
|
|
+ op_raddr_reg and op_caddr_reg added to fix functions prologue
|
|
|
|
Revision 1.6 2002/10/15 09:00:28 mazen
|
|
* sone coding style modified
|
|
|
|
}
|