projects / unix-history / blame
| Commit | Line | Data |
|---|---|---|
| f0761b34 C |
1 | /* Definitions for code generation pass of GNU compiler. |
| 2 | Copyright (C) 1987, 1991 Free Software Foundation, Inc. | |
| 3 | ||
| 4 | This file is part of GNU CC. | |
| 5 | ||
| 6 | GNU CC is free software; you can redistribute it and/or modify | |
| 7 | it under the terms of the GNU General Public License as published by | |
| 8 | the Free Software Foundation; either version 2, or (at your option) | |
| 9 | any later version. | |
| 10 | ||
| 11 | GNU CC is distributed in the hope that it will be useful, | |
| 12 | but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 13 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| 14 | GNU General Public License for more details. | |
| 15 | ||
| 16 | You should have received a copy of the GNU General Public License | |
| 17 | along with GNU CC; see the file COPYING. If not, write to | |
| 18 | the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ | |
| 19 | ||
| 20 | ||
| 21 | #ifndef __STDC__ | |
| 22 | #ifndef const | |
| 23 | #define const | |
| 24 | #endif | |
| 25 | #endif | |
| 26 | ||
| 27 | /* The default branch cost is 1. */ | |
| 28 | #ifndef BRANCH_COST | |
| 29 | #define BRANCH_COST 1 | |
| 30 | #endif | |
| 31 | ||
| 32 | /* The default is that we do not promote the mode of an object. */ | |
| 33 | #ifndef PROMOTE_MODE | |
| 34 | #define PROMOTE_MODE(MODE,UNSIGNEDP,TYPE) | |
| 35 | #endif | |
| 36 | ||
| 37 | /* Macros to access the slots of a QUEUED rtx. | |
| 38 | Here rather than in rtl.h because only the expansion pass | |
| 39 | should ever encounter a QUEUED. */ | |
| 40 | ||
| 41 | /* The variable for which an increment is queued. */ | |
| 42 | #define QUEUED_VAR(P) XEXP (P, 0) | |
| 43 | /* If the increment has been emitted, this is the insn | |
| 44 | that does the increment. It is zero before the increment is emitted. */ | |
| 45 | #define QUEUED_INSN(P) XEXP (P, 1) | |
| 46 | /* If a pre-increment copy has been generated, this is the copy | |
| 47 | (it is a temporary reg). Zero if no copy made yet. */ | |
| 48 | #define QUEUED_COPY(P) XEXP (P, 2) | |
| 49 | /* This is the body to use for the insn to do the increment. | |
| 50 | It is used to emit the increment. */ | |
| 51 | #define QUEUED_BODY(P) XEXP (P, 3) | |
| 52 | /* Next QUEUED in the queue. */ | |
| 53 | #define QUEUED_NEXT(P) XEXP (P, 4) | |
| 54 | ||
| 55 | /* This is the 4th arg to `expand_expr'. | |
| 56 | EXPAND_SUM means it is ok to return a PLUS rtx or MULT rtx. | |
| 57 | EXPAND_INITIALIZER is similar but also record any labels on forced_labels. | |
| 58 | EXPAND_CONST_ADDRESS means it is ok to return a MEM whose address | |
| 59 | is a constant that is not a legitimate address. */ | |
| 60 | enum expand_modifier {EXPAND_NORMAL, EXPAND_SUM, | |
| 61 | EXPAND_CONST_ADDRESS, EXPAND_INITIALIZER}; | |
| 62 | ||
| 63 | /* List of labels that must never be deleted. */ | |
| 64 | extern rtx forced_labels; | |
| 65 | ||
| 66 | /* List (chain of EXPR_LISTs) of pseudo-regs of SAVE_EXPRs. | |
| 67 | So we can mark them all live at the end of the function, if stupid. */ | |
| 68 | extern rtx save_expr_regs; | |
| 69 | ||
| 70 | extern int current_function_calls_alloca; | |
| 71 | extern int current_function_outgoing_args_size; | |
| 72 | ||
| 73 | /* This is the offset from the arg pointer to the place where the first | |
| 74 | anonymous arg can be found, if there is one. */ | |
| 75 | extern rtx current_function_arg_offset_rtx; | |
| 76 | ||
| 77 | /* This is nonzero if the current function uses the constant pool. */ | |
| 78 | extern int current_function_uses_const_pool; | |
| 79 | ||
| 80 | /* This is nonzero if the current function uses pic_offset_table_rtx. */ | |
| 81 | extern int current_function_uses_pic_offset_table; | |
| 82 | ||
| 83 | /* The arg pointer hard register, or the pseudo into which it was copied. */ | |
| 84 | extern rtx current_function_internal_arg_pointer; | |
| 85 | ||
| 86 | /* Nonzero means stack pops must not be deferred, and deferred stack | |
| 87 | pops must not be output. It is nonzero inside a function call, | |
| 88 | inside a conditional expression, inside a statement expression, | |
| 89 | and in other cases as well. */ | |
| 90 | extern int inhibit_defer_pop; | |
| 91 | ||
| 92 | /* Number of function calls seen so far in current function. */ | |
| 93 | ||
| 94 | extern int function_call_count; | |
| 95 | ||
| 96 | /* RTX for stack slot that holds the current handler for nonlocal gotos. | |
| 97 | Zero when function does not have nonlocal labels. */ | |
| 98 | ||
| 99 | extern rtx nonlocal_goto_handler_slot; | |
| 100 | ||
| 101 | /* RTX for stack slot that holds the stack pointer value to restore | |
| 102 | for a nonlocal goto. | |
| 103 | Zero when function does not have nonlocal labels. */ | |
| 104 | ||
| 105 | extern rtx nonlocal_goto_stack_level; | |
| 106 | ||
| 107 | /* List (chain of TREE_LIST) of LABEL_DECLs for all nonlocal labels | |
| 108 | (labels to which there can be nonlocal gotos from nested functions) | |
| 109 | in this function. */ | |
| 110 | ||
| 111 | #ifdef TREE_CODE /* Don't lose if tree.h not included. */ | |
| 112 | extern tree nonlocal_labels; | |
| 113 | #endif | |
| 114 | ||
| 115 | #define NO_DEFER_POP (inhibit_defer_pop += 1) | |
| 116 | #define OK_DEFER_POP (inhibit_defer_pop -= 1) | |
| 117 | ||
| 118 | /* Number of units that we should eventually pop off the stack. | |
| 119 | These are the arguments to function calls that have already returned. */ | |
| 120 | extern int pending_stack_adjust; | |
| 121 | ||
| 122 | /* A list of all cleanups which belong to the arguments of | |
| 123 | function calls being expanded by expand_call. */ | |
| 124 | #ifdef TREE_CODE /* Don't lose if tree.h not included. */ | |
| 125 | extern tree cleanups_this_call; | |
| 126 | #endif | |
| 127 | \f | |
| 128 | #ifdef TREE_CODE /* Don't lose if tree.h not included. */ | |
| 129 | /* Structure to record the size of a sequence of arguments | |
| 130 | as the sum of a tree-expression and a constant. */ | |
| 131 | ||
| 132 | struct args_size | |
| 133 | { | |
| 134 | int constant; | |
| 135 | tree var; | |
| 136 | }; | |
| 137 | #endif | |
| 138 | ||
| 139 | /* Add the value of the tree INC to the `struct args_size' TO. */ | |
| 140 | ||
| 141 | #define ADD_PARM_SIZE(TO, INC) \ | |
| 142 | { tree inc = (INC); \ | |
| 143 | if (TREE_CODE (inc) == INTEGER_CST) \ | |
| 144 | (TO).constant += TREE_INT_CST_LOW (inc); \ | |
| 145 | else if ((TO).var == 0) \ | |
| 146 | (TO).var = inc; \ | |
| 147 | else \ | |
| 148 | (TO).var = size_binop (PLUS_EXPR, (TO).var, inc); } | |
| 149 | ||
| 150 | #define SUB_PARM_SIZE(TO, DEC) \ | |
| 151 | { tree dec = (DEC); \ | |
| 152 | if (TREE_CODE (dec) == INTEGER_CST) \ | |
| 153 | (TO).constant -= TREE_INT_CST_LOW (dec); \ | |
| 154 | else if ((TO).var == 0) \ | |
| 155 | (TO).var = size_binop (MINUS_EXPR, integer_zero_node, dec); \ | |
| 156 | else \ | |
| 157 | (TO).var = size_binop (MINUS_EXPR, (TO).var, dec); } | |
| 158 | ||
| 159 | /* Convert the implicit sum in a `struct args_size' into an rtx. */ | |
| 160 | #define ARGS_SIZE_RTX(SIZE) \ | |
| 161 | ((SIZE).var == 0 ? GEN_INT ((SIZE).constant) \ | |
| 162 | : expand_expr (size_binop (PLUS_EXPR, (SIZE).var, \ | |
| 163 | size_int ((SIZE).constant)), \ | |
| 164 | NULL_RTX, VOIDmode, 0)) | |
| 165 | ||
| 166 | /* Convert the implicit sum in a `struct args_size' into a tree. */ | |
| 167 | #define ARGS_SIZE_TREE(SIZE) \ | |
| 168 | ((SIZE).var == 0 ? size_int ((SIZE).constant) \ | |
| 169 | : size_binop (PLUS_EXPR, (SIZE).var, size_int ((SIZE).constant))) | |
| 170 | ||
| 171 | /* Supply a default definition for FUNCTION_ARG_PADDING: | |
| 172 | usually pad upward, but pad short args downward on | |
| 173 | big-endian machines. */ | |
| 174 | ||
| 175 | enum direction {none, upward, downward}; /* Value has this type. */ | |
| 176 | ||
| 177 | #ifndef FUNCTION_ARG_PADDING | |
| 178 | #if BYTES_BIG_ENDIAN | |
| 179 | #define FUNCTION_ARG_PADDING(MODE, TYPE) \ | |
| 180 | (((MODE) == BLKmode \ | |
| 181 | ? ((TYPE) && TREE_CODE (TYPE_SIZE (TYPE)) == INTEGER_CST \ | |
| 182 | && int_size_in_bytes (TYPE) < PARM_BOUNDARY / BITS_PER_UNIT) \ | |
| 183 | : GET_MODE_BITSIZE (MODE) < PARM_BOUNDARY) \ | |
| 184 | ? downward : upward) | |
| 185 | #else | |
| 186 | #define FUNCTION_ARG_PADDING(MODE, TYPE) upward | |
| 187 | #endif | |
| 188 | #endif | |
| 189 | ||
| 190 | /* Supply a default definition for FUNCTION_ARG_BOUNDARY. Normally, we let | |
| 191 | FUNCTION_ARG_PADDING, which also pads the length, handle any needed | |
| 192 | alignment. */ | |
| 193 | ||
| 194 | #ifndef FUNCTION_ARG_BOUNDARY | |
| 195 | #define FUNCTION_ARG_BOUNDARY(MODE, TYPE) PARM_BOUNDARY | |
| 196 | #endif | |
| 197 | ||
| 198 | /* Nonzero if we do not know how to pass TYPE solely in registers. | |
| 199 | We cannot do so in the following cases: | |
| 200 | ||
| 201 | - if the type has variable size | |
| 202 | - if the type is marked as addressable (it is required to be constructed | |
| 203 | into the stack) | |
| 204 | - if the padding and mode of the type is such that a copy into a register | |
| 205 | would put it into the wrong part of the register | |
| 206 | - when STRICT_ALIGNMENT and the type is BLKmode and is is not | |
| 207 | aligned to a boundary corresponding to what can be loaded into a | |
| 208 | register. */ | |
| 209 | ||
| 210 | #define MUST_PASS_IN_STACK_BAD_ALIGN(MODE,TYPE) \ | |
| 211 | (STRICT_ALIGNMENT && MODE == BLKmode \ | |
| 212 | && TYPE_ALIGN (TYPE) < (BIGGEST_ALIGNMENT < BITS_PER_WORD \ | |
| 213 | ? BIGGEST_ALIGNMENT : BITS_PER_WORD)) | |
| 214 | ||
| 215 | /* Which padding can't be supported depends on the byte endianness. */ | |
| 216 | ||
| 217 | /* A value in a register is implicitly padded at the most significant end. | |
| 218 | On a big-endian machine, that is the lower end in memory. | |
| 219 | So a value padded in memory at the upper end can't go in a register. | |
| 220 | For a little-endian machine, the reverse is true. */ | |
| 221 | ||
| 222 | #if BYTES_BIG_ENDIAN | |
| 223 | #define MUST_PASS_IN_STACK_BAD_PADDING upward | |
| 224 | #else | |
| 225 | #define MUST_PASS_IN_STACK_BAD_PADDING downward | |
| 226 | #endif | |
| 227 | ||
| 228 | #define MUST_PASS_IN_STACK(MODE,TYPE) \ | |
| 229 | ((TYPE) != 0 \ | |
| 230 | && (TREE_CODE (TYPE_SIZE (TYPE)) != INTEGER_CST \ | |
| 231 | || TREE_ADDRESSABLE (TYPE) \ | |
| 232 | || ((MODE) == BLKmode \ | |
| 233 | && (FUNCTION_ARG_PADDING (MODE, TYPE) \ | |
| 234 | == MUST_PASS_IN_STACK_BAD_PADDING)) \ | |
| 235 | || MUST_PASS_IN_STACK_BAD_ALIGN (MODE, TYPE))) | |
| 236 | ||
| 237 | /* Nonzero if type TYPE should be returned in memory | |
| 238 | (even though its mode is not BLKmode). | |
| 239 | Most machines can use the following default definition. */ | |
| 240 | ||
| 241 | #ifndef RETURN_IN_MEMORY | |
| 242 | #define RETURN_IN_MEMORY(TYPE) 0 | |
| 243 | #endif | |
| 244 | \f | |
| 245 | /* Optabs are tables saying how to generate insn bodies | |
| 246 | for various machine modes and numbers of operands. | |
| 247 | Each optab applies to one operation. | |
| 248 | For example, add_optab applies to addition. | |
| 249 | ||
| 250 | The insn_code slot is the enum insn_code that says how to | |
| 251 | generate an insn for this operation on a particular machine mode. | |
| 252 | It is CODE_FOR_nothing if there is no such insn on the target machine. | |
| 253 | ||
| 254 | The `lib_call' slot is the name of the library function that | |
| 255 | can be used to perform the operation. | |
| 256 | ||
| 257 | A few optabs, such as move_optab and cmp_optab, are used | |
| 258 | by special code. */ | |
| 259 | ||
| 260 | /* Everything that uses expr.h needs to define enum insn_code | |
| 261 | but we don't list it in the Makefile dependencies just for that. */ | |
| 262 | #include "insn-codes.h" | |
| 263 | ||
| 264 | typedef struct optab | |
| 265 | { | |
| 266 | enum rtx_code code; | |
| 267 | struct { | |
| 268 | enum insn_code insn_code; | |
| 269 | rtx libfunc; | |
| 270 | } handlers [NUM_MACHINE_MODES]; | |
| 271 | } * optab; | |
| 272 | ||
| 273 | /* Given an enum insn_code, access the function to construct | |
| 274 | the body of that kind of insn. */ | |
| 275 | #ifdef FUNCTION_CONVERSION_BUG | |
| 276 | /* Some compilers fail to convert a function properly to a | |
| 277 | pointer-to-function when used as an argument. | |
| 278 | So produce the pointer-to-function directly. | |
| 279 | Luckily, these compilers seem to work properly when you | |
| 280 | call the pointer-to-function. */ | |
| 281 | #define GEN_FCN(CODE) (insn_gen_function[(int) (CODE)]) | |
| 282 | #else | |
| 283 | #define GEN_FCN(CODE) (*insn_gen_function[(int) (CODE)]) | |
| 284 | #endif | |
| 285 | ||
| 286 | extern rtx (*const insn_gen_function[]) (); | |
| 287 | ||
| 288 | extern optab add_optab; | |
| 289 | extern optab sub_optab; | |
| 290 | extern optab smul_optab; /* Signed and floating-point multiply */ | |
| 291 | extern optab smul_widen_optab; /* Signed multiply with result | |
| 292 | one machine mode wider than args */ | |
| 293 | extern optab umul_widen_optab; | |
| 294 | extern optab sdiv_optab; /* Signed divide */ | |
| 295 | extern optab sdivmod_optab; /* Signed divide-and-remainder in one */ | |
| 296 | extern optab udiv_optab; | |
| 297 | extern optab udivmod_optab; | |
| 298 | extern optab smod_optab; /* Signed remainder */ | |
| 299 | extern optab umod_optab; | |
| 300 | extern optab flodiv_optab; /* Optab for floating divide. */ | |
| 301 | extern optab ftrunc_optab; /* Convert float to integer in float fmt */ | |
| 302 | extern optab and_optab; /* Logical and */ | |
| 303 | extern optab ior_optab; /* Logical or */ | |
| 304 | extern optab xor_optab; /* Logical xor */ | |
| 305 | extern optab ashl_optab; /* Arithmetic shift left */ | |
| 306 | extern optab ashr_optab; /* Arithmetic shift right */ | |
| 307 | extern optab lshl_optab; /* Logical shift left */ | |
| 308 | extern optab lshr_optab; /* Logical shift right */ | |
| 309 | extern optab rotl_optab; /* Rotate left */ | |
| 310 | extern optab rotr_optab; /* Rotate right */ | |
| 311 | extern optab smin_optab; /* Signed and floating-point minimum value */ | |
| 312 | extern optab smax_optab; /* Signed and floating-point maximum value */ | |
| 313 | extern optab umin_optab; /* Unsigned minimum value */ | |
| 314 | extern optab umax_optab; /* Unsigned maximum value */ | |
| 315 | ||
| 316 | extern optab mov_optab; /* Move instruction. */ | |
| 317 | extern optab movstrict_optab; /* Move, preserving high part of register. */ | |
| 318 | ||
| 319 | extern optab cmp_optab; /* Compare insn; two operands. */ | |
| 320 | extern optab tst_optab; /* tst insn; compare one operand against 0 */ | |
| 321 | ||
| 322 | /* Unary operations */ | |
| 323 | extern optab neg_optab; /* Negation */ | |
| 324 | extern optab abs_optab; /* Abs value */ | |
| 325 | extern optab one_cmpl_optab; /* Bitwise not */ | |
| 326 | extern optab ffs_optab; /* Find first bit set */ | |
| 327 | extern optab sqrt_optab; /* Square root */ | |
| 328 | extern optab sin_optab; /* Sine */ | |
| 329 | extern optab cos_optab; /* Cosine */ | |
| 330 | extern optab strlen_optab; /* String length */ | |
| 331 | ||
| 332 | /* Passed to expand_binop and expand_unop to say which options to try to use | |
| 333 | if the requested operation can't be open-coded on the requisite mode. | |
| 334 | Either OPTAB_LIB or OPTAB_LIB_WIDEN says try using a library call. | |
| 335 | Either OPTAB_WIDEN or OPTAB_LIB_WIDEN says try using a wider mode. | |
| 336 | OPTAB_MUST_WIDEN says try widening and don't try anything else. */ | |
| 337 | ||
| 338 | enum optab_methods | |
| 339 | { | |
| 340 | OPTAB_DIRECT, | |
| 341 | OPTAB_LIB, | |
| 342 | OPTAB_WIDEN, | |
| 343 | OPTAB_LIB_WIDEN, | |
| 344 | OPTAB_MUST_WIDEN | |
| 345 | }; | |
| 346 | ||
| 347 | /* SYMBOL_REF rtx's for the library functions that are called | |
| 348 | implicitly and not via optabs. */ | |
| 349 | ||
| 350 | extern rtx extendsfdf2_libfunc; | |
| 351 | extern rtx extendsfxf2_libfunc; | |
| 352 | extern rtx extendsftf2_libfunc; | |
| 353 | extern rtx extenddfxf2_libfunc; | |
| 354 | extern rtx extenddftf2_libfunc; | |
| 355 | ||
| 356 | extern rtx truncdfsf2_libfunc; | |
| 357 | extern rtx truncxfsf2_libfunc; | |
| 358 | extern rtx trunctfsf2_libfunc; | |
| 359 | extern rtx truncxfdf2_libfunc; | |
| 360 | extern rtx trunctfdf2_libfunc; | |
| 361 | ||
| 362 | extern rtx memcpy_libfunc; | |
| 363 | extern rtx bcopy_libfunc; | |
| 364 | extern rtx memcmp_libfunc; | |
| 365 | extern rtx bcmp_libfunc; | |
| 366 | extern rtx memset_libfunc; | |
| 367 | extern rtx bzero_libfunc; | |
| 368 | ||
| 369 | extern rtx eqsf2_libfunc; | |
| 370 | extern rtx nesf2_libfunc; | |
| 371 | extern rtx gtsf2_libfunc; | |
| 372 | extern rtx gesf2_libfunc; | |
| 373 | extern rtx ltsf2_libfunc; | |
| 374 | extern rtx lesf2_libfunc; | |
| 375 | ||
| 376 | extern rtx eqdf2_libfunc; | |
| 377 | extern rtx nedf2_libfunc; | |
| 378 | extern rtx gtdf2_libfunc; | |
| 379 | extern rtx gedf2_libfunc; | |
| 380 | extern rtx ltdf2_libfunc; | |
| 381 | extern rtx ledf2_libfunc; | |
| 382 | ||
| 383 | extern rtx eqxf2_libfunc; | |
| 384 | extern rtx nexf2_libfunc; | |
| 385 | extern rtx gtxf2_libfunc; | |
| 386 | extern rtx gexf2_libfunc; | |
| 387 | extern rtx ltxf2_libfunc; | |
| 388 | extern rtx lexf2_libfunc; | |
| 389 | ||
| 390 | extern rtx eqtf2_libfunc; | |
| 391 | extern rtx netf2_libfunc; | |
| 392 | extern rtx gttf2_libfunc; | |
| 393 | extern rtx getf2_libfunc; | |
| 394 | extern rtx lttf2_libfunc; | |
| 395 | extern rtx letf2_libfunc; | |
| 396 | ||
| 397 | extern rtx floatsisf_libfunc; | |
| 398 | extern rtx floatdisf_libfunc; | |
| 399 | extern rtx floattisf_libfunc; | |
| 400 | ||
| 401 | extern rtx floatsidf_libfunc; | |
| 402 | extern rtx floatdidf_libfunc; | |
| 403 | extern rtx floattidf_libfunc; | |
| 404 | ||
| 405 | extern rtx floatsixf_libfunc; | |
| 406 | extern rtx floatdixf_libfunc; | |
| 407 | extern rtx floattixf_libfunc; | |
| 408 | ||
| 409 | extern rtx floatsitf_libfunc; | |
| 410 | extern rtx floatditf_libfunc; | |
| 411 | extern rtx floattitf_libfunc; | |
| 412 | ||
| 413 | extern rtx fixsfsi_libfunc; | |
| 414 | extern rtx fixsfdi_libfunc; | |
| 415 | extern rtx fixsfti_libfunc; | |
| 416 | ||
| 417 | extern rtx fixdfsi_libfunc; | |
| 418 | extern rtx fixdfdi_libfunc; | |
| 419 | extern rtx fixdfti_libfunc; | |
| 420 | ||
| 421 | extern rtx fixxfsi_libfunc; | |
| 422 | extern rtx fixxfdi_libfunc; | |
| 423 | extern rtx fixxfti_libfunc; | |
| 424 | ||
| 425 | extern rtx fixtfsi_libfunc; | |
| 426 | extern rtx fixtfdi_libfunc; | |
| 427 | extern rtx fixtfti_libfunc; | |
| 428 | ||
| 429 | extern rtx fixunssfsi_libfunc; | |
| 430 | extern rtx fixunssfdi_libfunc; | |
| 431 | extern rtx fixunssfti_libfunc; | |
| 432 | ||
| 433 | extern rtx fixunsdfsi_libfunc; | |
| 434 | extern rtx fixunsdfdi_libfunc; | |
| 435 | extern rtx fixunsdfti_libfunc; | |
| 436 | ||
| 437 | extern rtx fixunsxfsi_libfunc; | |
| 438 | extern rtx fixunsxfdi_libfunc; | |
| 439 | extern rtx fixunsxfti_libfunc; | |
| 440 | ||
| 441 | extern rtx fixunstfsi_libfunc; | |
| 442 | extern rtx fixunstfdi_libfunc; | |
| 443 | extern rtx fixunstfti_libfunc; | |
| 444 | \f | |
| 445 | typedef rtx (*rtxfun) (); | |
| 446 | ||
| 447 | /* Indexed by the rtx-code for a conditional (eg. EQ, LT,...) | |
| 448 | gives the gen_function to make a branch to test that condition. */ | |
| 449 | ||
| 450 | extern rtxfun bcc_gen_fctn[NUM_RTX_CODE]; | |
| 451 | ||
| 452 | /* Indexed by the rtx-code for a conditional (eg. EQ, LT,...) | |
| 453 | gives the insn code to make a store-condition insn | |
| 454 | to test that condition. */ | |
| 455 | ||
| 456 | extern enum insn_code setcc_gen_code[NUM_RTX_CODE]; | |
| 457 | ||
| 458 | /* Expand a binary operation given optab and rtx operands. */ | |
| 459 | extern rtx expand_binop (); | |
| 460 | ||
| 461 | /* Expand a binary operation with both signed and unsigned forms. */ | |
| 462 | extern rtx sign_expand_binop (); | |
| 463 | ||
| 464 | /* Expand a unary arithmetic operation given optab rtx operand. */ | |
| 465 | extern rtx expand_unop (); | |
| 466 | ||
| 467 | /* Expand the complex absolute value operation. */ | |
| 468 | extern rtx expand_complex_abs (); | |
| 469 | ||
| 470 | /* Arguments MODE, RTX: return an rtx for the negation of that value. | |
| 471 | May emit insns. */ | |
| 472 | extern rtx negate_rtx (); | |
| 473 | ||
| 474 | /* Expand a logical AND operation. */ | |
| 475 | extern rtx expand_and (); | |
| 476 | ||
| 477 | /* Emit a store-flag operation. */ | |
| 478 | extern rtx emit_store_flag (); | |
| 479 | ||
| 480 | /* Return the CODE_LABEL rtx for a LABEL_DECL, creating it if necessary. */ | |
| 481 | extern rtx label_rtx (); | |
| 482 | ||
| 483 | /* Given a JUMP_INSN, return a description of the test being made. */ | |
| 484 | extern rtx get_condition (); | |
| 485 | ||
| 486 | /* Return the INSN_CODE to use for an extend operation. */ | |
| 487 | extern enum insn_code can_extend_p (); | |
| 488 | ||
| 489 | /* Initialize the tables that control conversion between fixed and | |
| 490 | floating values. */ | |
| 491 | extern void init_fixtab (); | |
| 492 | extern void init_floattab (); | |
| 493 | ||
| 494 | /* Generate code for a FIX_EXPR. */ | |
| 495 | extern void expand_fix (); | |
| 496 | ||
| 497 | /* Generate code for a FLOAT_EXPR. */ | |
| 498 | extern void expand_float (); | |
| 499 | ||
| 500 | /* Create but don't emit one rtl instruction to add one rtx into another. | |
| 501 | Modes must match; operands must meet the operation's predicates. | |
| 502 | Likewise for subtraction and for just copying. | |
| 503 | These do not call protect_from_queue; caller must do so. */ | |
| 504 | extern rtx gen_add2_insn (); | |
| 505 | extern rtx gen_sub2_insn (); | |
| 506 | extern rtx gen_move_insn (); | |
| 507 | ||
| 508 | /* Emit one rtl instruction to store zero in specified rtx. */ | |
| 509 | extern void emit_clr_insn (); | |
| 510 | ||
| 511 | /* Emit one rtl insn to store 1 in specified rtx assuming it contains 0. */ | |
| 512 | extern void emit_0_to_1_insn (); | |
| 513 | ||
| 514 | /* Emit one rtl insn to compare two rtx's. */ | |
| 515 | extern void emit_cmp_insn (); | |
| 516 | ||
| 517 | /* Generate rtl to compare two rtx's, will call emit_cmp_insn. */ | |
| 518 | extern rtx compare_from_rtx (); | |
| 519 | ||
| 520 | /* Emit some rtl insns to move data between rtx's, converting machine modes. | |
| 521 | Both modes must be floating or both fixed. */ | |
| 522 | extern void convert_move (); | |
| 523 | ||
| 524 | /* Convert an rtx to specified machine mode and return the result. */ | |
| 525 | extern rtx convert_to_mode (); | |
| 526 | ||
| 527 | /* Emit code to push some arguments and call a library routine, | |
| 528 | storing the value in a specified place. Calling sequence is | |
| 529 | complicated. */ | |
| 530 | extern void emit_library_call (); | |
| 531 | ||
| 532 | /* Given an rtx that may include add and multiply operations, | |
| 533 | generate them as insns and return a pseudo-reg containing the value. | |
| 534 | Useful after calling expand_expr with 1 as sum_ok. */ | |
| 535 | extern rtx force_operand (); | |
| 536 | ||
| 537 | /* Return an rtx for the size in bytes of the value of an expr. */ | |
| 538 | extern rtx expr_size (); | |
| 539 | ||
| 540 | extern rtx lookup_static_chain (); | |
| 541 | ||
| 542 | /* Return an rtx like arg but sans any constant terms. | |
| 543 | Returns the original rtx if it has no constant terms. | |
| 544 | The constant terms are added and stored via a second arg. */ | |
| 545 | extern rtx eliminate_constant_term (); | |
| 546 | ||
| 547 | /* Convert arg to a valid memory address for specified machine mode, | |
| 548 | by emitting insns to perform arithmetic if nec. */ | |
| 549 | extern rtx memory_address (); | |
| 550 | ||
| 551 | /* Like `memory_address' but pretent `flag_force_addr' is 0. */ | |
| 552 | extern rtx memory_address_noforce (); | |
| 553 | ||
| 554 | /* Return a memory reference like MEMREF, but with its mode changed | |
| 555 | to MODE and its address changed to ADDR. | |
| 556 | (VOIDmode means don't change the mode. | |
| 557 | NULL for ADDR means don't change the address.) */ | |
| 558 | extern rtx change_address (); | |
| 559 | ||
| 560 | /* Return a memory reference like MEMREF, but which is known to have a | |
| 561 | valid address. */ | |
| 562 | ||
| 563 | extern rtx validize_mem (); | |
| 564 | ||
| 565 | /* Convert a stack slot address ADDR valid in function FNDECL | |
| 566 | into an address valid in this function (using a static chain). */ | |
| 567 | extern rtx fix_lexical_addr (); | |
| 568 | ||
| 569 | /* Return the address of the trampoline for entering nested fn FUNCTION. */ | |
| 570 | extern rtx trampoline_address (); | |
| 571 | ||
| 572 | /* Assemble the static constant template for function entry trampolines. */ | |
| 573 | extern rtx assemble_trampoline_template (); | |
| 574 | ||
| 575 | /* Return 1 if two rtx's are equivalent in structure and elements. */ | |
| 576 | extern int rtx_equal_p (); | |
| 577 | ||
| 578 | /* Given rtx, return new rtx whose address won't be affected by | |
| 579 | any side effects. It has been copied to a new temporary reg. */ | |
| 580 | extern rtx stabilize (); | |
| 581 | ||
| 582 | /* Given an rtx, copy all regs it refers to into new temps | |
| 583 | and return a modified copy that refers to the new temps. */ | |
| 584 | extern rtx copy_all_regs (); | |
| 585 | ||
| 586 | /* Copy given rtx to a new temp reg and return that. */ | |
| 587 | extern rtx copy_to_reg (); | |
| 588 | ||
| 589 | /* Like copy_to_reg but always make the reg Pmode. */ | |
| 590 | extern rtx copy_addr_to_reg (); | |
| 591 | ||
| 592 | /* Like copy_to_reg but always make the reg the specified mode MODE. */ | |
| 593 | extern rtx copy_to_mode_reg (); | |
| 594 | ||
| 595 | /* Copy given rtx to given temp reg and return that. */ | |
| 596 | extern rtx copy_to_suggested_reg (); | |
| 597 | ||
| 598 | /* Copy a value to a register if it isn't already a register. | |
| 599 | Args are mode (in case value is a constant) and the value. */ | |
| 600 | extern rtx force_reg (); | |
| 601 | ||
| 602 | /* Return given rtx, copied into a new temp reg if it was in memory. */ | |
| 603 | extern rtx force_not_mem (); | |
| 604 | ||
| 605 | /* Remove some bytes from the stack. An rtx says how many. */ | |
| 606 | extern void adjust_stack (); | |
| 607 | ||
| 608 | /* Add some bytes to the stack. An rtx says how many. */ | |
| 609 | extern void anti_adjust_stack (); | |
| 610 | ||
| 611 | /* This enum is used for the following two functions. */ | |
| 612 | enum save_level {SAVE_BLOCK, SAVE_FUNCTION, SAVE_NONLOCAL}; | |
| 613 | ||
| 614 | /* Save the stack pointer at the specified level. */ | |
| 615 | extern void emit_stack_save (); | |
| 616 | ||
| 617 | /* Restore the stack pointer from a save area of the specified level. */ | |
| 618 | extern void emit_stack_restore (); | |
| 619 | ||
| 620 | /* Allocate some space on the stack dynamically and return its address. An rtx | |
| 621 | says how many bytes. */ | |
| 622 | extern rtx allocate_dynamic_stack_space (); | |
| 623 | ||
| 624 | /* Emit code to copy function value to a new temp reg and return that reg. */ | |
| 625 | extern rtx function_value (); | |
| 626 | ||
| 627 | /* Return an rtx that refers to the value returned by a function | |
| 628 | in its original home. This becomes invalid if any more code is emitted. */ | |
| 629 | extern rtx hard_function_value (); | |
| 630 | ||
| 631 | /* Return an rtx that refers to the value returned by a library call | |
| 632 | in its original home. This becomes invalid if any more code is emitted. */ | |
| 633 | extern rtx hard_libcall_value (); | |
| 634 | ||
| 635 | /* Emit code to copy function value to a specified place. */ | |
| 636 | extern void copy_function_value (); | |
| 637 | ||
| 638 | /* Given an rtx, return an rtx for a value rounded up to a multiple | |
| 639 | of STACK_BOUNDARY / BITS_PER_UNIT. */ | |
| 640 | extern rtx round_push (); | |
| 641 | ||
| 642 | /* Push a block of length SIZE (perhaps variable) | |
| 643 | and return an rtx to address the beginning of the block. */ | |
| 644 | extern rtx push_block (); | |
| 645 | ||
| 646 | /* Generate code for computing expression EXP, | |
| 647 | and storing the value into TARGET. | |
| 648 | If SUGGEST_REG is nonzero, copy the value through a register | |
| 649 | and return that register, if that is possible. */ | |
| 650 | extern rtx store_expr (); | |
| 651 | ||
| 652 | extern rtx prepare_call_address (); | |
| 653 | extern rtx expand_call (); | |
| 654 | extern void emit_call_1 (); | |
| 655 | ||
| 656 | extern void emit_block_move (); | |
| 657 | extern void emit_push_insn (); | |
| 658 | extern void use_regs (); | |
| 659 | extern void move_block_to_reg (); | |
| 660 | ||
| 661 | extern rtx store_bit_field (); | |
| 662 | extern rtx extract_bit_field (); | |
| 663 | extern rtx expand_shift (); | |
| 664 | extern rtx expand_mult (); | |
| 665 | extern rtx expand_divmod (); | |
| 666 | extern rtx expand_mult_add (); | |
| 667 | extern rtx expand_stmt_expr (); | |
| 668 | extern rtx emit_no_conflict_block (); | |
| 669 | extern void emit_libcall_block (); | |
| 670 | ||
| 671 | extern void jumpifnot (); | |
| 672 | extern void jumpif (); | |
| 673 | extern void do_jump (); | |
| 674 | ||
| 675 | extern rtx assemble_static_space (); | |
| 676 | ||
| 677 | extern void locate_and_pad_parm (); | |
| 678 | ||
| 679 | extern rtx expand_inline_function (); | |
| 680 | ||
| 681 | /* Hook called by expand_expr for language-specific tree codes. | |
| 682 | It is up to the language front end to install a hook | |
| 683 | if it has any such codes that expand_expr needs to know about. */ | |
| 684 | extern rtx (*lang_expand_expr) (); |