{ $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 x86-64 AT&T syntax } unit agx64att; {$i fpcdefs.inc} interface uses cclasses,cpubase, globals, aasmbase,aasmtai,aasmcpu,assemble,aggas; type Tx86_64ATTAssembler=class(TGNUassembler) public procedure WriteInstruction(hp: tai);override; end; TAttSuffix = (AttSufNONE,AttSufINT,AttSufFPU,AttSufFPUint); const gas_op2str:op2strtable={$i x64att.inc} gas_needsuffix:array[tasmop] of TAttSuffix={$i x64atts.inc} gas_reg2str : reg2strtable = ('', '%rax','%rcx','%rdx','%rbx','%rsp','%rbp','%rsi','%rdi', '%r8','%r9','%r10','%r11','%r12','%r13','%r14','%r15','%rip', '%eax','%ecx','%edx','%ebx','%esp','%ebp','%esi','%edi', '%r8d','%r9d','%r10d','%r11d','%r12d','%r13d','%r14d','%r15d', '%ax','%cx','%dx','%bx','%sp','%bp','%si','%di', '%r8w','%r9w','%r10w','%r11w','%r12w','%r13w','%r14w','%r15w', '%al','%cl','%dl','%bl','%spl','%bpl','%sil','%dil', '%r8b','%r9b','%r10b','%r11b','%r12b','%r13b','%r14b','%r15b', '%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', '%xmm8','%xmm9','%xmm10','%xmm11','%xmm12','%xmm13','%xmm14','%xmm15' ); gas_opsize2str : array[topsize] of string[2] = ('', 'b','w','l','bw','bl','wl','bq','wq','lq', 's','l','q', 's','l','t','d','q','v','x', '','','' ); 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 Tx86_64AttAssembler. 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_x86_64_as_info : tasminfo = ( id : as_x86_64_as; 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') ); initialization RegisterAssembler(as_x86_64_as_info,Tx86_64ATTAssembler); end. { $Log$ Revision 1.4 2003-01-05 13:36:54 florian * x86-64 compiles + very basic support for float128 type (x86-64 only) Revision 1.3 2002/08/12 15:08:44 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.2 2002/07/25 22:55:33 florian * several fixes, small test units can be compiled Revision 1.1 2002/07/24 22:38:15 florian + initial release of x86-64 target code }