{ $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 }