123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439 |
- {
- $Id$
- Copyright (c) 1998-2002 by Florian Klaempfl
- This unit implements an asmoutput class for m68k GAS 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 agcpugas;
- {$i fpcdefs.inc}
- interface
- uses
- cclasses,cpubase,
- globals,
- aasmbase,aasmtai,aasmcpu,assemble,aggas;
- type
- TM68kAssembler=class(TGNUassembler)
- public
- procedure WriteInstruction(hp: tai);override;
- end;
- const
- gas_op2str:op2strtable=
- { warning: CPU32 opcodes are not fully compatible with the MC68020. }
- { 68000 only opcodes }
- ('abcd',
- 'add','adda','addi','addq','addx','and','andi',
- 'asl','asr','bcc','bcs','beq','bge','bgt','bhi',
- 'ble','bls','blt','bmi','bne','bpl','bvc','bvs',
- 'bchg','bclr','bra','bset','bsr','btst','chk',
- 'clr','cmp','cmpa','cmpi','cmpm','dbcc','dbcs','dbeq','dbge',
- 'dbgt','dbhi','dble','dbls','dblt','dbmi','dbne','dbra',
- 'dbpl','dbt','dbvc','dbvs','dbf','divs','divu',
- 'eor','eori','exg','illegal','ext','jmp','jsr',
- 'lea','link','lsl','lsr','move','movea','movei','moveq',
- 'movem','movep','muls','mulu','nbcd','neg','negx',
- 'nop','not','or','ori','pea','rol','ror','roxl',
- 'roxr','rtr','rts','sbcd','scc','scs','seq','sge',
- 'sgt','shi','sle','sls','slt','smi','sne',
- 'spl','st','svc','svs','sf','sub','suba','subi','subq',
- 'subx','swap','tas','trap','trapv','tst','unlk',
- 'rte','reset','stop',
- { mc68010 instructions }
- 'bkpt','movec','moves','rtd',
- { mc68020 instructions }
- 'bfchg','bfclr','bfexts','bfextu','bfffo',
- 'bfins','bfset','bftst','callm','cas','cas2',
- 'chk2','cmp2','divsl','divul','extb','pack','rtm',
- 'trapcc','tracs','trapeq','trapf','trapge','trapgt',
- 'traphi','traple','trapls','traplt','trapmi','trapne',
- 'trappl','trapt','trapvc','trapvs','unpk',
- { fpu processor instructions - directly supported only. }
- { ieee aware and misc. condition codes not supported }
- 'fabs','fadd',
- 'fbeq','fbne','fbngt','fbgt','fbge','fbnge',
- 'fblt','fbnlt','fble','fbgl','fbngl','fbgle','fbngle',
- 'fdbeq','fdbne','fdbgt','fdbngt','fdbge','fdbnge',
- 'fdblt','fdbnlt','fdble','fdbgl','fdbngl','fdbgle','fdbngle',
- 'fseq','fsne','fsgt','fsngt','fsge','fsnge',
- 'fslt','fsnlt','fsle','fsgl','fsngl','fsgle','fsngle',
- 'fcmp','fdiv','fmove','fmovem',
- 'fmul','fneg','fnop','fsqrt','fsub','fsgldiv',
- 'fsflmul','ftst',
- 'ftrapeq','ftrapne','ftrapgt','ftrapngt','ftrapge','ftrapnge',
- 'ftraplt','ftrapnlt','ftraple','ftrapgl','ftrapngl','ftrapgle','ftrapngle',
- { protected instructions }
- 'cprestore','cpsave',
- { fpu unit protected instructions }
- { and 68030/68851 common mmu instructions }
- { (this may include 68040 mmu instructions) }
- 'frestore','fsave','pflush','pflusha','pload','pmove','ptest',
- { useful for assembly language output }
- 'label','none','db','s','b','fb');
-
- gas_opsize2str : array[topsize] of string[2] =
- ('','.b','.w','.l','.s','.d','.x',''
- );
- gas_reg2str : reg2strtable =
- ('', '%d0','%d1','%d2','%d3','%d4','%d5','%d6','%d7',
- '%a0','%a1','%a2','%a3','%a4','%a5','%a6','%sp',
- '-(%sp)','(%sp)+',
- '%ccr','%fp0','%fp1','%fp2','%fp3','%fp4','%fp5',
- '%fp6','%fp7','%fpcr','%sr','%ssp','%dfc',
- '%sfc','%vbr','%fpsr');
- implementation
- uses
- cutils,systems,
- verbose;
- function getreferencestring(var ref : treference) : string;
- var
- s,basestr,indexstr : string;
- begin
- s:='';
- with ref do
- begin
- inc(offset,offsetfixup);
- offsetfixup:=0;
- basestr:=gas_reg2str[base.enum];
- indexstr:=gas_reg2str[index.enum];
- if assigned(symbol) then
- s:=s+symbol.name;
- if offset<0 then s:=s+tostr(offset)
- else if (offset>0) then
- begin
- if (symbol=nil) then s:=tostr(offset)
- else s:=s+'+'+tostr(offset);
- end
- else if (index.enum=R_NO) and (base.enum=R_NO) and not assigned(symbol) then
- s:=s+'0';
- if (index.enum<>R_NO) and (base.enum=R_NO) and (direction=dir_none) then
- begin
- if (scalefactor = 1) or (scalefactor = 0) then
- s:=s+'(,'+indexstr+'.l)'
- else
- s:=s+'(,'+indexstr+'.l*'+tostr(scalefactor)+')'
- end
- else if (index.enum=R_NO) and (base.enum<>R_NO) and (direction=dir_inc) then
- begin
- if (scalefactor = 1) or (scalefactor = 0) then
- s:=s+'('+basestr+')+'
- else
- InternalError(10002);
- end
- else if (index.enum=R_NO) and (base.enum<>R_NO) and (direction=dir_dec) then
- begin
- if (scalefactor = 1) or (scalefactor = 0) then
- s:=s+'-('+basestr+')'
- else
- InternalError(10003);
- end
- else if (index.enum=R_NO) and (base.enum<>R_NO) and (direction=dir_none) then
- begin
- s:=s+'('+basestr+')'
- end
- else if (index.enum<>R_NO) and (base.enum<>R_NO) and (direction=dir_none) then
- begin
- if (scalefactor = 1) or (scalefactor = 0) then
- s:=s+'('+basestr+','+indexstr+'.l)'
- else
- s:=s+'('+basestr+','+indexstr+'.l*'+tostr(scalefactor)+')';
- end;
- end;
- getreferencestring:=s;
- end;
- function getopstr(const o:toper) : string;
- var
- hs : string;
- i:Tsuperregister;
- begin
- case o.typ of
- top_reg : getopstr:=gas_reg2str[o.reg.enum];
- top_ref : getopstr:=getreferencestring(o.ref^);
- top_reglist : begin
- hs:='';
- for i:=first_supreg to last_supreg do
- begin
- if i in o.registerlist then
- hs:=hs+supreg_name(i)+'/';
- end;
- delete(hs,length(hs),1);
- getopstr := hs;
- end;
- top_const : getopstr:='#'+tostr(longint(o.val));
- top_symbol :
- { compare with i386, where a symbol is considered }
- { a constant. }
- 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.enum];
- top_ref : getopstr_jmp:=getreferencestring(o.ref^);
- top_const : getopstr_jmp:=tostr(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_jmp:=hs;
- end;
- else internalerror(10001);
- end;
- end;
- {****************************************************************************
- TM68kASMOUTPUT
- ****************************************************************************}
- (*
- ait_instruction : begin
- { old versions of GAS don't like PEA.L and LEA.L }
- if (paicpu(hp)^.opcode in [
- A_LEA,A_PEA,A_ABCD,A_BCHG,A_BCLR,A_BSET,A_BTST,
- A_EXG,A_NBCD,A_SBCD,A_SWAP,A_TAS,A_SCC,A_SCS,
- A_SEQ,A_SGE,A_SGT,A_SHI,A_SLE,A_SLS,A_SLT,A_SMI,
- A_SNE,A_SPL,A_ST,A_SVC,A_SVS,A_SF]) then
- s:=#9+mot_op2str[paicpu(hp)^.opcode]
- else
- s:=#9+mot_op2str[paicpu(hp)^.opcode]+mit_opsize2str[paicpu(hp)^.opsize];
- if paicpu(hp)^.ops>0 then
- begin
- { call and jmp need an extra handling }
- { this code is only callded if jmp isn't a labeled instruction }
- if paicpu(hp)^.opcode in [A_BSR,A_BRA,A_LEA,A_PEA,A_JSR,A_JMP] then
- s:=s+#9#9+getopstr_jmp(paicpu(hp)^.oper[0])
- else
- s:=s+#9+getopstr(paicpu(hp)^.oper[0]);
- if paicpu(hp)^.ops>1 then
- begin
- s:=s+','+getopstr(paicpu(hp)^.oper[1]);
- { three operands }
- if paicpu(hp)^.ops>2 then
- begin
- if (paicpu(hp)^.opcode = A_DIVSL) or
- (paicpu(hp)^.opcode = A_DIVUL) or
- (paicpu(hp)^.opcode = A_MULU) or
- (paicpu(hp)^.opcode = A_MULS) or
- (paicpu(hp)^.opcode = A_DIVS) or
- (paicpu(hp)^.opcode = A_DIVU) then
- s:=s+':'+getopstr(paicpu(hp)^.oper[2])
- else
- s:=s+','+getopstr(paicpu(hp)^.oper[2]);
- end;
- end;
- end;
- AsmWriteLn(s);
- end;
- ait_labeled_instruction : begin
- { labeled operand }
- if pai_labeled(hp)^.register = R_NO then
- begin
- if pai_labeled(hp)^.lab <> nil then
- AsmWriteLn(#9+mot_op2str[pai_labeled(hp)^.opcode]+#9+pai_labeled(hp)^.lab^.name)
- else
- AsmWriteLn(#9+mot_op2str[pai_labeled(hp)^.opcode]+#9+pai_labeled(hp)^.sym^.name);
- end
- else
- { labeled operand with register }
- begin
- if pai_labeled(hp)^.lab <> nil then
- begin
- AsmWriteLn(#9+mot_op2str[pai_labeled(hp)^.opcode]+#9+
- gas_reg2str[pai_labeled(hp)^.register]+','+pai_labeled(hp)^.lab^.name);
- end
- else
- { a symbol is the value }
- begin
- AsmWriteLn(#9+mot_op2str[pai_labeled(hp)^.opcode]+#9+
- gas_reg2str[pai_labeled(hp)^.register]+','+pai_labeled(hp)^.sym^.name);
- end;
- end;
- end;
- *)
- { returns the opcode string }
- function getopcodestring(hp : tai) : string;
- var
- op : tasmop;
- s : string;
- begin
- op:=taicpu(hp).opcode;
- { old versions of GAS don't like PEA.L and LEA.L }
- if (op in [
- A_LEA,A_PEA,A_ABCD,A_BCHG,A_BCLR,A_BSET,A_BTST,
- A_EXG,A_NBCD,A_SBCD,A_SWAP,A_TAS,A_SCC,A_SCS,
- A_SEQ,A_SGE,A_SGT,A_SHI,A_SLE,A_SLS,A_SLT,A_SMI,
- A_SNE,A_SPL,A_ST,A_SVC,A_SVS,A_SF]) then
- s:=gas_op2str[op]
- else
- if op = A_SXX then
- s:=gas_op2str[op]+cond2str[taicpu(hp).condition]
- else
- if op in [a_dbxx,a_bxx,a_fbxx] then
- s:=gas_op2str[op]+cond2str[taicpu(hp).condition]+gas_opsize2str[taicpu(hp).opsize]
- else
- s:=gas_op2str[op]+gas_opsize2str[taicpu(hp).opsize];
- getopcodestring:=s;
- end;
- procedure TM68kAssembler. WriteInstruction(hp: tai);
- var
- op : tasmop;
- s : string;
- sep : char;
- calljmp : boolean;
- i : integer;
- begin
- if hp.typ <> ait_instruction then exit;
- op:=taicpu(hp).opcode;
- calljmp:=is_calljmp(op);
- { call maybe not translated to call }
- s:=#9+getopcodestring(hp);
- { 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
- if ((op = A_DIVSL) or
- (op = A_DIVUL) or
- (op = A_MULU) or
- (op = A_MULS) or
- (op = A_DIVS) or
- (op = A_DIVU)) and (i=1) then
- sep:=':'
- else
- sep:=',';
- s:=s+sep+getopstr(taicpu(hp).oper[i])
- end;
- end;
- end;
- AsmWriteLn(s);
- end;
- {*****************************************************************************
- Initialize
- *****************************************************************************}
- const
- as_m68k_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')
- );
- initialization
- RegisterAssembler(as_m68k_as_info,TM68kAssembler);
- end.
- {
- $Log$
- Revision 1.7 2003-02-19 22:00:16 daniel
- * Code generator converted to new register notation
- - Horribily outdated todo.txt removed
- Revision 1.6 2003/02/15 22:19:40 carl
- * bugfix of emissions of jmp instructions
- Revision 1.5 2003/01/08 18:43:57 daniel
- * Tregister changed into a record
- Revision 1.4 2002/11/30 23:33:02 carl
- * merges from Pierre's fixes in m68k fixes branch
- Revision 1.3 2002/09/07 15:25:11 peter
- * old logs removed and tabs fixed
- Revision 1.2 2002/08/13 18:58:54 carl
- + m68k problems with cvs fixed?()!
- }
|