|
|
@@ -0,0 +1,557 @@
|
|
|
+{
|
|
|
+ $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 agx86att;
|
|
|
+
|
|
|
+{$i fpcdefs.inc}
|
|
|
+
|
|
|
+interface
|
|
|
+
|
|
|
+ uses
|
|
|
+ cclasses,cpubase,
|
|
|
+ globals,
|
|
|
+ aasmbase,aasmtai,aasmcpu,assemble,aggas;
|
|
|
+
|
|
|
+ type
|
|
|
+ T386ATTAssembler=class(TGNUassembler)
|
|
|
+ private
|
|
|
+ procedure WriteReference(var ref : treference);
|
|
|
+ procedure WriteOper(const o:toper);
|
|
|
+ procedure WriteOper_jmp(const o:toper);
|
|
|
+ public
|
|
|
+ procedure WriteInstruction(hp: tai);override;
|
|
|
+ end;
|
|
|
+
|
|
|
+ TAttSuffix = (AttSufNONE,AttSufINT,AttSufFPU,AttSufFPUint);
|
|
|
+
|
|
|
+ const
|
|
|
+{$ifdef x86_64}
|
|
|
+ gas_op2str:op2strtable={$i x64att.inc}
|
|
|
+ gas_needsuffix:array[tasmop] of TAttSuffix={$i x64atts.inc}
|
|
|
+{$else x86_64}
|
|
|
+ gas_op2str:op2strtable={$i i386att.inc}
|
|
|
+ gas_needsuffix:array[tasmop] of TAttSuffix={$i i386atts.inc}
|
|
|
+{$endif x86_64}
|
|
|
+
|
|
|
+ gas_reg2str : reg2strtable = ('',
|
|
|
+ {$ifdef x86_64}
|
|
|
+ '%rax','%rcx','%rdx','%rbx','%rsp','%rbp','%rsi','%rdi',
|
|
|
+ '%r8','%r9','%r10','%r11','%r12','%r13','%r14','%r15','%rip',
|
|
|
+ {$endif x86_64}
|
|
|
+ '%eax','%ecx','%edx','%ebx','%esp','%ebp','%esi','%edi',
|
|
|
+ {$ifdef x86_64}
|
|
|
+ '%r8d','%r9d','%r10d','%r11d','%r12d','%r13d','%r14d','%r15d',
|
|
|
+ {$endif x86_64}
|
|
|
+ '%ax','%cx','%dx','%bx','%sp','%bp','%si','%di',
|
|
|
+ {$ifdef x86_64}
|
|
|
+ '%r8w','%r9w','%r10w','%r11w','%r12w','%r13w','%r14w','%r15w',
|
|
|
+ {$endif x86_64}
|
|
|
+ '%al','%cl','%dl','%bl',
|
|
|
+ {$ifdef x86_64}
|
|
|
+ '%spl','%bpl','%sil','%dil',
|
|
|
+ '%r8b','%r9b','%r10b','%r11b','%r12b','%r13b','%r14b','%r15b',
|
|
|
+ {$endif x86_64}
|
|
|
+ '%ah','%ch','%bh','%dh',
|
|
|
+ {$ifdef x86_64}
|
|
|
+ {$endif x86_64}
|
|
|
+ '%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'
|
|
|
+ {$ifdef x86_64}
|
|
|
+ ,'%xmm8','%xmm9','%xmm10','%xmm11','%xmm12','%xmm13','%xmm14','%xmm15'
|
|
|
+ {$endif x86_64}
|
|
|
+ );
|
|
|
+
|
|
|
+ regname_count=45;
|
|
|
+ regname_count_bsstart=32;
|
|
|
+
|
|
|
+ gas_regname2regnum:array[0..regname_count-1] of regname2regnumrec=(
|
|
|
+ (name:'%ah'; number:NR_AH),
|
|
|
+ (name:'%al'; number:NR_AL),
|
|
|
+ (name:'%ax'; number:NR_AX),
|
|
|
+ (name:'%bh'; number:NR_BH),
|
|
|
+ (name:'%bl'; number:NR_BL),
|
|
|
+ (name:'%bp'; number:NR_BP),
|
|
|
+ (name:'%bx'; number:NR_BX),
|
|
|
+ (name:'%ch'; number:NR_CH),
|
|
|
+ (name:'%cl'; number:NR_CL),
|
|
|
+ (name:'%cs'; number:NR_CS),
|
|
|
+ (name:'%cr0'; number:NR_CR0),
|
|
|
+ (name:'%cr2'; number:NR_CR2),
|
|
|
+ (name:'%cr3'; number:NR_CR3),
|
|
|
+ (name:'%cr4'; number:NR_CR4),
|
|
|
+ (name:'%cx'; number:NR_CX),
|
|
|
+ (name:'%dh'; number:NR_DH),
|
|
|
+ (name:'%dl'; number:NR_DL),
|
|
|
+ (name:'%di'; number:NR_DI),
|
|
|
+ (name:'%dr0'; number:NR_DR0),
|
|
|
+ (name:'%dr1'; number:NR_DR1),
|
|
|
+ (name:'%dr2'; number:NR_DR2),
|
|
|
+ (name:'%dr3'; number:NR_DR3),
|
|
|
+ (name:'%dr6'; number:NR_DR6),
|
|
|
+ (name:'%dr7'; number:NR_DR7),
|
|
|
+ (name:'%ds'; number:NR_DS),
|
|
|
+ (name:'%dx'; number:NR_DX),
|
|
|
+ (name:'%eax'; number:NR_EAX),
|
|
|
+ (name:'%ebp'; number:NR_EBP),
|
|
|
+ (name:'%ebx'; number:NR_EBX),
|
|
|
+ (name:'%ecx'; number:NR_ECX),
|
|
|
+ (name:'%edi'; number:NR_EDI),
|
|
|
+ (name:'%edx'; number:NR_EDX),
|
|
|
+ (name:'%es'; number:NR_ES),
|
|
|
+ (name:'%esi'; number:NR_ESI),
|
|
|
+ (name:'%esp'; number:NR_ESP),
|
|
|
+ (name:'%fs'; number:NR_FS),
|
|
|
+ (name:'%gs'; number:NR_GS),
|
|
|
+ (name:'%si'; number:NR_SI),
|
|
|
+ (name:'%sp'; number:NR_SP),
|
|
|
+ (name:'%ss'; number:NR_SS),
|
|
|
+ (name:'%tr3'; number:NR_DR0),
|
|
|
+ (name:'%tr4'; number:NR_DR1),
|
|
|
+ (name:'%tr5'; number:NR_DR2),
|
|
|
+ (name:'%tr6'; number:NR_DR6),
|
|
|
+ (name:'%tr7'; number:NR_DR7)
|
|
|
+ );
|
|
|
+
|
|
|
+{$ifdef x86_64}
|
|
|
+ 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',
|
|
|
+ '','',''
|
|
|
+ );
|
|
|
+{$else x86_64}
|
|
|
+ gas_opsize2str : array[topsize] of string[2] = ('',
|
|
|
+ 'b','w','l','bw','bl','wl',
|
|
|
+ 's','l','q',
|
|
|
+ 's','l','t','d','q','v','',
|
|
|
+ '','',''
|
|
|
+ );
|
|
|
+{$endif x86_64}
|
|
|
+
|
|
|
+ function gas_regnum_search(const s:string):Tnewregister;
|
|
|
+
|
|
|
+
|
|
|
+ implementation
|
|
|
+
|
|
|
+ uses
|
|
|
+ cutils,systems,
|
|
|
+ verbose;
|
|
|
+
|
|
|
+
|
|
|
+{****************************************************************************
|
|
|
+ TX86ATTASMOUTPUT
|
|
|
+ ****************************************************************************}
|
|
|
+
|
|
|
+ procedure Tx86AttAssembler.WriteReference(var ref : treference);
|
|
|
+ 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.enum>lastreg then
|
|
|
+ internalerror(200301081);
|
|
|
+ if base.enum>lastreg then
|
|
|
+ internalerror(200301081);
|
|
|
+ if index.enum>lastreg then
|
|
|
+ internalerror(200301081);
|
|
|
+ if segment.enum<>R_NO then
|
|
|
+ AsmWrite(gas_reg2str[segment.enum]+':');
|
|
|
+ if assigned(symbol) then
|
|
|
+ AsmWrite(symbol.name);
|
|
|
+ if offset<0 then
|
|
|
+ AsmWrite(tostr(offset))
|
|
|
+ else
|
|
|
+ if (offset>0) then
|
|
|
+ begin
|
|
|
+ if assigned(symbol) then
|
|
|
+ AsmWrite('+'+tostr(offset))
|
|
|
+ else
|
|
|
+ AsmWrite(tostr(offset));
|
|
|
+ end
|
|
|
+ else if (index.enum=R_NO) and (base.enum=R_NO) and not assigned(symbol) then
|
|
|
+ AsmWrite('0');
|
|
|
+ if (index.enum<>R_NO) and (base.enum=R_NO) then
|
|
|
+ begin
|
|
|
+ AsmWrite('(,'+gas_reg2str[index.enum]);
|
|
|
+ if scalefactor<>0 then
|
|
|
+ AsmWrite(','+tostr(scalefactor)+')')
|
|
|
+ else
|
|
|
+ AsmWrite(')');
|
|
|
+ end
|
|
|
+ else
|
|
|
+ if (index.enum=R_NO) and (base.enum<>R_NO) then
|
|
|
+ AsmWrite('('+gas_reg2str[base.enum]+')')
|
|
|
+ else
|
|
|
+ if (index.enum<>R_NO) and (base.enum<>R_NO) then
|
|
|
+ begin
|
|
|
+ AsmWrite('('+gas_reg2str[base.enum]+','+gas_reg2str[index.enum]);
|
|
|
+ if scalefactor<>0 then
|
|
|
+ AsmWrite(','+tostr(scalefactor));
|
|
|
+ AsmWrite(')');
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+
|
|
|
+
|
|
|
+ procedure Tx86AttAssembler.WriteOper(const o:toper);
|
|
|
+ begin
|
|
|
+ case o.typ of
|
|
|
+ top_reg :
|
|
|
+ begin
|
|
|
+ if o.reg.enum>lastreg then
|
|
|
+ internalerror(200301081);
|
|
|
+ AsmWrite(gas_reg2str[o.reg.enum]);
|
|
|
+ end;
|
|
|
+ top_ref :
|
|
|
+ WriteReference(o.ref^);
|
|
|
+ top_const :
|
|
|
+ AsmWrite('$'+tostr(longint(o.val)));
|
|
|
+ top_symbol :
|
|
|
+ begin
|
|
|
+ AsmWrite('$');
|
|
|
+ if assigned(o.sym) then
|
|
|
+ AsmWrite(o.sym.name);
|
|
|
+ if o.symofs>0 then
|
|
|
+ AsmWrite('+'+tostr(o.symofs))
|
|
|
+ else
|
|
|
+ if o.symofs<0 then
|
|
|
+ AsmWrite(tostr(o.symofs))
|
|
|
+ else
|
|
|
+ if not(assigned(o.sym)) then
|
|
|
+ AsmWrite('0');
|
|
|
+ end;
|
|
|
+ else
|
|
|
+ internalerror(10001);
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+
|
|
|
+
|
|
|
+ procedure Tx86AttAssembler.WriteOper_jmp(const o:toper);
|
|
|
+ begin
|
|
|
+ case o.typ of
|
|
|
+ top_reg :
|
|
|
+ begin
|
|
|
+ if o.reg.enum>lastreg then
|
|
|
+ internalerror(200301081);
|
|
|
+ AsmWrite('*'+gas_reg2str[o.reg.enum]);
|
|
|
+ end;
|
|
|
+ top_ref :
|
|
|
+ begin
|
|
|
+ AsmWrite('*');
|
|
|
+ WriteReference(o.ref^);
|
|
|
+ end;
|
|
|
+ top_const :
|
|
|
+ AsmWrite(tostr(longint(o.val)));
|
|
|
+ top_symbol :
|
|
|
+ begin
|
|
|
+ AsmWrite(o.sym.name);
|
|
|
+ if o.symofs>0 then
|
|
|
+ AsmWrite('+'+tostr(o.symofs))
|
|
|
+ else
|
|
|
+ if o.symofs<0 then
|
|
|
+ AsmWrite(tostr(o.symofs));
|
|
|
+ end;
|
|
|
+ else
|
|
|
+ internalerror(10001);
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+
|
|
|
+
|
|
|
+ procedure Tx86AttAssembler.WriteInstruction(hp: tai);
|
|
|
+ var
|
|
|
+ op : tasmop;
|
|
|
+ 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 }
|
|
|
+ AsmWrite(#9+gas_op2str[op]+cond2str[taicpu(hp).condition]);
|
|
|
+ { suffix needed ? fnstsw,fldcw don't support suffixes
|
|
|
+ with binutils 2.9.5 under linux }
|
|
|
+ if (Taicpu(hp).oper[0].typ=top_reg) and
|
|
|
+ (Taicpu(hp).oper[0].reg.enum>lastreg) then
|
|
|
+ internalerror(200301081);
|
|
|
+
|
|
|
+ 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.enum in [R_ST..R_ST7])
|
|
|
+ ) then
|
|
|
+ AsmWrite(gas_opsize2str[taicpu(hp).opsize]);
|
|
|
+ { process operands }
|
|
|
+ if taicpu(hp).ops<>0 then
|
|
|
+ begin
|
|
|
+ if calljmp then
|
|
|
+ begin
|
|
|
+ AsmWrite(#9);
|
|
|
+ WriteOper_jmp(taicpu(hp).oper[0]);
|
|
|
+ end
|
|
|
+ else
|
|
|
+ begin
|
|
|
+ for i:=0 to taicpu(hp).ops-1 do
|
|
|
+ begin
|
|
|
+ if i=0 then
|
|
|
+ AsmWrite(#9)
|
|
|
+ else
|
|
|
+ AsmWrite(',');
|
|
|
+ WriteOper(taicpu(hp).oper[i]);
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+ AsmLn;
|
|
|
+ end;
|
|
|
+
|
|
|
+
|
|
|
+ function gas_regnum_search(const s:string):Tnewregister;
|
|
|
+
|
|
|
+ {Searches the register number that belongs to the register in s.
|
|
|
+ s must be in uppercase!.}
|
|
|
+
|
|
|
+ var i,p:byte;
|
|
|
+
|
|
|
+ begin
|
|
|
+ {Binary search.}
|
|
|
+ p:=0;
|
|
|
+ i:=regname_count_bsstart;
|
|
|
+ while i<>0 do
|
|
|
+ begin
|
|
|
+ if (p+i<regname_count) and (upper(gas_regname2regnum[p+i].name)<=s) then
|
|
|
+ p:=p+i;
|
|
|
+ i:=i shr 1;
|
|
|
+ end;
|
|
|
+ if upper(gas_regname2regnum[p].name)=s then
|
|
|
+ gas_regnum_search:=gas_regname2regnum[p].number
|
|
|
+ else
|
|
|
+ gas_regnum_search:=NR_NO;
|
|
|
+ end;
|
|
|
+
|
|
|
+{*****************************************************************************
|
|
|
+ Initialize
|
|
|
+*****************************************************************************}
|
|
|
+
|
|
|
+ const
|
|
|
+{$ifdef x86_64}
|
|
|
+ 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')
|
|
|
+ );
|
|
|
+{$else x86_64}
|
|
|
+ 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_any;
|
|
|
+{ supported_target : system_i386_emx;}
|
|
|
+ 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')
|
|
|
+ );
|
|
|
+{$endif x86_64}
|
|
|
+
|
|
|
+initialization
|
|
|
+{$ifdef x86_64}
|
|
|
+ RegisterAssembler(as_x86_64_as_info,Tx86ATTAssembler);
|
|
|
+{$else x86_64}
|
|
|
+ RegisterAssembler(as_i386_as_info,Tx86ATTAssembler);
|
|
|
+ RegisterAssembler(as_i386_as_aout_info,Tx86ATTAssembler);
|
|
|
+ RegisterAssembler(as_i386_asw_info,Tx86ATTAssembler);
|
|
|
+{$endif x86_64}
|
|
|
+end.
|
|
|
+{
|
|
|
+ $Log$
|
|
|
+ Revision 1.1 2003-04-25 11:50:20 florian
|
|
|
+ * commited it, to remove it :)
|
|
|
+
|
|
|
+ Revision 1.31 2003/03/23 23:33:10 hajny
|
|
|
+ + emx target added
|
|
|
+
|
|
|
+ Revision 1.30 2003/02/19 22:00:15 daniel
|
|
|
+ * Code generator converted to new register notation
|
|
|
+ - Horribily outdated todo.txt removed
|
|
|
+
|
|
|
+ Revision 1.29 2003/01/08 18:43:57 daniel
|
|
|
+ * Tregister changed into a record
|
|
|
+
|
|
|
+ Revision 1.28 2003/01/05 13:36:53 florian
|
|
|
+ * x86-64 compiles
|
|
|
+ + very basic support for float128 type (x86-64 only)
|
|
|
+
|
|
|
+ Revision 1.27 2002/12/24 18:10:34 peter
|
|
|
+ * Long symbol names support
|
|
|
+
|
|
|
+ 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
|
|
|
+
|
|
|
+}
|
florian