![[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 [GCC 2.x] / gcc / config|
Return to genix.h CVS log | Up to [GCC 2.x] / gcc / config |
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 "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: #undef PRINT_OPERAND
110: #define PRINT_OPERAND(FILE, X, CODE) \
111: { if (CODE == '$') putc ('$', FILE); \
112: else if (CODE == '?'); \
113: else if (GET_CODE (X) == REG) \
114: fprintf (FILE, "%s", reg_names[REGNO (X)]); \
115: else if (GET_CODE (X) == MEM) \
116: { \
117: rtx xfoo; \
118: xfoo = XEXP (X, 0); \
119: switch (GET_CODE (xfoo)) \
120: { \
121: case MEM: \
122: if (GET_CODE (XEXP (xfoo, 0)) == REG) \
123: if (REGNO (XEXP (xfoo, 0)) == STACK_POINTER_REGNUM) \
124: fprintf (FILE, "0(0(sp))"); \
125: else fprintf (FILE, "0(0(%s))", \
126: reg_names[REGNO (XEXP (xfoo, 0))]); \
127: else \
128: { \
129: extern int paren_base_reg_printed; \
130: fprintf (FILE, "0("); \
131: paren_base_reg_printed = 0; \
132: output_address (xfoo); \
133: if (!paren_base_reg_printed) \
134: fprintf (FILE, "(sb)"); \
135: putc (')', FILE); \
136: } \
137: break; \
138: case REG: \
139: fprintf (FILE, "0(%s)", reg_names[REGNO (xfoo)]); \
140: break; \
141: case PRE_DEC: \
142: case POST_INC: \
143: fprintf (FILE, "tos"); \
144: break; \
145: case CONST_INT: \
146: fprintf (FILE, "@%d", INTVAL (xfoo)); \
147: break; \
148: default: \
149: output_address (xfoo); \
150: break; \
151: } \
152: } \
153: else if (GET_CODE (X) == CONST_DOUBLE && GET_MODE (X) != DImode) \
154: if (GET_MODE (X) == DFmode) \
155: { union { double d; int i[2]; } u; \
156: u.i[0] = CONST_DOUBLE_LOW (X); u.i[1] = CONST_DOUBLE_HIGH (X); \
157: fprintf (FILE, "$0l%.20e", u.d); } \
158: else { 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, "$0f%.20e", u.d); } \
161: else if (GET_CODE (X) == CONST) \
162: output_addr_const (FILE, X); \
163: 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.