![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to genix.h CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Apple XNU] / GNUtools / cc / config / ns32k|
Return to genix.h CVS log | Up to [Apple XNU] / GNUtools / cc / config / ns32k |
1.1 ! root 1: /* Definitions of target machine for GNU compiler. Genix ns32000 version. ! 2: Copyright (C) 1987, 1988 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: #include "ns32k/encore.h" ! 21: ! 22: /* We don't want the one Encore needs. */ ! 23: #undef ASM_SPEC ! 24: ! 25: /* The following defines override ones in ns32k.h and prevent any attempts ! 26: to explicitly or implicitly make references to the SB register in the GCC ! 27: generated code. It is necessary to avoid such references under Genix V.3.1 ! 28: because this OS doesn't even save/restore the SB on context switches! */ ! 29: ! 30: #define IS_OK_REG_FOR_BASE_P(X) \ ! 31: ( (GET_CODE (X) == REG) && REG_OK_FOR_BASE_P (X) ) ! 32: ! 33: #undef INDIRECTABLE_1_ADDRESS_P ! 34: #define INDIRECTABLE_1_ADDRESS_P(X) \ ! 35: (CONSTANT_ADDRESS_NO_LABEL_P (X) \ ! 36: || IS_OK_REG_FOR_BASE_P (X) \ ! 37: || (GET_CODE (X) == PLUS \ ! 38: && IS_OK_REG_FOR_BASE_P (XEXP (X, 0)) \ ! 39: && CONSTANT_ADDRESS_P (XEXP (X, 1)) ) ) ! 40: ! 41: /* Note that for double indirects, only FP, SP, and SB are allowed ! 42: as the inner-most base register. But we are avoiding use of SB. */ ! 43: ! 44: #undef MEM_REG ! 45: #define MEM_REG(X) \ ! 46: ( (GET_CODE (X) == REG) \ ! 47: && ( (REGNO (X) == FRAME_POINTER_REGNUM) \ ! 48: || (REGNO (X) == STACK_POINTER_REGNUM) ) ) ! 49: ! 50: #undef INDIRECTABLE_2_ADDRESS_P ! 51: #define INDIRECTABLE_2_ADDRESS_P(X) \ ! 52: (GET_CODE (X) == MEM \ ! 53: && (((xfoo0 = XEXP (X, 0), MEM_REG (xfoo0)) \ ! 54: || (GET_CODE (xfoo0) == PLUS \ ! 55: && MEM_REG (XEXP (xfoo0, 0)) \ ! 56: && CONSTANT_ADDRESS_NO_LABEL_P (XEXP (xfoo0, 1)))) \ ! 57: || CONSTANT_ADDRESS_NO_LABEL_P (xfoo0))) ! 58: ! 59: /* Go to ADDR if X is a valid address not using indexing. ! 60: (This much is the easy part.) */ ! 61: #undef GO_IF_NONINDEXED_ADDRESS ! 62: #define GO_IF_NONINDEXED_ADDRESS(X, ADDR) \ ! 63: { register rtx xfoob = (X); \ ! 64: if (GET_CODE (xfoob) == REG) goto ADDR; \ ! 65: if (INDIRECTABLE_1_ADDRESS_P(X)) goto ADDR; \ ! 66: if (CONSTANT_P(X)) goto ADDR; \ ! 67: if (INDIRECTABLE_2_ADDRESS_P (X)) goto ADDR; \ ! 68: if (GET_CODE (X) == PLUS) \ ! 69: if (CONSTANT_ADDRESS_NO_LABEL_P (XEXP (X, 1))) \ ! 70: if (INDIRECTABLE_2_ADDRESS_P (XEXP (X, 0))) \ ! 71: goto ADDR; \ ! 72: } ! 73: ! 74: /* A bug in the GNX 3.X assembler causes references to external symbols to ! 75: be mishandled if the symbol is also used as the name of a function-local ! 76: variable or as the name of a struct or union field. The problem only ! 77: appears when you are also using the -g option so that SDB debugging ! 78: directives are also being produced by GCC. In such cases, the assembler ! 79: gets the external entity confused with the local entity and addressing ! 80: havoc ensues. The solution is to get GCC to produce .global directives ! 81: for all external entities which are actually referenced within the current ! 82: source file. The following macro does this. */ ! 83: ! 84: #define ASM_OUTPUT_EXTERNAL(FILE, DECL, NAME) \ ! 85: ASM_GLOBALIZE_LABEL(FILE,NAME); ! 86: ! 87: /* Genix wants 0l instead of 0f. */ ! 88: ! 89: #undef ASM_OUTPUT_DOUBLE ! 90: #define ASM_OUTPUT_DOUBLE(FILE,VALUE) \ ! 91: fprintf (FILE, "\t.long 0l%.20e\n", (VALUE)) ! 92: ! 93: /* A bug in the GNX 3.X linker prevents symbol-table entries with a storage- ! 94: class field of C_EFCN (-1) from being accepted. */ ! 95: ! 96: #ifdef PUT_SDB_EPILOGUE_END ! 97: #undef PUT_SDB_EPILOGUE_END ! 98: #endif ! 99: #define PUT_SDB_EPILOGUE_END(NAME) ! 100: ! 101: #undef TARGET_VERSION ! 102: #define TARGET_VERSION fprintf (stderr, " (32000, National syntax)"); ! 103: ! 104: /* Same as the encore definition except ! 105: * Different syntax for double constants. ! 106: * Don't output `?' before external regs. ! 107: * Output `(sb)' in certain indirect refs. */ ! 108: ! 109: #error this has not been updated since version 1. ! 110: #error it is certainly wrong. ! 111: ! 112: #undef PRINT_OPERAND ! 113: #define PRINT_OPERAND(FILE, X, CODE) \ ! 114: { if (CODE == '$') putc ('$', FILE); \ ! 115: else if (CODE == '?'); \ ! 116: else if (GET_CODE (X) == REG) \ ! 117: fprintf (FILE, "%s", reg_names[REGNO (X)]); \ ! 118: else if (GET_CODE (X) == MEM) \ ! 119: { \ ! 120: rtx xfoo; \ ! 121: xfoo = XEXP (X, 0); \ ! 122: switch (GET_CODE (xfoo)) \ ! 123: { \ ! 124: case MEM: \ ! 125: if (GET_CODE (XEXP (xfoo, 0)) == REG) \ ! 126: if (REGNO (XEXP (xfoo, 0)) == STACK_POINTER_REGNUM) \ ! 127: fprintf (FILE, "0(0(sp))"); \ ! 128: else fprintf (FILE, "0(0(%s))", \ ! 129: reg_names[REGNO (XEXP (xfoo, 0))]); \ ! 130: else \ ! 131: { \ ! 132: extern int paren_base_reg_printed; \ ! 133: fprintf (FILE, "0("); \ ! 134: paren_base_reg_printed = 0; \ ! 135: output_address (xfoo); \ ! 136: if (!paren_base_reg_printed) \ ! 137: fprintf (FILE, "(sb)"); \ ! 138: putc (')', FILE); \ ! 139: } \ ! 140: break; \ ! 141: case REG: \ ! 142: fprintf (FILE, "0(%s)", reg_names[REGNO (xfoo)]); \ ! 143: break; \ ! 144: case PRE_DEC: \ ! 145: case POST_INC: \ ! 146: fprintf (FILE, "tos"); \ ! 147: break; \ ! 148: case CONST_INT: \ ! 149: fprintf (FILE, "@%d", INTVAL (xfoo)); \ ! 150: break; \ ! 151: default: \ ! 152: output_address (xfoo); \ ! 153: break; \ ! 154: } \ ! 155: } \ ! 156: else if (GET_CODE (X) == CONST_DOUBLE && GET_MODE (X) != DImode) \ ! 157: if (GET_MODE (X) == DFmode) \ ! 158: { union { double d; int i[2]; } u; \ ! 159: u.i[0] = CONST_DOUBLE_LOW (X); u.i[1] = CONST_DOUBLE_HIGH (X); \ ! 160: fprintf (FILE, "$0l%.20e", u.d); } \ ! 161: else { union { double d; int i[2]; } u; \ ! 162: u.i[0] = CONST_DOUBLE_LOW (X); u.i[1] = CONST_DOUBLE_HIGH (X); \ ! 163: fprintf (FILE, "$0f%.20e", u.d); } \ ! 164: else if (GET_CODE (X) == CONST) \ ! 165: output_addr_const (FILE, X); \ ! 166: else { putc ('$', FILE); output_addr_const (FILE, X); }}
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.