source/libs/gmp/gmp-src/mpn/m68k/m68k-defs.m4

   1 divert(-1)
   2
   3 dnl  m4 macros for 68k assembler.
   4
   5 dnl  Copyright 2001-2003 Free Software Foundation, Inc.
   6
   7 dnl  This file is part of the GNU MP Library.
   8 dnl
   9 dnl  The GNU MP Library is free software; you can redistribute it and/or modify
  10 dnl  it under the terms of either:
  11 dnl
  12 dnl    * the GNU Lesser General Public License as published by the Free
  13 dnl      Software Foundation; either version 3 of the License, or (at your
  14 dnl      option) any later version.
  15 dnl
  16 dnl  or
  17 dnl
  18 dnl    * the GNU General Public License as published by the Free Software
  19 dnl      Foundation; either version 2 of the License, or (at your option) any
  20 dnl      later version.
  21 dnl
  22 dnl  or both in parallel, as here.
  23 dnl
  24 dnl  The GNU MP Library is distributed in the hope that it will be useful, but
  25 dnl  WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
  26 dnl  or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  27 dnl  for more details.
  28 dnl
  29 dnl  You should have received copies of the GNU General Public License and the
  30 dnl  GNU Lesser General Public License along with the GNU MP Library.  If not,
  31 dnl  see https://www.gnu.org/licenses/.
  32
  33
  34 dnl  The default m4 `#' commenting interferes with the assembler syntax for
  35 dnl  immediates.  `|' would be correct, but it interferes with "||" in
  36 dnl  eval().  Would like to disable commenting, but that's not possible (see
  37 dnl  mpn/asm-defs.m4), so use `;' which should be harmless.
  38
  39 changecom(;)
  40
  41
  42 dnl  Called: PROLOGUE_cpu(GSYM_PREFIX`'foo)
  43 dnl
  44 dnl  Same as the standard PROLOGUE, but align to 2 bytes not 4.
  45
  46 define(`PROLOGUE_cpu',
  47 m4_assert_numargs(1)
  48 `       TEXT
  49         ALIGN(2)
  50         GLOBL   `$1' GLOBL_ATTR
  51         TYPE(`$1',`function')
  52 `$1'LABEL_SUFFIX')
  53
  54
  55 dnl  Usage: d0, etc
  56 dnl
  57 dnl  Expand to d0 or %d0 according to the assembler's requirements.
  58 dnl
  59 dnl  Actually d0 expands to `d0' or %`d0', the quotes protecting against
  60 dnl  further expansion.  Definitions are made even if d0 is to be just `d0',
  61 dnl  so that any m4 quoting problems will show up everywhere, not just on a
  62 dnl  %d0 system.
  63 dnl
  64 dnl  Care must be taken with quoting when using these in a definition.  For
  65 dnl  instance the quotes in the following are essential or two %'s will be
  66 dnl  produced when `counter' is used.
  67 dnl
  68 dnl         define(counter, `d7')
  69 dnl
  70
  71 dnl  Called: m68k_reg(r)
  72 define(m68k_reg,
  73 m4_assert_numargs(1)
  74 m4_assert_defined(`WANT_REGISTER_PERCENT')
  75 `ifelse(WANT_REGISTER_PERCENT,yes,%)`$1'')
  76
  77 dnl  Usage: m68k_defreg(r)
  78 define(m68k_defreg,
  79 m4_assert_numargs(1)
  80 `deflit($1,`m68k_reg(`$1')')')
  81
  82 m68k_defreg(d0)
  83 m68k_defreg(d1)
  84 m68k_defreg(d2)
  85 m68k_defreg(d3)
  86 m68k_defreg(d4)
  87 m68k_defreg(d5)
  88 m68k_defreg(d6)
  89 m68k_defreg(d7)
  90
  91 m68k_defreg(a0)
  92 m68k_defreg(a1)
  93 m68k_defreg(a2)
  94 m68k_defreg(a3)
  95 m68k_defreg(a4)
  96 m68k_defreg(a5)
  97 m68k_defreg(a6)
  98 m68k_defreg(a7)
  99
 100 m68k_defreg(sp)
 101 m68k_defreg(pc)
 102
 103
 104 dnl  Usage: M(base)
 105 dnl         M(base,displacement)
 106 dnl         M(base,index,size)
 107 dnl         M(base,index,size,scale)
 108 dnl         M(base,+)
 109 dnl         M(-,base)
 110 dnl
 111 dnl  `base' is an address register, `index' is a data register, `size' is w
 112 dnl  or l, and scale is 1, 2, 4 or 8.
 113 dnl
 114 dnl  M(-,base) has it's arguments that way around to emphasise it's a
 115 dnl  pre-decrement, as opposed to M(base,+) a post-increment.
 116 dnl
 117 dnl  Enhancement: Add the memory indirect modes, if/when they're needed.
 118
 119 define(M,
 120 m4_assert_numargs_range(1,4)
 121 m4_assert_defined(`WANT_ADDRESSING')
 122 `ifelse(WANT_ADDRESSING,mit,
 123 `ifelse($#,1, ``$1'@')dnl
 124 ifelse($#,2,
 125 `ifelse($2,+, ``$1'@+',
 126 `ifelse($1,-, ``$2'@-',
 127               ``$1'@($2)')')')dnl
 128 ifelse($#,3,  ``$1'@(`$2':`$3')')dnl
 129 ifelse($#,4,  ``$1'@(`$2':`$3':$4)')',
 130
 131 dnl  WANT_ADDRESSING `motorola'
 132 `ifelse($#,1, `(`$1')')dnl
 133 ifelse($#,2,
 134 `ifelse($2,+, `(`$1')+',
 135 `ifelse($1,-, `-(`$2')',
 136               `$2(`$1')')')')dnl
 137 ifelse($#,3,  `(`$1',`$2'.$3)')dnl
 138 ifelse($#,4,  `(`$1',`$2'.$3*$4)')')')
 139
 140
 141 dnl  Usage: addl etc
 142 dnl
 143 dnl  m68k instructions with special handling for the suffix, with for
 144 dnl  instance addl expanding to addl or add.l as necessary.
 145 dnl
 146 dnl  See also t-m68k-defs.pl which verifies all mnemonics used in the asm
 147 dnl  files have entries here.
 148
 149 dnl  Called: m68k_insn(mnemonic,suffix)
 150 define(m68k_insn,
 151 m4_assert_numargs(2)
 152 m4_assert_defined(`WANT_DOT_SIZE')
 153 `ifelse(WANT_DOT_SIZE,yes, ``$1'.``$2''',
 154                            ``$1$2'')')
 155
 156 dnl  Usage: m68k_definsn(mnemonic,suffix)
 157 define(m68k_definsn,
 158 m4_assert_numargs(2)
 159 `deflit($1`'$2,`m68k_insn(`$1',`$2')')')
 160
 161 m68k_definsn(add,  l)
 162 m68k_definsn(addx, l)
 163 m68k_definsn(addq, l)
 164 m68k_definsn(asl,  l)
 165 m68k_definsn(cmp,  l)
 166 m68k_definsn(cmp,  w)
 167 m68k_definsn(clr,  l)
 168 m68k_definsn(divu, l)
 169 m68k_definsn(eor,  w)
 170 m68k_definsn(lsl,  l)
 171 m68k_definsn(lsr,  l)
 172 m68k_definsn(move, l)
 173 m68k_definsn(move, w)
 174 m68k_definsn(movem,l)
 175 m68k_definsn(moveq,l)
 176 m68k_definsn(mulu, l)
 177 m68k_definsn(neg,  l)
 178 m68k_definsn(or,   l)
 179 m68k_definsn(roxl, l)
 180 m68k_definsn(roxr, l)
 181 m68k_definsn(sub,  l)
 182 m68k_definsn(subx, l)
 183 m68k_definsn(subq, l)
 184
 185
 186 dnl  Usage: bra etc
 187 dnl
 188 dnl  Expand to `bra', `jra' or `jbra' according to what the assembler will
 189 dnl  accept.  The latter two give variable-sized branches in gas.
 190 dnl
 191 dnl  See also t-m68k-defs.pl which verifies all the bXX branches used in the
 192 dnl  asm files have entries here.
 193
 194 dnl  Called: m68k_branch(cond)
 195 define(m68k_branch,
 196 m4_assert_numargs(1)
 197 m4_assert_defined(`WANT_BRANCHES')
 198 `ifelse(WANT_BRANCHES,jra, `j$1',
 199 `ifelse(WANT_BRANCHES,jbra,`jb$1',
 200                            ``b$1'')')')
 201
 202 dnl  Called: m68k_defbranch(cond)
 203 define(m68k_defbranch,
 204 m4_assert_numargs(1)
 205 `deflit(b$1,`m68k_branch(`$1')')')
 206
 207 m68k_defbranch(ra)
 208 m68k_defbranch(cc)
 209 m68k_defbranch(cs)
 210 m68k_defbranch(ls)
 211 m68k_defbranch(eq)
 212 m68k_defbranch(ne)
 213
 214
 215 dnl  Usage: scale_available_p
 216 dnl
 217 dnl  Expand to 1 if a scale factor can be used in addressing modes, or 0 if
 218 dnl  not.  M(a0,d0,l,4), meaning a0+d0*4, is not available in 68000 or
 219 dnl  68010, but is in CPU32 and in 68020 and up.
 220
 221 define(scale_available_p,
 222 `m4_ifdef_anyof_p(
 223 `HAVE_HOST_CPU_m68360'
 224 `HAVE_HOST_CPU_m68020'
 225 `HAVE_HOST_CPU_m68030'
 226 `HAVE_HOST_CPU_m68040'
 227 `HAVE_HOST_CPU_m68060')')
 228
 229
 230 divert