mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-30 13:08:28 +02:00
9da171faf2
+ tprocessor enumeration moved to cpuinfo + linker in target_info is now a class * many many updates for m68k (will soon start to compile) - removed some ifdef or correct them for correct cpu
394 lines
12 KiB
ObjectPascal
394 lines
12 KiB
ObjectPascal
{
|
|
$Id$
|
|
Copyright (c) 1998-2002 by Florian Klaempfl
|
|
|
|
This unit implements an asmoutput class for i386 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.
|
|
|
|
****************************************************************************
|
|
}
|
|
{ This unit implements an asmoutput class for i386 AT&T syntax
|
|
}
|
|
unit ag386att;
|
|
|
|
{$i fpcdefs.inc}
|
|
|
|
interface
|
|
|
|
uses
|
|
cclasses,cpubase,
|
|
globals,
|
|
aasmbase,aasmtai,aasmcpu,assemble,aggas;
|
|
|
|
type
|
|
T386ATTAssembler=class(TGNUassembler)
|
|
public
|
|
procedure WriteInstruction(hp: tai);override;
|
|
end;
|
|
|
|
TAttSuffix = (AttSufNONE,AttSufINT,AttSufFPU,AttSufFPUint);
|
|
|
|
const
|
|
gas_op2str:op2strtable={$i i386att.inc}
|
|
gas_needsuffix:array[tasmop] of TAttSuffix={$i i386atts.inc}
|
|
|
|
gas_reg2str : reg2strtable = ('',
|
|
'%eax','%ecx','%edx','%ebx','%esp','%ebp','%esi','%edi',
|
|
'%ax','%cx','%dx','%bx','%sp','%bp','%si','%di',
|
|
'%al','%cl','%dl','%bl','%ah','%ch','%bh','%dh',
|
|
'%cs','%ds','%es','%ss','%fs','%gs',
|
|
'%st','%st(0)','%st(1)','%st(2)','%st(3)','%st(4)','%st(5)','%st(6)','%st(7)',
|
|
'%dr0','%dr1','%dr2','%dr3','%dr6','%dr7',
|
|
'%cr0','%cr2','%cr3','%cr4',
|
|
'%tr3','%tr4','%tr5','%tr6','%tr7',
|
|
'%mm0','%mm1','%mm2','%mm3','%mm4','%mm5','%mm6','%mm7',
|
|
'%xmm0','%xmm1','%xmm2','%xmm3','%xmm4','%xmm5','%xmm6','%xmm7'
|
|
);
|
|
|
|
gas_opsize2str : array[topsize] of string[2] = ('',
|
|
'b','w','l','bw','bl','wl',
|
|
's','l','q',
|
|
's','l','t','d','q','v',
|
|
'','',''
|
|
);
|
|
|
|
implementation
|
|
|
|
uses
|
|
cutils,systems,
|
|
verbose;
|
|
|
|
|
|
|
|
function getreferencestring(var ref : treference) : string;
|
|
var
|
|
s : string;
|
|
begin
|
|
with ref do
|
|
begin
|
|
inc(offset,offsetfixup);
|
|
offsetfixup:=0;
|
|
{ have we a segment prefix ? }
|
|
{ These are probably not correctly handled under GAS }
|
|
{ should be replaced by coding the segment override }
|
|
{ directly! - DJGPP FAQ }
|
|
if segment<>R_NO then
|
|
s:=gas_reg2str[segment]+':'
|
|
else
|
|
s:='';
|
|
if assigned(symbol) then
|
|
s:=s+symbol.name;
|
|
if offset<0 then
|
|
s:=s+tostr(offset)
|
|
else
|
|
if (offset>0) then
|
|
begin
|
|
if assigned(symbol) then
|
|
s:=s+'+'+tostr(offset)
|
|
else
|
|
s:=s+tostr(offset);
|
|
end
|
|
else if (index=R_NO) and (base=R_NO) and not assigned(symbol) then
|
|
s:=s+'0';
|
|
if (index<>R_NO) and (base=R_NO) then
|
|
begin
|
|
s:=s+'(,'+gas_reg2str[index];
|
|
if scalefactor<>0 then
|
|
s:=s+','+tostr(scalefactor)+')'
|
|
else
|
|
s:=s+')';
|
|
end
|
|
else
|
|
if (index=R_NO) and (base<>R_NO) then
|
|
s:=s+'('+gas_reg2str[base]+')'
|
|
else
|
|
if (index<>R_NO) and (base<>R_NO) then
|
|
begin
|
|
s:=s+'('+gas_reg2str[base]+','+gas_reg2str[index];
|
|
if scalefactor<>0 then
|
|
s:=s+','+tostr(scalefactor)+')'
|
|
else
|
|
s := s+')';
|
|
end;
|
|
end;
|
|
getreferencestring:=s;
|
|
end;
|
|
|
|
function getopstr(const o:toper) : string;
|
|
var
|
|
hs : string;
|
|
begin
|
|
case o.typ of
|
|
top_reg :
|
|
getopstr:=gas_reg2str[o.reg];
|
|
top_ref :
|
|
getopstr:=getreferencestring(o.ref^);
|
|
top_const :
|
|
getopstr:='$'+tostr(longint(o.val));
|
|
top_symbol :
|
|
begin
|
|
if assigned(o.sym) then
|
|
hs:='$'+o.sym.name
|
|
else
|
|
hs:='$';
|
|
if o.symofs>0 then
|
|
hs:=hs+'+'+tostr(o.symofs)
|
|
else
|
|
if o.symofs<0 then
|
|
hs:=hs+tostr(o.symofs)
|
|
else
|
|
if not(assigned(o.sym)) then
|
|
hs:=hs+'0';
|
|
getopstr:=hs;
|
|
end;
|
|
else
|
|
internalerror(10001);
|
|
end;
|
|
end;
|
|
|
|
function getopstr_jmp(const o:toper) : string;
|
|
var
|
|
hs : string;
|
|
begin
|
|
case o.typ of
|
|
top_reg :
|
|
getopstr_jmp:='*'+gas_reg2str[o.reg];
|
|
top_ref :
|
|
getopstr_jmp:='*'+getreferencestring(o.ref^);
|
|
top_const :
|
|
getopstr_jmp:=tostr(longint(o.val));
|
|
top_symbol :
|
|
begin
|
|
hs:=o.sym.name;
|
|
if o.symofs>0 then
|
|
hs:=hs+'+'+tostr(o.symofs)
|
|
else
|
|
if o.symofs<0 then
|
|
hs:=hs+tostr(o.symofs);
|
|
getopstr_jmp:=hs;
|
|
end;
|
|
else
|
|
internalerror(10001);
|
|
end;
|
|
end;
|
|
|
|
|
|
{****************************************************************************
|
|
TI386ATTASMOUTPUT
|
|
****************************************************************************}
|
|
|
|
|
|
|
|
procedure T386AttAssembler. WriteInstruction(hp: tai);
|
|
var
|
|
op : tasmop;
|
|
s : string;
|
|
sep : char;
|
|
calljmp : boolean;
|
|
i : integer;
|
|
begin
|
|
if hp.typ <> ait_instruction then exit;
|
|
taicpu(hp).SetOperandOrder(op_att);
|
|
op:=taicpu(hp).opcode;
|
|
calljmp:=is_calljmp(op);
|
|
{ call maybe not translated to call }
|
|
s:=#9+gas_op2str[op]+cond2str[taicpu(hp).condition];
|
|
{ suffix needed ? fnstsw,fldcw don't support suffixes
|
|
with binutils 2.9.5 under linux }
|
|
if (not calljmp) and
|
|
(gas_needsuffix[op]<>AttSufNONE) and
|
|
(op<>A_FNSTSW) and (op<>A_FSTSW) and
|
|
(op<>A_FNSTCW) and (op<>A_FSTCW) and
|
|
(op<>A_FLDCW) and not(
|
|
(taicpu(hp).oper[0].typ=top_reg) and
|
|
(taicpu(hp).oper[0].reg in [R_ST..R_ST7])
|
|
) then
|
|
s:=s+gas_opsize2str[taicpu(hp).opsize];
|
|
{ process operands }
|
|
if taicpu(hp).ops<>0 then
|
|
begin
|
|
{ call and jmp need an extra handling }
|
|
{ this code is only called if jmp isn't a labeled instruction }
|
|
{ quick hack to overcome a problem with manglednames=255 chars }
|
|
if calljmp then
|
|
begin
|
|
AsmWrite(s+#9);
|
|
s:=getopstr_jmp(taicpu(hp).oper[0]);
|
|
end
|
|
else
|
|
begin
|
|
for i:=0 to taicpu(hp).ops-1 do
|
|
begin
|
|
if i=0 then
|
|
sep:=#9
|
|
else
|
|
sep:=',';
|
|
s:=s+sep+getopstr(taicpu(hp).oper[i])
|
|
end;
|
|
end;
|
|
end;
|
|
AsmWriteLn(s);
|
|
end;
|
|
|
|
|
|
{*****************************************************************************
|
|
Initialize
|
|
*****************************************************************************}
|
|
|
|
const
|
|
as_i386_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 : ('',
|
|
'.text','.data','.bss',
|
|
'','','','','','',
|
|
'.stab','.stabstr','COMMON')
|
|
);
|
|
|
|
as_i386_as_aout_info : tasminfo =
|
|
(
|
|
id : as_i386_as_aout;
|
|
idtxt : 'AS_AOUT';
|
|
asmbin : 'as';
|
|
asmcmd : '-o $OBJ $ASM';
|
|
supported_target : system_i386_os2;
|
|
outputbinary: false;
|
|
allowdirect : true;
|
|
needar : true;
|
|
labelprefix_only_inside_procedure : false;
|
|
labelprefix : 'L';
|
|
comment : '# ';
|
|
secnames : ('',
|
|
'.text','.data','.bss',
|
|
'','','','','','',
|
|
'.stab','.stabstr','COMMON')
|
|
);
|
|
|
|
as_i386_asw_info : tasminfo =
|
|
(
|
|
id : as_i386_asw;
|
|
idtxt : 'ASW';
|
|
asmbin : 'asw';
|
|
asmcmd : '-o $OBJ $ASM';
|
|
supported_target : system_i386_win32;
|
|
outputbinary: false;
|
|
allowdirect : true;
|
|
needar : true;
|
|
labelprefix_only_inside_procedure : false;
|
|
labelprefix : '.L';
|
|
comment : '# ';
|
|
secnames : ('',
|
|
'.text','.data','.section .bss',
|
|
'.section .idata$2','.section .idata$4','.section .idata$5',
|
|
'.section .idata$6','.section .idata$7','.section .edata',
|
|
'.stab','.stabstr','COMMON')
|
|
);
|
|
|
|
initialization
|
|
RegisterAssembler(as_i386_as_info,T386ATTAssembler);
|
|
RegisterAssembler(as_i386_as_aout_info,T386ATTAssembler);
|
|
RegisterAssembler(as_i386_asw_info,T386ATTAssembler);
|
|
end.
|
|
{
|
|
$Log$
|
|
Revision 1.26 2002-08-12 15:08:40 carl
|
|
+ stab register indexes for powerpc (moved from gdb to cpubase)
|
|
+ tprocessor enumeration moved to cpuinfo
|
|
+ linker in target_info is now a class
|
|
* many many updates for m68k (will soon start to compile)
|
|
- removed some ifdef or correct them for correct cpu
|
|
|
|
Revision 1.25 2002/07/26 21:15:42 florian
|
|
* rewrote the system handling
|
|
|
|
Revision 1.24 2002/07/07 09:52:33 florian
|
|
* powerpc target fixed, very simple units can be compiled
|
|
* some basic stuff for better callparanode handling, far from being finished
|
|
|
|
Revision 1.23 2002/07/01 18:46:29 peter
|
|
* internal linker
|
|
* reorganized aasm layer
|
|
|
|
Revision 1.22 2002/05/18 13:34:21 peter
|
|
* readded missing revisions
|
|
|
|
Revision 1.21 2002/05/16 19:46:49 carl
|
|
+ defines.inc -> fpcdefs.inc to avoid conflicts if compiling by hand
|
|
+ try to fix temp allocation (still in ifdef)
|
|
+ generic constructor calls
|
|
+ start of tassembler / tmodulebase class cleanup
|
|
|
|
Revision 1.19 2002/05/12 16:53:16 peter
|
|
* moved entry and exitcode to ncgutil and cgobj
|
|
* foreach gets extra argument for passing local data to the
|
|
iterator function
|
|
* -CR checks also class typecasts at runtime by changing them
|
|
into as
|
|
* fixed compiler to cycle with the -CR option
|
|
* fixed stabs with elf writer, finally the global variables can
|
|
be watched
|
|
* removed a lot of routines from cga unit and replaced them by
|
|
calls to cgobj
|
|
* u32bit-s32bit updates for and,or,xor nodes. When one element is
|
|
u32bit then the other is typecasted also to u32bit without giving
|
|
a rangecheck warning/error.
|
|
* fixed pascal calling method with reversing also the high tree in
|
|
the parast, detected by tcalcst3 test
|
|
|
|
Revision 1.18 2002/04/15 19:12:10 carl
|
|
+ target_info.size_of_pointer -> pointer_size
|
|
+ some cleanup of unused types/variables
|
|
* move several constants from cpubase to their specific units
|
|
(where they are used)
|
|
+ att_Reg2str -> gas_reg2str
|
|
+ int_reg2str -> std_reg2str
|
|
|
|
Revision 1.17 2002/04/14 16:58:04 carl
|
|
+ move into aggas most of the stuff non-processor specific
|
|
|
|
Revision 1.16 2002/04/10 08:07:55 jonas
|
|
* fix for the ie9999 under Linux (patch from Peter)
|
|
|
|
Revision 1.15 2002/04/04 19:06:06 peter
|
|
* removed unused units
|
|
* use tlocation.size in cg.a_*loc*() routines
|
|
|
|
Revision 1.14 2002/04/04 18:26:55 carl
|
|
+ added wdosx patch from Pavel
|
|
|
|
Revision 1.13 2002/04/02 17:11:33 peter
|
|
* tlocation,treference update
|
|
* LOC_CONSTANT added for better constant handling
|
|
* secondadd splitted in multiple routines
|
|
* location_force_reg added for loading a location to a register
|
|
of a specified size
|
|
* secondassignment parses now first the right and then the left node
|
|
(this is compatible with Kylix). This saves a lot of push/pop especially
|
|
with string operations
|
|
* adapted some routines to use the new cg methods
|
|
|
|
}
|