![[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.