Mercurial > hg > CbC > CbC_gcc
annotate gcc/config/mmix/mmix.h @ 67:f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
| author | nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> |
|---|---|
| date | Tue, 22 Mar 2011 17:18:12 +0900 |
| parents | b7f97abdc517 |
| children | 04ced10e8804 |
| rev | line source |
|---|---|
| 0 | 1 /* Definitions of target machine for GNU compiler, for MMIX. |
|
63
b7f97abdc517
update gcc from gcc-4.5.0 to gcc-4.6
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
55
diff
changeset
|
2 Copyright (C) 2000, 2001, 2002, 2004, 2005, 2007, 2008, 2009, 2010 |
| 0 | 3 Free Software Foundation, Inc. |
| 4 Contributed by Hans-Peter Nilsson (hp@bitrange.com) | |
| 5 | |
| 6 This file is part of GCC. | |
| 7 | |
| 8 GCC is free software; you can redistribute it and/or modify | |
| 9 it under the terms of the GNU General Public License as published by | |
| 10 the Free Software Foundation; either version 3, or (at your option) | |
| 11 any later version. | |
| 12 | |
| 13 GCC is distributed in the hope that it will be useful, | |
| 14 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| 16 GNU General Public License for more details. | |
| 17 | |
| 18 You should have received a copy of the GNU General Public License | |
| 19 along with GCC; see the file COPYING3. If not see | |
| 20 <http://www.gnu.org/licenses/>. */ | |
| 21 | |
| 22 #ifndef GCC_MMIX_H | |
| 23 #define GCC_MMIX_H | |
| 24 | |
| 25 /* First, some local helper macros. Note that the "default" value of | |
| 26 FIXED_REGISTERS, CALL_USED_REGISTERS, REG_ALLOC_ORDER and | |
| 27 REG_CLASS_CONTENTS depend on these values. */ | |
| 28 #define MMIX_RESERVED_GNU_ARG_0_REGNUM 231 | |
| 29 #define MMIX_FIRST_ARG_REGNUM \ | |
| 30 (TARGET_ABI_GNU ? MMIX_RESERVED_GNU_ARG_0_REGNUM : 16) | |
| 31 #define MMIX_FIRST_INCOMING_ARG_REGNUM \ | |
| 32 (TARGET_ABI_GNU ? MMIX_RESERVED_GNU_ARG_0_REGNUM : 0) | |
| 33 #define MMIX_MAX_ARGS_IN_REGS 16 | |
| 34 | |
| 35 /* FIXME: This one isn't fully implemented yet. Return values larger than | |
| 36 one register are passed by reference in MMIX_STRUCT_VALUE_REGNUM by the | |
| 37 caller, except for return values of type "complex". */ | |
| 38 #define MMIX_MAX_REGS_FOR_VALUE 16 | |
| 39 #define MMIX_RETURN_VALUE_REGNUM \ | |
| 40 (TARGET_ABI_GNU ? MMIX_RESERVED_GNU_ARG_0_REGNUM : 15) | |
| 41 #define MMIX_OUTGOING_RETURN_VALUE_REGNUM \ | |
| 42 (TARGET_ABI_GNU ? MMIX_RESERVED_GNU_ARG_0_REGNUM : 0) | |
| 43 #define MMIX_STRUCT_VALUE_REGNUM 251 | |
| 44 #define MMIX_STATIC_CHAIN_REGNUM 252 | |
| 45 #define MMIX_FRAME_POINTER_REGNUM 253 | |
| 46 #define MMIX_STACK_POINTER_REGNUM 254 | |
| 47 #define MMIX_LAST_GENERAL_REGISTER 255 | |
| 48 #define MMIX_INCOMING_RETURN_ADDRESS_REGNUM MMIX_rJ_REGNUM | |
| 49 #define MMIX_HIMULT_REGNUM 258 | |
| 50 #define MMIX_REMAINDER_REGNUM MMIX_rR_REGNUM | |
| 51 #define MMIX_ARG_POINTER_REGNUM 261 | |
| 52 #define MMIX_rO_REGNUM 262 | |
| 53 #define MMIX_LAST_STACK_REGISTER_REGNUM 31 | |
| 54 | |
| 55 /* Four registers; "ideally, these registers should be call-clobbered", so | |
| 56 just grab a bunch of the common clobbered registers. FIXME: Last | |
| 57 registers of return-value should be used, with an error if there's a | |
| 58 return-value (that collides in size). */ | |
| 59 #define MMIX_EH_RETURN_DATA_REGNO_START (MMIX_STRUCT_VALUE_REGNUM - 4) | |
| 60 | |
| 61 /* Try to keep the definitions from running away on their own. */ | |
| 62 #if (MMIX_EH_RETURN_DATA_REGNO_START \ | |
| 63 != MMIX_RESERVED_GNU_ARG_0_REGNUM + MMIX_MAX_ARGS_IN_REGS) | |
| 64 #error MMIX register definition inconsistency | |
| 65 #endif | |
| 66 | |
| 67 #if (MMIX_MAX_REGS_FOR_VALUE + MMIX_MAX_ARGS_IN_REGS > 32) | |
| 68 #error MMIX parameters and return values bad, more than 32 registers | |
| 69 #endif | |
| 70 | |
| 71 /* This chosen as "a call-clobbered hard register that is otherwise | |
| 72 untouched by the epilogue". */ | |
| 73 #define MMIX_EH_RETURN_STACKADJ_REGNUM MMIX_STATIC_CHAIN_REGNUM | |
| 74 | |
| 75 #ifdef REG_OK_STRICT | |
| 76 # define MMIX_REG_OK_STRICT 1 | |
| 77 #else | |
| 78 # define MMIX_REG_OK_STRICT 0 | |
| 79 #endif | |
| 80 | |
| 81 #define MMIX_FUNCTION_ARG_SIZE(MODE, TYPE) \ | |
| 82 ((MODE) != BLKmode ? GET_MODE_SIZE (MODE) : int_size_in_bytes (TYPE)) | |
| 83 | |
| 84 /* Per-function machine data. This is normally an opaque type just | |
| 85 defined and used in the tm.c file, but we need to see the definition in | |
| 86 mmix.md too. */ | |
|
55
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
87 struct GTY(()) machine_function |
| 0 | 88 { |
| 89 int has_landing_pad; | |
| 90 int highest_saved_stack_register; | |
| 91 int in_prologue; | |
| 92 }; | |
| 93 | |
| 94 /* For these target macros, there is no generic documentation here. You | |
| 95 should read `Using and Porting GCC' for that. Only comments specific | |
| 96 to the MMIX target are here. | |
| 97 | |
| 98 There are however references to the specific texinfo node (comments | |
| 99 with "Node:"), so there should be little or nothing amiss. Probably | |
| 100 the opposite, since we don't have to care about old littering and | |
| 101 soon outdated generic comments. */ | |
| 102 | |
| 103 /* Node: Driver */ | |
| 104 | |
| 105 /* User symbols are in the same name-space as built-in symbols, but we | |
| 106 don't need the built-in symbols, so remove those and instead apply | |
| 107 stricter operand checking. Don't warn when expanding insns. */ | |
| 108 #define ASM_SPEC "-no-predefined-syms -x" | |
| 109 | |
| 110 /* Pass on -mset-program-start=N and -mset-data-start=M to the linker. | |
| 111 Provide default program start 0x100 unless -mno-set-program-start. | |
| 112 Don't do this if linking relocatably, with -r. For a final link, | |
| 113 produce mmo, unless ELF is requested or when linking relocatably. */ | |
| 114 #define LINK_SPEC \ | |
| 115 "%{mset-program-start=*:--defsym __.MMIX.start..text=%*}\ | |
| 116 %{mset-data-start=*:--defsym __.MMIX.start..data=%*}\ | |
| 117 %{!mset-program-start=*:\ | |
| 118 %{!mno-set-program-start:\ | |
| 119 %{!r:--defsym __.MMIX.start..text=0x100}}}\ | |
| 120 %{!melf:%{!r:-m mmo}}%{melf|r:-m elf64mmix}" | |
| 121 | |
| 122 /* FIXME: There's no provision for profiling here. */ | |
| 123 #define STARTFILE_SPEC \ | |
| 124 "crti%O%s crtbegin%O%s" | |
| 125 | |
| 126 #define ENDFILE_SPEC "crtend%O%s crtn%O%s" | |
| 127 | |
| 128 /* Node: Run-time Target */ | |
| 129 | |
| 130 /* Define __LONG_MAX__, since we're advised not to change glimits.h. */ | |
| 131 #define TARGET_CPU_CPP_BUILTINS() \ | |
| 132 do \ | |
| 133 { \ | |
| 134 builtin_define ("__mmix__"); \ | |
| 135 builtin_define ("__MMIX__"); \ | |
| 136 if (TARGET_ABI_GNU) \ | |
| 137 builtin_define ("__MMIX_ABI_GNU__"); \ | |
| 138 else \ | |
| 139 builtin_define ("__MMIX_ABI_MMIXWARE__"); \ | |
| 140 } \ | |
| 141 while (0) | |
| 142 | |
| 143 #define TARGET_DEFAULT \ | |
| 144 (MASK_BRANCH_PREDICT | MASK_BASE_ADDRESSES | MASK_USE_RETURN_INSN) | |
| 145 | |
| 146 /* Unfortunately, this must not reference anything in "mmix.c". */ | |
| 147 #define TARGET_VERSION \ | |
| 148 fprintf (stderr, " (MMIX)") | |
| 149 | |
| 150 | |
| 151 /* Node: Per-Function Data */ | |
| 152 #define INIT_EXPANDERS mmix_init_expanders () | |
| 153 | |
| 154 | |
| 155 /* Node: Storage Layout */ | |
| 156 /* I see no bit-field instructions. Anyway, the common order is from low | |
| 157 to high, as the power of two, hence little-endian. */ | |
| 158 #define BITS_BIG_ENDIAN 0 | |
| 159 #define BYTES_BIG_ENDIAN 1 | |
| 160 #define WORDS_BIG_ENDIAN 1 | |
| 161 #define FLOAT_WORDS_BIG_ENDIAN 1 | |
| 162 #define UNITS_PER_WORD 8 | |
| 163 | |
| 164 /* We need to align everything to 64 bits that can affect the alignment | |
| 165 of other types. Since address N is interpreted in MMIX as (N modulo | |
| 166 access_size), we must align. */ | |
| 167 #define PARM_BOUNDARY 64 | |
| 168 #define STACK_BOUNDARY 64 | |
| 169 #define FUNCTION_BOUNDARY 32 | |
| 170 #define BIGGEST_ALIGNMENT 64 | |
| 171 | |
| 172 /* This one is only used in the ADA front end. */ | |
| 173 #define MINIMUM_ATOMIC_ALIGNMENT 8 | |
| 174 | |
| 175 /* Copied from elfos.h. */ | |
| 176 #define MAX_OFILE_ALIGNMENT (32768 * 8) | |
| 177 | |
| 178 #define DATA_ALIGNMENT(TYPE, BASIC_ALIGN) \ | |
| 179 mmix_data_alignment (TYPE, BASIC_ALIGN) | |
| 180 | |
| 181 #define CONSTANT_ALIGNMENT(CONSTANT, BASIC_ALIGN) \ | |
| 182 mmix_constant_alignment (CONSTANT, BASIC_ALIGN) | |
| 183 | |
| 184 #define LOCAL_ALIGNMENT(TYPE, BASIC_ALIGN) \ | |
| 185 mmix_local_alignment (TYPE, BASIC_ALIGN) | |
| 186 | |
| 187 /* Following other ports, this seems to most commonly be the word-size, | |
| 188 so let's do that here too. */ | |
| 189 #define EMPTY_FIELD_BOUNDARY 64 | |
| 190 | |
| 191 /* We chose to have this low solely for similarity with the alpha. It has | |
| 192 nothing to do with passing the tests dg/c99-scope-2 and | |
| 193 execute/align-1.c. Nothing. Though the tests seem wrong. Padding of | |
| 194 the structure is automatically added to get alignment when needed if we | |
| 195 set this to just byte-boundary. */ | |
| 196 #define STRUCTURE_SIZE_BOUNDARY 8 | |
| 197 | |
| 198 /* The lower bits are ignored. */ | |
| 199 #define STRICT_ALIGNMENT 1 | |
| 200 | |
| 201 | |
| 202 /* Node: Type Layout */ | |
| 203 | |
| 204 /* It might seem more natural to have 64-bit ints on a 64-bit machine, | |
| 205 but then an occasional MMIX programmer needs to know how to put a lot | |
| 206 of __attribute__ stuff to get to the 8, 16 and 32-bit modes rather | |
| 207 than the "intuitive" char, short and int types. */ | |
| 208 #define INT_TYPE_SIZE 32 | |
| 209 #define SHORT_TYPE_SIZE 16 | |
| 210 #define LONG_LONG_TYPE_SIZE 64 | |
| 211 | |
| 212 #define FLOAT_TYPE_SIZE 32 | |
| 213 #define DOUBLE_TYPE_SIZE 64 | |
| 214 #define LONG_DOUBLE_TYPE_SIZE 64 | |
| 215 | |
| 216 #define DEFAULT_SIGNED_CHAR 1 | |
| 217 | |
| 218 | |
| 219 /* Node: Register Basics */ | |
| 220 /* We tell GCC about all 256 general registers, and we also include | |
| 221 rD, rE, rH, rJ, rR and rO (in that order) so we can describe what insns | |
| 222 clobber them. We use a faked register for the argument pointer. It is | |
| 223 always eliminated towards the frame-pointer or the stack-pointer, never | |
| 224 output in assembly. Any fixed register would do for this, like $255, | |
| 225 but future debugging is easier when using a separate register. It | |
| 226 counts as a global register for pseudorandom reasons. */ | |
| 227 #define FIRST_PSEUDO_REGISTER 263 | |
| 228 | |
| 229 /* We treat general registers with no assigned purpose as fixed. The | |
| 230 stack pointer, $254, is also fixed. Register $255 is referred to as a | |
| 231 temporary register in the MMIX papers, and used as such in mmixal, so | |
| 232 it should not be used as a stack pointer. We set it to fixed, and use | |
| 233 it "manually" at times of despair. */ | |
| 234 #define FIXED_REGISTERS \ | |
| 235 { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, \ | |
| 236 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, \ | |
| 237 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, \ | |
| 238 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, \ | |
| 239 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, \ | |
| 240 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, \ | |
| 241 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, \ | |
| 242 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, \ | |
| 243 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, \ | |
| 244 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, \ | |
| 245 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, \ | |
| 246 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, \ | |
| 247 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, \ | |
| 248 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, \ | |
| 249 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, \ | |
| 250 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, \ | |
| 251 1, 1, 0, 0, 0, 1, 1 \ | |
| 252 } | |
| 253 | |
| 254 /* General registers are fixed and therefore "historically" marked | |
| 255 call-used. (FIXME: This has changed). Registers $15..$31 are | |
| 256 call-clobbered; we'll put arguments in $16 and up, and we need $15 for | |
| 257 the MMIX register-stack "hole". */ | |
| 258 #define CALL_USED_REGISTERS \ | |
| 259 { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, \ | |
| 260 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, \ | |
| 261 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, \ | |
| 262 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, \ | |
| 263 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, \ | |
| 264 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, \ | |
| 265 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, \ | |
| 266 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, \ | |
| 267 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, \ | |
| 268 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, \ | |
| 269 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, \ | |
| 270 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, \ | |
| 271 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, \ | |
| 272 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, \ | |
| 273 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, \ | |
| 274 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, \ | |
| 275 1, 1, 1, 1, 1, 1, 1 \ | |
| 276 } | |
| 277 | |
| 278 #define INCOMING_REGNO(OUT) mmix_opposite_regno (OUT, 0) | |
| 279 | |
| 280 #define OUTGOING_REGNO(IN) mmix_opposite_regno (IN, 1) | |
| 281 | |
| 282 /* Defining LOCAL_REGNO is necessary in presence of prologue/epilogue, | |
| 283 else GCC will be confused that those registers aren't saved and | |
| 284 restored. */ | |
| 285 #define LOCAL_REGNO(REGNO) mmix_local_regno (REGNO) | |
| 286 | |
| 287 /* Node: Allocation Order */ | |
| 288 | |
| 289 /* We should allocate registers from 0 to 31 by increasing number, because | |
| 290 I think that's what people expect. Beyond that, just use | |
| 291 call-clobbered global registers first, then call-clobbered special | |
| 292 registers. Last, the fixed registers. */ | |
| 293 #define MMIX_MMIXWARE_ABI_REG_ALLOC_ORDER \ | |
| 294 { 0, 1, 2, 3, 4, 5, 6, 7, \ | |
| 295 8, 9, 10, 11, 12, 13, 14, 15, \ | |
| 296 16, 17, 18, 19, 20, 21, 22, 23, \ | |
| 297 24, 25, 26, 27, 28, 29, 30, 31, \ | |
| 298 \ | |
| 299 252, 251, 250, 249, 248, 247, \ | |
| 300 \ | |
| 301 253, \ | |
| 302 \ | |
| 303 258, 260, 259, \ | |
| 304 \ | |
| 305 32, 33, 34, 35, 36, 37, 38, 39, \ | |
| 306 40, 41, 42, 43, 44, 45, 46, 47, \ | |
| 307 48, 49, 50, 51, 52, 53, 54, 55, \ | |
| 308 56, 57, 58, 59, 60, 61, 62, 63, \ | |
| 309 64, 65, 66, 67, 68, 69, 70, 71, \ | |
| 310 72, 73, 74, 75, 76, 77, 78, 79, \ | |
| 311 80, 81, 82, 83, 84, 85, 86, 87, \ | |
| 312 88, 89, 90, 91, 92, 93, 94, 95, \ | |
| 313 96, 97, 98, 99, 100, 101, 102, 103, \ | |
| 314 104, 105, 106, 107, 108, 109, 110, 111, \ | |
| 315 112, 113, 114, 115, 116, 117, 118, 119, \ | |
| 316 120, 121, 122, 123, 124, 125, 126, 127, \ | |
| 317 128, 129, 130, 131, 132, 133, 134, 135, \ | |
| 318 136, 137, 138, 139, 140, 141, 142, 143, \ | |
| 319 144, 145, 146, 147, 148, 149, 150, 151, \ | |
| 320 152, 153, 154, 155, 156, 157, 158, 159, \ | |
| 321 160, 161, 162, 163, 164, 165, 166, 167, \ | |
| 322 168, 169, 170, 171, 172, 173, 174, 175, \ | |
| 323 176, 177, 178, 179, 180, 181, 182, 183, \ | |
| 324 184, 185, 186, 187, 188, 189, 190, 191, \ | |
| 325 192, 193, 194, 195, 196, 197, 198, 199, \ | |
| 326 200, 201, 202, 203, 204, 205, 206, 207, \ | |
| 327 208, 209, 210, 211, 212, 213, 214, 215, \ | |
| 328 216, 217, 218, 219, 220, 221, 222, 223, \ | |
| 329 224, 225, 226, 227, 228, 229, 230, 231, \ | |
| 330 232, 233, 234, 235, 236, 237, 238, 239, \ | |
| 331 240, 241, 242, 243, 244, 245, 246, \ | |
| 332 \ | |
| 333 254, 255, 256, 257, 261, 262 \ | |
| 334 } | |
| 335 | |
| 336 /* As a convenience, we put this nearby, for ease of comparison. | |
| 337 First, call-clobbered registers in reverse order of assignment as | |
| 338 parameters (also the top ones; not because they're parameters, but | |
| 339 for continuity). | |
| 340 | |
| 341 Second, saved registers that go on the register-stack. | |
| 342 | |
| 343 Third, special registers rH, rR and rJ. They should not normally be | |
| 344 allocated, but since they're call-clobbered, it is cheaper to use one | |
| 345 of them than using a call-saved register for a call-clobbered use, | |
| 346 assuming it is referenced a very limited number of times. Other global | |
| 347 and fixed registers come next; they are never allocated. */ | |
| 348 #define MMIX_GNU_ABI_REG_ALLOC_ORDER \ | |
| 349 { 252, 251, 250, 249, 248, 247, 246, \ | |
| 350 245, 244, 243, 242, 241, 240, 239, 238, \ | |
| 351 237, 236, 235, 234, 233, 232, 231, \ | |
| 352 \ | |
| 353 0, 1, 2, 3, 4, 5, 6, 7, \ | |
| 354 8, 9, 10, 11, 12, 13, 14, 15, \ | |
| 355 16, 17, 18, 19, 20, 21, 22, 23, \ | |
| 356 24, 25, 26, 27, 28, 29, 30, 31, \ | |
| 357 \ | |
| 358 253, \ | |
| 359 \ | |
| 360 258, 260, 259, \ | |
| 361 \ | |
| 362 32, 33, 34, 35, 36, 37, 38, 39, \ | |
| 363 40, 41, 42, 43, 44, 45, 46, 47, \ | |
| 364 48, 49, 50, 51, 52, 53, 54, 55, \ | |
| 365 56, 57, 58, 59, 60, 61, 62, 63, \ | |
| 366 64, 65, 66, 67, 68, 69, 70, 71, \ | |
| 367 72, 73, 74, 75, 76, 77, 78, 79, \ | |
| 368 80, 81, 82, 83, 84, 85, 86, 87, \ | |
| 369 88, 89, 90, 91, 92, 93, 94, 95, \ | |
| 370 96, 97, 98, 99, 100, 101, 102, 103, \ | |
| 371 104, 105, 106, 107, 108, 109, 110, 111, \ | |
| 372 112, 113, 114, 115, 116, 117, 118, 119, \ | |
| 373 120, 121, 122, 123, 124, 125, 126, 127, \ | |
| 374 128, 129, 130, 131, 132, 133, 134, 135, \ | |
| 375 136, 137, 138, 139, 140, 141, 142, 143, \ | |
| 376 144, 145, 146, 147, 148, 149, 150, 151, \ | |
| 377 152, 153, 154, 155, 156, 157, 158, 159, \ | |
| 378 160, 161, 162, 163, 164, 165, 166, 167, \ | |
| 379 168, 169, 170, 171, 172, 173, 174, 175, \ | |
| 380 176, 177, 178, 179, 180, 181, 182, 183, \ | |
| 381 184, 185, 186, 187, 188, 189, 190, 191, \ | |
| 382 192, 193, 194, 195, 196, 197, 198, 199, \ | |
| 383 200, 201, 202, 203, 204, 205, 206, 207, \ | |
| 384 208, 209, 210, 211, 212, 213, 214, 215, \ | |
| 385 216, 217, 218, 219, 220, 221, 222, 223, \ | |
| 386 224, 225, 226, 227, 228, 229, 230, \ | |
| 387 \ | |
| 388 254, 255, 256, 257, 261, 262 \ | |
| 389 } | |
| 390 | |
| 391 /* The default one. */ | |
| 392 #define REG_ALLOC_ORDER MMIX_MMIXWARE_ABI_REG_ALLOC_ORDER | |
| 393 | |
| 394 /* Node: Values in Registers */ | |
| 395 | |
| 396 #define HARD_REGNO_NREGS(REGNO, MODE) \ | |
| 397 ((GET_MODE_SIZE (MODE) + UNITS_PER_WORD - 1) \ | |
| 398 / UNITS_PER_WORD) | |
| 399 | |
| 400 #define HARD_REGNO_MODE_OK(REGNO, MODE) 1 | |
| 401 | |
| 402 /* Note that no register can really be accessed in single-float mode, so | |
| 403 we *can* say 1 here. FIXME: Will TRT happen for single-float, or do | |
| 404 we have to punt to libgcc1.asm? */ | |
| 405 #define MODES_TIEABLE_P(MODE1, MODE2) 1 | |
| 406 | |
| 407 | |
| 408 /* Node: Leaf Functions */ | |
| 409 /* (empty) */ | |
| 410 | |
| 411 | |
| 412 /* Node: Register Classes */ | |
| 413 | |
| 414 enum reg_class | |
| 415 { | |
| 416 NO_REGS, GENERAL_REGS, REMAINDER_REG, HIMULT_REG, | |
| 417 SYSTEM_REGS, ALL_REGS, LIM_REG_CLASSES | |
| 418 }; | |
| 419 | |
| 420 #define N_REG_CLASSES (int) LIM_REG_CLASSES | |
| 421 | |
| 422 #define REG_CLASS_NAMES \ | |
| 423 {"NO_REGS", "GENERAL_REGS", "REMAINDER_REG", "HIMULT_REG", \ | |
| 424 "SYSTEM_REGS", "ALL_REGS"} | |
| 425 | |
| 426 /* Note that the contents of each item is always 32 bits. */ | |
| 427 #define REG_CLASS_CONTENTS \ | |
| 428 {{0, 0, 0, 0, 0, 0, 0, 0, 0}, \ | |
| 429 {~0, ~0, ~0, ~0, ~0, ~0, ~0, ~0, 0x20}, \ | |
| 430 {0, 0, 0, 0, 0, 0, 0, 0, 0x10}, \ | |
| 431 {0, 0, 0, 0, 0, 0, 0, 0, 4}, \ | |
| 432 {0, 0, 0, 0, 0, 0, 0, 0, 0x7f}, \ | |
| 433 {~0, ~0, ~0, ~0, ~0, ~0, ~0, ~0, 0x7f}} | |
| 434 | |
| 435 #define REGNO_REG_CLASS(REGNO) \ | |
| 436 ((REGNO) <= MMIX_LAST_GENERAL_REGISTER \ | |
| 437 || (REGNO) == MMIX_ARG_POINTER_REGNUM \ | |
| 438 ? GENERAL_REGS \ | |
| 439 : (REGNO) == MMIX_REMAINDER_REGNUM ? REMAINDER_REG \ | |
| 440 : (REGNO) == MMIX_HIMULT_REGNUM ? HIMULT_REG : SYSTEM_REGS) | |
| 441 | |
| 442 #define BASE_REG_CLASS GENERAL_REGS | |
| 443 | |
| 444 #define INDEX_REG_CLASS GENERAL_REGS | |
| 445 | |
| 446 #define REG_CLASS_FROM_LETTER(CHAR) \ | |
| 447 ((CHAR) == 'x' ? SYSTEM_REGS \ | |
| 448 : (CHAR) == 'y' ? REMAINDER_REG \ | |
| 449 : (CHAR) == 'z' ? HIMULT_REG : NO_REGS) | |
| 450 | |
| 451 #define REGNO_OK_FOR_BASE_P(REGNO) \ | |
| 452 ((REGNO) <= MMIX_LAST_GENERAL_REGISTER \ | |
| 453 || (REGNO) == MMIX_ARG_POINTER_REGNUM \ | |
| 454 || (reg_renumber[REGNO] > 0 \ | |
| 455 && reg_renumber[REGNO] <= MMIX_LAST_GENERAL_REGISTER)) | |
| 456 | |
| 457 #define REGNO_OK_FOR_INDEX_P(REGNO) REGNO_OK_FOR_BASE_P (REGNO) | |
| 458 | |
| 459 #define PREFERRED_RELOAD_CLASS(X, CLASS) \ | |
| 460 mmix_preferred_reload_class (X, CLASS) | |
| 461 | |
| 462 #define PREFERRED_OUTPUT_RELOAD_CLASS(X, CLASS) \ | |
| 463 mmix_preferred_output_reload_class (X, CLASS) | |
| 464 | |
| 465 #define SECONDARY_INPUT_RELOAD_CLASS(CLASS, MODE, X) \ | |
| 466 mmix_secondary_reload_class (CLASS, MODE, X, 1) | |
| 467 | |
| 468 #define SECONDARY_OUTPUT_RELOAD_CLASS(CLASS, MODE, X) \ | |
| 469 mmix_secondary_reload_class (CLASS, MODE, X, 0) | |
| 470 | |
| 471 #define CLASS_MAX_NREGS(CLASS, MODE) HARD_REGNO_NREGS (CLASS, MODE) | |
| 472 | |
| 473 #define CONST_OK_FOR_LETTER_P(VALUE, C) \ | |
| 474 mmix_const_ok_for_letter_p (VALUE, C) | |
| 475 | |
| 476 #define EXTRA_CONSTRAINT(VALUE, C) \ | |
| 477 mmix_extra_constraint (VALUE, C, MMIX_REG_OK_STRICT) | |
| 478 | |
| 479 /* Do we need anything serious here? Yes, any FLOT constant. */ | |
| 480 #define CONST_DOUBLE_OK_FOR_LETTER_P(VALUE, C) \ | |
| 481 mmix_const_double_ok_for_letter_p (VALUE, C) | |
| 482 | |
| 483 | |
| 484 /* Node: Frame Layout */ | |
| 485 | |
| 486 #define STACK_GROWS_DOWNWARD | |
| 487 #define FRAME_GROWS_DOWNWARD 1 | |
| 488 | |
| 489 #define STARTING_FRAME_OFFSET \ | |
| 490 mmix_starting_frame_offset () | |
| 491 | |
| 492 #define FIRST_PARM_OFFSET(FUNDECL) 0 | |
| 493 | |
| 494 #define DYNAMIC_CHAIN_ADDRESS(FRAMEADDR) \ | |
| 495 mmix_dynamic_chain_address (FRAMEADDR) | |
| 496 | |
| 497 /* FIXME: It seems RETURN_ADDR_OFFSET is undocumented. */ | |
| 498 | |
| 499 #define SETUP_FRAME_ADDRESSES() \ | |
| 500 mmix_setup_frame_addresses () | |
| 501 | |
| 502 #define RETURN_ADDR_RTX(COUNT, FRAME) \ | |
| 503 mmix_return_addr_rtx (COUNT, FRAME) | |
| 504 | |
| 505 /* It's in rJ before we store it somewhere. */ | |
| 506 #define INCOMING_RETURN_ADDR_RTX \ | |
| 507 gen_rtx_REG (Pmode, MMIX_INCOMING_RETURN_ADDRESS_REGNUM) | |
| 508 | |
| 509 /* FIXME: This does not seem properly documented or cross-indexed. | |
| 510 Nowhere except in the code does it say it *has* to be in the range | |
| 511 0..255, or else it will be truncated. That goes for the default too. */ | |
| 512 #define DWARF_FRAME_RETURN_COLUMN \ | |
| 513 DWARF_FRAME_REGNUM (MMIX_INCOMING_RETURN_ADDRESS_REGNUM) | |
| 514 | |
| 515 /* No return address is stored there. */ | |
| 516 #define INCOMING_FRAME_SP_OFFSET 0 | |
| 517 | |
| 518 /* Node: Stack Checking */ | |
| 519 /* (empty) */ | |
| 520 | |
| 521 | |
| 522 /* Node: Exception Handling */ | |
| 523 | |
| 524 #define EH_RETURN_DATA_REGNO(N) \ | |
| 525 mmix_eh_return_data_regno (N) | |
| 526 | |
| 527 #define EH_RETURN_STACKADJ_RTX \ | |
| 528 mmix_eh_return_stackadj_rtx () | |
| 529 | |
| 530 #define EH_RETURN_HANDLER_RTX \ | |
| 531 mmix_eh_return_handler_rtx () | |
| 532 | |
| 533 #define ASM_PREFERRED_EH_DATA_FORMAT(CODE, GLOBAL) \ | |
| 534 mmix_asm_preferred_eh_data_format (CODE, GLOBAL) | |
| 535 | |
| 536 /* Node: Frame Registers */ | |
| 537 #define STACK_POINTER_REGNUM MMIX_STACK_POINTER_REGNUM | |
| 538 | |
| 539 /* Perhaps we can use HARD_FRAME_POINTER_REGNUM and decide later on | |
| 540 what register we want to use. */ | |
| 541 #define FRAME_POINTER_REGNUM MMIX_FRAME_POINTER_REGNUM | |
| 542 #define ARG_POINTER_REGNUM MMIX_ARG_POINTER_REGNUM | |
| 543 | |
| 544 #define STATIC_CHAIN_REGNUM MMIX_STATIC_CHAIN_REGNUM | |
| 545 | |
| 546 | |
| 547 /* Node: Elimination */ | |
| 548 | |
| 549 /* The frame-pointer is stored in a location that either counts to the | |
| 550 offset of incoming parameters, or that counts to the offset of the | |
| 551 frame, so we can't use a single offset. We therefore eliminate those | |
| 552 two separately. */ | |
| 553 #define ELIMINABLE_REGS \ | |
| 554 {{ARG_POINTER_REGNUM, STACK_POINTER_REGNUM}, \ | |
| 555 {ARG_POINTER_REGNUM, FRAME_POINTER_REGNUM}, \ | |
| 556 {FRAME_POINTER_REGNUM, STACK_POINTER_REGNUM}} | |
| 557 | |
| 558 #define INITIAL_ELIMINATION_OFFSET(FROM, TO, OFFSET) \ | |
| 559 (OFFSET) = mmix_initial_elimination_offset (FROM, TO) | |
| 560 | |
| 561 | |
| 562 /* Node: Stack Arguments */ | |
| 563 | |
| 564 #define ACCUMULATE_OUTGOING_ARGS 1 | |
| 565 | |
| 566 | |
| 567 /* Node: Register Arguments */ | |
| 568 | |
| 569 typedef struct { int regs; int lib; } CUMULATIVE_ARGS; | |
| 570 | |
| 571 #define INIT_CUMULATIVE_ARGS(CUM, FNTYPE, LIBNAME, INDIRECT, N_NAMED_ARGS) \ | |
| 572 ((CUM).regs = 0, (CUM).lib = ((LIBNAME) != 0)) | |
| 573 | |
| 574 #define FUNCTION_ARG_REGNO_P(REGNO) \ | |
| 575 mmix_function_arg_regno_p (REGNO, 0) | |
| 576 | |
| 577 | |
| 578 /* Node: Caller Saves */ | |
| 579 /* (empty) */ | |
| 580 | |
| 581 | |
| 582 /* Node: Function Entry */ | |
| 583 | |
| 584 /* See mmix.c for TARGET_ASM_FUNCTION_PROLOGUE and | |
| 585 TARGET_ASM_FUNCTION_EPILOGUE. */ | |
| 586 | |
| 587 /* We need to say that the epilogue uses the return address, so the | |
| 588 initial-value machinery restores it. FIXME: Some targets | |
| 589 conditionalize on "reload_completed &&". Investigate difference. | |
| 590 FIXME: Not needed if nonlocal_goto_stack_level. */ | |
| 591 #define EPILOGUE_USES(REGNO) \ | |
| 592 ((REGNO) == MMIX_INCOMING_RETURN_ADDRESS_REGNUM) | |
| 593 | |
| 594 /* Node: Profiling */ | |
| 595 #define FUNCTION_PROFILER(FILE, LABELNO) \ | |
| 596 mmix_function_profiler (FILE, LABELNO) | |
| 597 | |
| 598 /* Node: Trampolines */ | |
| 599 | |
|
55
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
600 #define TRAMPOLINE_SIZE (4*UNITS_PER_WORD) |
|
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
601 #define TRAMPOLINE_ALIGNMENT BITS_PER_WORD |
| 0 | 602 |
| 603 /* Node: Addressing Modes */ | |
| 604 | |
| 605 #define CONSTANT_ADDRESS_P(X) \ | |
| 606 mmix_constant_address_p (X) | |
| 607 | |
| 608 #define MAX_REGS_PER_ADDRESS 2 | |
| 609 | |
| 610 #ifndef REG_OK_STRICT | |
| 611 # define REG_OK_FOR_BASE_P(X) \ | |
| 612 (REGNO (X) <= MMIX_LAST_GENERAL_REGISTER \ | |
| 613 || REGNO (X) == MMIX_ARG_POINTER_REGNUM \ | |
| 614 || REGNO (X) >= FIRST_PSEUDO_REGISTER) | |
| 615 #else | |
| 616 # define REG_OK_FOR_BASE_P(X) REGNO_OK_FOR_BASE_P (REGNO (X)) | |
| 617 #endif /* REG_OK_STRICT */ | |
| 618 | |
| 619 #define REG_OK_FOR_INDEX_P(X) REG_OK_FOR_BASE_P (X) | |
| 620 | |
| 621 #define LEGITIMATE_CONSTANT_P(X) \ | |
| 622 mmix_legitimate_constant_p (X) | |
| 623 | |
| 624 | |
| 625 /* Node: Condition Code */ | |
| 626 | |
| 627 #define SELECT_CC_MODE(OP, X, Y) \ | |
| 628 mmix_select_cc_mode (OP, X, Y) | |
| 629 | |
| 630 /* A definition of CANONICALIZE_COMPARISON that changed LE and GT | |
| 631 comparisons with -1 to LT and GE respectively, and LT, LTU, GE or GEU | |
| 632 comparisons with 256 to 255 and LE, LEU, GT and GTU has been | |
| 633 ineffective; the code path for performing the changes did not trig for | |
| 634 neither the GCC testsuite nor ghostscript-6.52 nor Knuth's mmix.tar.gz | |
| 635 itself (core GCC functionality supposedly handling it) with sources | |
| 636 from 2002-06-06. */ | |
| 637 | |
| 638 #define REVERSIBLE_CC_MODE(MODE) \ | |
| 639 mmix_reversible_cc_mode (MODE) | |
| 640 | |
| 641 | |
| 642 /* Node: Costs */ | |
| 643 | |
| 644 /* The special registers can only move to and from general regs, and we | |
| 645 need to check that their constraints match, so say 3 for them. */ | |
| 646 /* WARNING: gcc-2.7.2.2 i686-pc-linux-gnulibc1 (as shipped with RH 4.2) | |
| 647 miscompiles reload1.c:reload_cse_simplify_set; a call to | |
| 648 reload_cse_regno_equal_p is missing when checking if a substitution of | |
| 649 a register setting is valid if this is defined to just the expression | |
| 650 in mmix_register_move_cost. | |
| 651 | |
| 652 Symptom: a (all?) register setting is optimized away for e.g. | |
| 653 "char *p1(char *p) { return p+1; }" and the value of register zero ($0) | |
| 654 is returned. | |
| 655 | |
| 656 We can workaround by making this a function call - unknown if this | |
| 657 causes dire speed effects. */ | |
| 658 #define REGISTER_MOVE_COST(MODE, FROM, TO) \ | |
| 659 mmix_register_move_cost (MODE, FROM, TO) | |
| 660 | |
| 661 #define SLOW_BYTE_ACCESS 0 | |
| 662 | |
| 663 | |
| 664 /* Node: Sections */ | |
| 665 | |
| 666 /* This must be a constant string, since it's used in crtstuff.c. */ | |
| 667 #define TEXT_SECTION_ASM_OP \ | |
| 668 "\t.text ! mmixal:= 9H LOC 8B" | |
| 669 | |
| 670 /* FIXME: Not documented. */ | |
| 671 #define DATA_SECTION_ASM_OP \ | |
| 672 mmix_data_section_asm_op () | |
| 673 | |
| 674 #define READONLY_DATA_SECTION_ASM_OP "\t.section\t.rodata" | |
| 675 | |
| 676 /* Node: PIC */ | |
| 677 /* (empty) */ | |
| 678 | |
| 679 | |
| 680 /* Node: File Framework */ | |
| 681 | |
| 682 /* While any other punctuation character but ";" would do, we prefer "%" | |
| 683 or "!"; "!" is an unary operator and so will not be mistakenly included | |
| 684 in correctly formed expressions. The hash character adds mass; catches | |
| 685 the eye. We can't have it as a comment char by itself, since it's a | |
| 686 hex-number prefix. */ | |
| 687 #define ASM_COMMENT_START "!#" | |
| 688 | |
| 689 /* These aren't currently functional. We just keep them as markers. */ | |
| 690 #define ASM_APP_ON "%APP\n" | |
| 691 #define ASM_APP_OFF "%NO_APP\n" | |
| 692 | |
| 693 #define OUTPUT_QUOTED_STRING(STREAM, STRING) \ | |
| 694 mmix_output_quoted_string (STREAM, STRING, strlen (STRING)) | |
| 695 | |
| 696 #define TARGET_ASM_NAMED_SECTION default_elf_asm_named_section | |
| 697 | |
| 698 /* Node: Data Output */ | |
| 699 | |
| 700 #define ASM_OUTPUT_ASCII(STREAM, PTR, LEN) \ | |
| 701 mmix_asm_output_ascii (STREAM, PTR, LEN) | |
| 702 | |
| 703 /* Node: Uninitialized Data */ | |
| 704 | |
| 705 #define ASM_OUTPUT_ALIGNED_COMMON(ST, N, S, A) \ | |
| 706 mmix_asm_output_aligned_common (ST, N, S, A) | |
| 707 | |
| 708 #define ASM_OUTPUT_ALIGNED_LOCAL(ST, N, S, A) \ | |
| 709 mmix_asm_output_aligned_local (ST, N, S, A) | |
| 710 | |
| 711 | |
| 712 /* Node: Label Output */ | |
| 713 | |
| 714 #define ASM_OUTPUT_LABEL(STREAM, NAME) \ | |
| 715 mmix_asm_output_label (STREAM, NAME) | |
| 716 | |
| 717 #define ASM_OUTPUT_INTERNAL_LABEL(STREAM, NAME) \ | |
| 718 mmix_asm_output_internal_label (STREAM, NAME) | |
| 719 | |
| 720 #define ASM_DECLARE_REGISTER_GLOBAL(STREAM, DECL, REGNO, NAME) \ | |
| 721 mmix_asm_declare_register_global (STREAM, DECL, REGNO, NAME) | |
| 722 | |
| 723 #define GLOBAL_ASM_OP "\t.global " | |
| 724 | |
| 725 #define ASM_WEAKEN_LABEL(STREAM, NAME) \ | |
| 726 mmix_asm_weaken_label (STREAM, NAME) | |
| 727 | |
| 728 #define MAKE_DECL_ONE_ONLY(DECL) \ | |
| 729 mmix_make_decl_one_only (DECL) | |
| 730 | |
| 731 #define ASM_OUTPUT_LABELREF(STREAM, NAME) \ | |
| 732 mmix_asm_output_labelref (STREAM, NAME) | |
| 733 | |
| 734 /* We insert a ":" to disambiguate against user symbols like L5. */ | |
| 735 #define ASM_GENERATE_INTERNAL_LABEL(LABEL, PREFIX, NUM) \ | |
| 736 sprintf (LABEL, "*%s:%ld", PREFIX, (long)(NUM)) | |
| 737 | |
| 738 /* Insert "::"; these are rarer than internal labels. FIXME: Make sure no | |
| 739 ":" is seen in the object file; we don't really want that mmixal | |
| 740 feature visible there. We don't want the default, which uses a dot; | |
| 741 that'd be incompatible with mmixal. */ | |
| 742 #define ASM_PN_FORMAT "%s::%lu" | |
| 743 | |
| 744 #define ASM_OUTPUT_DEF(STREAM, NAME, VALUE) \ | |
| 745 mmix_asm_output_def (STREAM, NAME, VALUE) | |
| 746 | |
| 747 /* Node: Macros for Initialization */ | |
| 748 /* We're compiling to ELF and linking to MMO; fundamental ELF features | |
| 749 that GCC depend on are there. */ | |
| 750 | |
| 751 /* These must be constant strings, since they're used in crtstuff.c. */ | |
| 752 #define INIT_SECTION_ASM_OP "\t.section .init,\"ax\" ! mmixal-incompatible" | |
| 753 | |
| 754 #define FINI_SECTION_ASM_OP "\t.section .fini,\"ax\" ! mmixal-incompatible" | |
| 755 | |
| 756 #define OBJECT_FORMAT_ELF | |
| 757 | |
| 758 | |
| 759 /* Node: Instruction Output */ | |
| 760 | |
| 761 /* The non-$ register names must be prefixed with ":", since they're | |
| 762 affected by PREFIX. We provide the non-colon names as additional | |
| 763 names. */ | |
| 764 #define REGISTER_NAMES \ | |
| 765 {"$0", "$1", "$2", "$3", "$4", "$5", "$6", "$7", \ | |
| 766 "$8", "$9", "$10", "$11", "$12", "$13", "$14", "$15", \ | |
| 767 "$16", "$17", "$18", "$19", "$20", "$21", "$22", "$23", \ | |
| 768 "$24", "$25", "$26", "$27", "$28", "$29", "$30", "$31", \ | |
| 769 "$32", "$33", "$34", "$35", "$36", "$37", "$38", "$39", \ | |
| 770 "$40", "$41", "$42", "$43", "$44", "$45", "$46", "$47", \ | |
| 771 "$48", "$49", "$50", "$51", "$52", "$53", "$54", "$55", \ | |
| 772 "$56", "$57", "$58", "$59", "$60", "$61", "$62", "$63", \ | |
| 773 "$64", "$65", "$66", "$67", "$68", "$69", "$70", "$71", \ | |
| 774 "$72", "$73", "$74", "$75", "$76", "$77", "$78", "$79", \ | |
| 775 "$80", "$81", "$82", "$83", "$84", "$85", "$86", "$87", \ | |
| 776 "$88", "$89", "$90", "$91", "$92", "$93", "$94", "$95", \ | |
| 777 "$96", "$97", "$98", "$99", "$100", "$101", "$102", "$103", \ | |
| 778 "$104", "$105", "$106", "$107", "$108", "$109", "$110", "$111", \ | |
| 779 "$112", "$113", "$114", "$115", "$116", "$117", "$118", "$119", \ | |
| 780 "$120", "$121", "$122", "$123", "$124", "$125", "$126", "$127", \ | |
| 781 "$128", "$129", "$130", "$131", "$132", "$133", "$134", "$135", \ | |
| 782 "$136", "$137", "$138", "$139", "$140", "$141", "$142", "$143", \ | |
| 783 "$144", "$145", "$146", "$147", "$148", "$149", "$150", "$151", \ | |
| 784 "$152", "$153", "$154", "$155", "$156", "$157", "$158", "$159", \ | |
| 785 "$160", "$161", "$162", "$163", "$164", "$165", "$166", "$167", \ | |
| 786 "$168", "$169", "$170", "$171", "$172", "$173", "$174", "$175", \ | |
| 787 "$176", "$177", "$178", "$179", "$180", "$181", "$182", "$183", \ | |
| 788 "$184", "$185", "$186", "$187", "$188", "$189", "$190", "$191", \ | |
| 789 "$192", "$193", "$194", "$195", "$196", "$197", "$198", "$199", \ | |
| 790 "$200", "$201", "$202", "$203", "$204", "$205", "$206", "$207", \ | |
| 791 "$208", "$209", "$210", "$211", "$212", "$213", "$214", "$215", \ | |
| 792 "$216", "$217", "$218", "$219", "$220", "$221", "$222", "$223", \ | |
| 793 "$224", "$225", "$226", "$227", "$228", "$229", "$230", "$231", \ | |
| 794 "$232", "$233", "$234", "$235", "$236", "$237", "$238", "$239", \ | |
| 795 "$240", "$241", "$242", "$243", "$244", "$245", "$246", "$247", \ | |
| 796 "$248", "$249", "$250", "$251", "$252", "$253", "$254", "$255", \ | |
| 797 ":rD", ":rE", ":rH", ":rJ", ":rR", "ap_!BAD!", ":rO"} | |
| 798 | |
| 799 #define ADDITIONAL_REGISTER_NAMES \ | |
| 800 {{"sp", 254}, {":sp", 254}, {"rD", 256}, {"rE", 257}, \ | |
| 801 {"rH", 258}, {"rJ", MMIX_rJ_REGNUM}, {"rO", MMIX_rO_REGNUM}} | |
| 802 | |
| 803 #define PRINT_OPERAND(STREAM, X, CODE) \ | |
| 804 mmix_print_operand (STREAM, X, CODE) | |
| 805 | |
| 806 #define PRINT_OPERAND_PUNCT_VALID_P(CODE) \ | |
| 807 mmix_print_operand_punct_valid_p (CODE) | |
| 808 | |
| 809 #define PRINT_OPERAND_ADDRESS(STREAM, X) \ | |
| 810 mmix_print_operand_address (STREAM, X) | |
| 811 | |
| 812 #define ASM_OUTPUT_REG_PUSH(STREAM, REGNO) \ | |
| 813 mmix_asm_output_reg_push (STREAM, REGNO) | |
| 814 | |
| 815 #define ASM_OUTPUT_REG_POP(STREAM, REGNO) \ | |
| 816 mmix_asm_output_reg_pop (STREAM, REGNO) | |
| 817 | |
| 818 | |
| 819 /* Node: Dispatch Tables */ | |
| 820 | |
| 821 /* We define both types, since SImode is the better, but DImode the only | |
| 822 possible for mmixal so that's the one actually used. */ | |
| 823 #define ASM_OUTPUT_ADDR_DIFF_ELT(STREAM, BODY, VALUE, REL) \ | |
| 824 mmix_asm_output_addr_diff_elt (STREAM, BODY, VALUE, REL) | |
| 825 | |
| 826 #define ASM_OUTPUT_ADDR_VEC_ELT(STREAM, VALUE) \ | |
| 827 mmix_asm_output_addr_vec_elt (STREAM, VALUE) | |
| 828 | |
| 829 | |
| 830 /* Node: Exception Region Output */ | |
| 831 /* (empty) */ | |
| 832 | |
| 833 /* Node: Alignment Output */ | |
| 834 | |
| 835 #define ASM_OUTPUT_SKIP(STREAM, NBYTES) \ | |
| 836 mmix_asm_output_skip (STREAM, NBYTES) | |
| 837 | |
| 838 #define ASM_OUTPUT_ALIGN(STREAM, POWER) \ | |
| 839 mmix_asm_output_align (STREAM, POWER) | |
| 840 | |
| 841 | |
| 842 /* Node: All Debuggers */ | |
| 843 | |
| 844 #define DBX_REGISTER_NUMBER(REGNO) \ | |
| 845 mmix_dbx_register_number (REGNO) | |
| 846 | |
| 847 | |
| 848 /* Node: DBX Options */ | |
| 849 /* (empty) */ | |
| 850 /* Node: DBX Hooks */ | |
| 851 /* (empty) */ | |
| 852 /* Node: File Names and DBX */ | |
| 853 /* (empty) */ | |
| 854 | |
| 855 | |
| 856 /* Node: SDB and DWARF */ | |
| 857 #define DWARF2_DEBUGGING_INFO 1 | |
| 858 #define DWARF2_ASM_LINE_DEBUG_INFO 1 | |
| 859 | |
| 860 /* Node: Misc */ | |
| 861 | |
| 862 /* There's no way to get a PC-relative offset into tables for SImode, so | |
| 863 for the moment we have absolute entries in DImode. | |
| 864 When we're going ELF, these should be SImode and 1. */ | |
| 865 #define CASE_VECTOR_MODE DImode | |
| 866 #define CASE_VECTOR_PC_RELATIVE 0 | |
| 867 | |
| 868 #define WORD_REGISTER_OPERATIONS | |
| 869 | |
| 870 /* We have a choice, which makes this yet another parameter to tweak. The | |
| 871 gut feeling is currently that SIGN_EXTEND wins; "int" is more frequent | |
| 872 than "unsigned int", and we have signed characters. FIXME: measure. */ | |
| 873 #define LOAD_EXTEND_OP(MODE) (TARGET_ZERO_EXTEND ? ZERO_EXTEND : SIGN_EXTEND) | |
| 874 | |
| 875 #define MOVE_MAX 8 | |
| 876 | |
| 877 #define TRULY_NOOP_TRUNCATION(OUTPREC, INPREC) 1 | |
| 878 | |
| 879 /* ??? MMIX allows a choice of STORE_FLAG_VALUE. Revisit later, | |
| 880 we don't have scc expanders yet. */ | |
| 881 | |
| 882 #define Pmode DImode | |
| 883 | |
| 884 #define FUNCTION_MODE QImode | |
| 885 | |
| 886 #define NO_IMPLICIT_EXTERN_C | |
| 887 | |
| 888 /* These are checked. */ | |
| 889 #define DOLLARS_IN_IDENTIFIERS 0 | |
| 890 #define NO_DOLLAR_IN_LABEL | |
| 891 #define NO_DOT_IN_LABEL | |
| 892 | |
| 893 #endif /* GCC_MMIX_H */ | |
| 894 /* | |
| 895 * Local variables: | |
| 896 * eval: (c-set-style "gnu") | |
| 897 * indent-tabs-mode: t | |
| 898 * End: | |
| 899 */ |