Austin Schuh | dace2a6 | 2020-08-18 10:56:48 -0700 | [diff] [blame] | 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 |