diff options
Diffstat (limited to 'gmp-6.3.0/mpn/m68k/m68k-defs.m4')
| -rw-r--r-- | gmp-6.3.0/mpn/m68k/m68k-defs.m4 | 230 |
1 files changed, 230 insertions, 0 deletions
diff --git a/gmp-6.3.0/mpn/m68k/m68k-defs.m4 b/gmp-6.3.0/mpn/m68k/m68k-defs.m4 new file mode 100644 index 0000000..15289f6 --- /dev/null +++ b/gmp-6.3.0/mpn/m68k/m68k-defs.m4 @@ -0,0 +1,230 @@ +divert(-1) + +dnl m4 macros for 68k assembler. + +dnl Copyright 2001-2003 Free Software Foundation, Inc. + +dnl This file is part of the GNU MP Library. +dnl +dnl The GNU MP Library is free software; you can redistribute it and/or modify +dnl it under the terms of either: +dnl +dnl * the GNU Lesser General Public License as published by the Free +dnl Software Foundation; either version 3 of the License, or (at your +dnl option) any later version. +dnl +dnl or +dnl +dnl * the GNU General Public License as published by the Free Software +dnl Foundation; either version 2 of the License, or (at your option) any +dnl later version. +dnl +dnl or both in parallel, as here. +dnl +dnl The GNU MP Library is distributed in the hope that it will be useful, but +dnl WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY +dnl or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +dnl for more details. +dnl +dnl You should have received copies of the GNU General Public License and the +dnl GNU Lesser General Public License along with the GNU MP Library. If not, +dnl see https://www.gnu.org/licenses/. + + +dnl The default m4 `#' commenting interferes with the assembler syntax for +dnl immediates. `|' would be correct, but it interferes with "||" in +dnl eval(). Would like to disable commenting, but that's not possible (see +dnl mpn/asm-defs.m4), so use `;' which should be harmless. + +changecom(;) + + +dnl Called: PROLOGUE_cpu(GSYM_PREFIX`'foo) +dnl +dnl Same as the standard PROLOGUE, but align to 2 bytes not 4. + +define(`PROLOGUE_cpu', +m4_assert_numargs(1) +` TEXT + ALIGN(2) + GLOBL `$1' GLOBL_ATTR + TYPE(`$1',`function') +`$1'LABEL_SUFFIX') + + +dnl Usage: d0, etc +dnl +dnl Expand to d0 or %d0 according to the assembler's requirements. +dnl +dnl Actually d0 expands to `d0' or %`d0', the quotes protecting against +dnl further expansion. Definitions are made even if d0 is to be just `d0', +dnl so that any m4 quoting problems will show up everywhere, not just on a +dnl %d0 system. +dnl +dnl Care must be taken with quoting when using these in a definition. For +dnl instance the quotes in the following are essential or two %'s will be +dnl produced when `counter' is used. +dnl +dnl define(counter, `d7') +dnl + +dnl Called: m68k_reg(r) +define(m68k_reg, +m4_assert_numargs(1) +m4_assert_defined(`WANT_REGISTER_PERCENT') +`ifelse(WANT_REGISTER_PERCENT,yes,%)`$1'') + +dnl Usage: m68k_defreg(r) +define(m68k_defreg, +m4_assert_numargs(1) +`deflit($1,`m68k_reg(`$1')')') + +m68k_defreg(d0) +m68k_defreg(d1) +m68k_defreg(d2) +m68k_defreg(d3) +m68k_defreg(d4) +m68k_defreg(d5) +m68k_defreg(d6) +m68k_defreg(d7) + +m68k_defreg(a0) +m68k_defreg(a1) +m68k_defreg(a2) +m68k_defreg(a3) +m68k_defreg(a4) +m68k_defreg(a5) +m68k_defreg(a6) +m68k_defreg(a7) + +m68k_defreg(sp) +m68k_defreg(pc) + + +dnl Usage: M(base) +dnl M(base,displacement) +dnl M(base,index,size) +dnl M(base,index,size,scale) +dnl M(base,+) +dnl M(-,base) +dnl +dnl `base' is an address register, `index' is a data register, `size' is w +dnl or l, and scale is 1, 2, 4 or 8. +dnl +dnl M(-,base) has it's arguments that way around to emphasise it's a +dnl pre-decrement, as opposed to M(base,+) a post-increment. +dnl +dnl Enhancement: Add the memory indirect modes, if/when they're needed. + +define(M, +m4_assert_numargs_range(1,4) +m4_assert_defined(`WANT_ADDRESSING') +`ifelse(WANT_ADDRESSING,mit, +`ifelse($#,1, ``$1'@')dnl +ifelse($#,2, +`ifelse($2,+, ``$1'@+', +`ifelse($1,-, ``$2'@-', + ``$1'@($2)')')')dnl +ifelse($#,3, ``$1'@(`$2':`$3')')dnl +ifelse($#,4, ``$1'@(`$2':`$3':$4)')', + +dnl WANT_ADDRESSING `motorola' +`ifelse($#,1, `(`$1')')dnl +ifelse($#,2, +`ifelse($2,+, `(`$1')+', +`ifelse($1,-, `-(`$2')', + `$2(`$1')')')')dnl +ifelse($#,3, `(`$1',`$2'.$3)')dnl +ifelse($#,4, `(`$1',`$2'.$3*$4)')')') + + +dnl Usage: addl etc +dnl +dnl m68k instructions with special handling for the suffix, with for +dnl instance addl expanding to addl or add.l as necessary. +dnl +dnl See also t-m68k-defs.pl which verifies all mnemonics used in the asm +dnl files have entries here. + +dnl Called: m68k_insn(mnemonic,suffix) +define(m68k_insn, +m4_assert_numargs(2) +m4_assert_defined(`WANT_DOT_SIZE') +`ifelse(WANT_DOT_SIZE,yes, ``$1'.``$2''', + ``$1$2'')') + +dnl Usage: m68k_definsn(mnemonic,suffix) +define(m68k_definsn, +m4_assert_numargs(2) +`deflit($1`'$2,`m68k_insn(`$1',`$2')')') + +m68k_definsn(add, l) +m68k_definsn(addx, l) +m68k_definsn(addq, l) +m68k_definsn(asl, l) +m68k_definsn(cmp, l) +m68k_definsn(cmp, w) +m68k_definsn(clr, l) +m68k_definsn(divu, l) +m68k_definsn(eor, w) +m68k_definsn(lsl, l) +m68k_definsn(lsr, l) +m68k_definsn(move, l) +m68k_definsn(move, w) +m68k_definsn(movem,l) +m68k_definsn(moveq,l) +m68k_definsn(mulu, l) +m68k_definsn(neg, l) +m68k_definsn(or, l) +m68k_definsn(roxl, l) +m68k_definsn(roxr, l) +m68k_definsn(sub, l) +m68k_definsn(subx, l) +m68k_definsn(subq, l) + + +dnl Usage: bra etc +dnl +dnl Expand to `bra', `jra' or `jbra' according to what the assembler will +dnl accept. The latter two give variable-sized branches in gas. +dnl +dnl See also t-m68k-defs.pl which verifies all the bXX branches used in the +dnl asm files have entries here. + +dnl Called: m68k_branch(cond) +define(m68k_branch, +m4_assert_numargs(1) +m4_assert_defined(`WANT_BRANCHES') +`ifelse(WANT_BRANCHES,jra, `j$1', +`ifelse(WANT_BRANCHES,jbra,`jb$1', + ``b$1'')')') + +dnl Called: m68k_defbranch(cond) +define(m68k_defbranch, +m4_assert_numargs(1) +`deflit(b$1,`m68k_branch(`$1')')') + +m68k_defbranch(ra) +m68k_defbranch(cc) +m68k_defbranch(cs) +m68k_defbranch(ls) +m68k_defbranch(eq) +m68k_defbranch(ne) + + +dnl Usage: scale_available_p +dnl +dnl Expand to 1 if a scale factor can be used in addressing modes, or 0 if +dnl not. M(a0,d0,l,4), meaning a0+d0*4, is not available in 68000 or +dnl 68010, but is in CPU32 and in 68020 and up. + +define(scale_available_p, +`m4_ifdef_anyof_p( +`HAVE_HOST_CPU_m68360' +`HAVE_HOST_CPU_m68020' +`HAVE_HOST_CPU_m68030' +`HAVE_HOST_CPU_m68040' +`HAVE_HOST_CPU_m68060')') + + +divert |