![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to tm-3b1.h CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10dc / cmd / gcc|
Return to tm-3b1.h CVS log | Up to [Research Unix] / researchv10dc / cmd / gcc |
1.1 root 1: /* Definitions of target machine for GNU compiler.
2: AT&T UNIX PC version (pc7300, 3b1)
3:
4: Written by Alex Crain
5: bug reports to [email protected]
6:
7: Copyright (C) 1987 Free Software Foundation, Inc.
8:
9: This file is part of GNU CC.
10:
11: GNU CC is distributed in the hope that it will be useful,
12: but WITHOUT ANY WARRANTY. No author or distributor
13: accepts responsibility to anyone for the consequences of using it
14: or for whether it serves any particular purpose or works at all,
15: unless he says so in writing. Refer to the GNU CC General Public
16: License for full details.
17:
18: Everyone is granted permission to copy, modify and redistribute
19: GNU CC, but only under the conditions described in the
20: GNU CC General Public License. A copy of this license is
21: supposed to have been given to you along with GNU CC so you
22: can know your rights and responsibilities. It should be in a
23: file named COPYING. Among other things, the copyright notice
24: and this notice must be preserved on all copies. */
25:
26: #define SGS_3B1
27:
28: #include "tm-hp9k320.h"
29:
30: /* See tm-m68k.h. 7 means 680[01]0 with no 68881. */
31:
32: #undef TARGET_DEFAULT
33: #define TARGET_DEFAULT 0
34:
35: /* -m68020 requires special flags to the assembler. */
36:
37: #undef ASM_SPEC
38: #define ASM_SPEC "%{m68020:-68020}%{!m68020:-68010}"
39:
40: /* we use /lib/libp/lib* when profiling */
41:
42: #undef LIB_SPEC
43: #define LIB_SPEC "%{!shlib:%{p:-L/lib/libp} %{pg:-L/lib/libp} -lc}"
44:
45: /* shared libraries need to use crt0s.o */
46:
47: #undef STARTFILE_SPEC
48: #define STARTFILE_SPEC \
49: "%{!shlib:%{pg:mcrt0.o%s}%{!pg:%{p:mcrt0.o%s}%{!p:crt0.o%s}}}\
50: %{shlib:crt0s.o%s shlib.ifile%s} "
51:
52: /* cpp has to support a #sccs directive for the /usr/include files */
53:
54: #define SCCS_DIRECTIVE
55:
56: /* Names to predefine in the preprocessor for this target machine. */
57:
58: #undef CPP_PREDEFINES
59: #define CPP_PREDEFINES "-Dmc68000 -Dmc68k -Dm68k -Dunix -Dunixpc"
60:
61: /* Override parts of tm-m68k.h to fit the HPUX assembler. */
62:
63: #undef TARGET_VERSION
64: #undef ASM_OUTPUT_DOUBLE
65: #undef ASM_OUTPUT_FLOAT
66: #undef ASM_OUTPUT_ALIGN
67: #undef ASM_OUTPUT_SOURCE_FILENAME
68: #undef ASM_OUTPUT_SOURCE_LINE
69: #undef PRINT_OPERAND_ADDRESS
70: #undef ASM_OUTPUT_INTERNAL_LABEL
71: #undef ASM_OUTPUT_OPCODE
72: #undef ASM_OUTPUT_LOCAL
73: #undef ASM_OUTPUT_LABELREF
74: #undef ASM_OUTPUT_ASCII
75:
76: #define TARGET_VERSION printf (" (68k, SGS/AT&T unixpc syntax)");
77:
78: /* The unixpc doesn't know about double's and float's */
79:
80: #define ASM_OUTPUT_DOUBLE(FILE,VALUE) \
81: do { union { double d; long l[2]; } tem; \
82: tem.d = (VALUE); \
83: fprintf(FILE, "\tlong 0x%x,0x%x\n", tem.l[0], tem.l[1]); \
84: } while (0)
85:
86: #define ASM_OUTPUT_FLOAT(FILE,VALUE) \
87: do { union { float f; long l;} tem; \
88: tem.f = (VALUE); \
89: fprintf (FILE, "\tlong 0x%x\n", tem.l); \
90: } while (0)
91:
92: #define ASM_OUTPUT_ALIGN(FILE,LOG) \
93: if ((LOG) == 1) \
94: fprintf (FILE, "\teven\n"); \
95: else if ((LOG) != 0) \
96: abort ();
97:
98: /* The beginnings of sdb support... */
99:
100: #define ASM_OUTPUT_SOURCE_FILENAME(FILE, FILENAME) \
101: fprintf (FILE, "\tfile\t\"%s\"\n", FILENAME);
102:
103: #define ASM_OUTPUT_SOURCE_LINE(FILE, LINENO) \
104: fprintf (FILE, "\tln\t%d\n", LINENO);
105:
106: /* Yet another null terminated string format. */
107:
108: #define ASM_OUTPUT_ASCII(FILE,PTR,LEN) \
109: { register int sp = 0, lp = 0; \
110: fprintf (FILE, "\tbyte\t"); \
111: loop: \
112: if (PTR[sp] > ' ' && ! (PTR[sp] & 0x80) && PTR[sp] != '\\') \
113: { lp += 3; \
114: fprintf (FILE, "'%c", PTR[sp]); } \
115: else \
116: { lp += 5; \
117: fprintf (FILE, "0x%x", PTR[sp]); } \
118: if (++sp < LEN) \
119: { if (lp > 60) \
120: { lp = 0; \
121: fprintf (FILE, "\n%s ", ASCII_DATA_ASM_OP); } \
122: else \
123: putc (',', FILE); \
124: goto loop; } \
125: putc ('\n', FILE); }
126:
127: /* Note that in the case of the movhi which fetches an element of
128: an ADDR_DIFF_VEC the offset output is too large by 2.
129: This is because the 3b1 assembler refuses to subtract 2.
130: ASM_OUTPUT_CASE_LABEL, below, compensates for this. */
131:
132: #define PRINT_OPERAND_ADDRESS(FILE, ADDR) \
133: { register rtx reg1, reg2, breg, ireg; \
134: register rtx addr = ADDR; \
135: rtx offset; \
136: switch (GET_CODE (addr)) \
137: { \
138: case REG: \
139: fprintf (FILE, "(%s)", reg_name [REGNO (addr)]); \
140: break; \
141: case PRE_DEC: \
142: fprintf (FILE, "-(%s)", reg_name [REGNO (XEXP (addr, 0))]); \
143: break; \
144: case POST_INC: \
145: fprintf (FILE, "(%s)+", reg_name [REGNO (XEXP (addr, 0))]); \
146: break; \
147: case PLUS: \
148: reg1 = 0; reg2 = 0; \
149: ireg = 0; breg = 0; \
150: offset = 0; \
151: if (CONSTANT_ADDRESS_P (XEXP (addr, 0))) \
152: { \
153: offset = XEXP (addr, 0); \
154: addr = XEXP (addr, 1); \
155: } \
156: else if (CONSTANT_ADDRESS_P (XEXP (addr, 1))) \
157: { \
158: offset = XEXP (addr, 1); \
159: addr = XEXP (addr, 0); \
160: } \
161: if (GET_CODE (addr) != PLUS) ; \
162: else if (GET_CODE (XEXP (addr, 0)) == SIGN_EXTEND) \
163: { \
164: reg1 = XEXP (addr, 0); \
165: addr = XEXP (addr, 1); \
166: } \
167: else if (GET_CODE (XEXP (addr, 1)) == SIGN_EXTEND) \
168: { \
169: reg1 = XEXP (addr, 1); \
170: addr = XEXP (addr, 0); \
171: } \
172: else if (GET_CODE (XEXP (addr, 0)) == MULT) \
173: { \
174: reg1 = XEXP (addr, 0); \
175: addr = XEXP (addr, 1); \
176: } \
177: else if (GET_CODE (XEXP (addr, 1)) == MULT) \
178: { \
179: reg1 = XEXP (addr, 1); \
180: addr = XEXP (addr, 0); \
181: } \
182: else if (GET_CODE (XEXP (addr, 0)) == REG) \
183: { \
184: reg1 = XEXP (addr, 0); \
185: addr = XEXP (addr, 1); \
186: } \
187: else if (GET_CODE (XEXP (addr, 1)) == REG) \
188: { \
189: reg1 = XEXP (addr, 1); \
190: addr = XEXP (addr, 0); \
191: } \
192: if (GET_CODE (addr) == REG || GET_CODE (addr) == MULT \
193: || GET_CODE (addr) == SIGN_EXTEND) \
194: { if (reg1 == 0) reg1 = addr; else reg2 = addr; addr = 0; } \
195: /* for OLD_INDEXING \
196: else if (GET_CODE (addr) == PLUS) \
197: { \
198: if (GET_CODE (XEXP (addr, 0)) == REG) \
199: { \
200: reg2 = XEXP (addr, 0); \
201: addr = XEXP (addr, 1); \
202: } \
203: else if (GET_CODE (XEXP (addr, 1)) == REG) \
204: { \
205: reg2 = XEXP (addr, 1); \
206: addr = XEXP (addr, 0); \
207: } \
208: } \
209: */ \
210: if (offset != 0) { if (addr != 0) abort (); addr = offset; } \
211: if ((reg1 && (GET_CODE (reg1) == SIGN_EXTEND \
212: || GET_CODE (reg1) == MULT)) \
213: || (reg2 != 0 && REGNO_OK_FOR_BASE_P (REGNO (reg2)))) \
214: { breg = reg2; ireg = reg1; } \
215: else if (reg1 != 0 && REGNO_OK_FOR_BASE_P (REGNO (reg1))) \
216: { breg = reg1; ireg = reg2; } \
217: if (ireg != 0 && breg == 0 && GET_CODE (addr) == LABEL_REF) \
218: { int scale = 1; \
219: if (GET_CODE (ireg) == MULT) \
220: { scale = INTVAL (XEXP (ireg, 1)); \
221: ireg = XEXP (ireg, 0); } \
222: if (GET_CODE (ireg) == SIGN_EXTEND) \
223: fprintf (FILE, "L%d-LI%d(%%pc,%s.w", \
224: CODE_LABEL_NUMBER (XEXP (addr, 0)), \
225: CODE_LABEL_NUMBER (XEXP (addr, 0)), \
226: reg_name[REGNO (XEXP (ireg, 0))]); \
227: else \
228: fprintf (FILE, "L%d-LI%d(%%pc,%s.l", \
229: CODE_LABEL_NUMBER (XEXP (addr, 0)), \
230: CODE_LABEL_NUMBER (XEXP (addr, 0)), \
231: reg_name[REGNO (ireg)]); \
232: if (scale != 1) fprintf (FILE, ":%d", scale); \
233: fprintf (FILE, ")"); \
234: break; } \
235: if (ireg != 0 || breg != 0) \
236: { int scale = 1; \
237: if (breg == 0) \
238: abort (); \
239: if (addr != 0) \
240: output_addr_const (FILE, addr); \
241: fprintf (FILE, "(%s", reg_name[REGNO (breg)]); \
242: if (ireg != 0) \
243: putc (',', FILE); \
244: if (ireg != 0 && GET_CODE (ireg) == MULT) \
245: { scale = INTVAL (XEXP (ireg, 1)); \
246: ireg = XEXP (ireg, 0); } \
247: if (ireg != 0 && GET_CODE (ireg) == SIGN_EXTEND) \
248: fprintf (FILE, "%s.w", reg_name[REGNO (XEXP (ireg, 0))]); \
249: else if (ireg != 0) \
250: fprintf (FILE, "%s.l", reg_name[REGNO (ireg)]); \
251: if (scale != 1) fprintf (FILE, ":%d", scale); \
252: putc (')', FILE); \
253: break; \
254: } \
255: else if (reg1 != 0 && GET_CODE (addr) == LABEL_REF) \
256: { fprintf (FILE, "L%d-LI%d(%%pc,%s.w)", \
257: CODE_LABEL_NUMBER (XEXP (addr, 0)), \
258: CODE_LABEL_NUMBER (XEXP (addr, 0)), \
259: reg_name[REGNO (reg1)]); \
260: break; } \
261: default: \
262: if (GET_CODE (addr) == CONST_INT \
263: && INTVAL (addr) < 0x8000 \
264: && INTVAL (addr) >= -0x8000) \
265: fprintf (FILE, "%d", INTVAL (addr)); \
266: else \
267: output_addr_const (FILE, addr); \
268: }}
269:
270: #define ASM_OUTPUT_INTERNAL_LABEL(FILE,PREFIX,NUM) \
271: fprintf (FILE, "%s%d:\n", PREFIX, NUM)
272:
273: #define ASM_OUTPUT_CASE_LABEL(FILE,PREFIX,NUM,TABLE) \
274: fprintf (FILE, "\tswbeg &%d\n%s%d:\n\tshort 0", \
275: XVECLEN (PATTERN (TABLE), 1) + 1, PREFIX, NUM)
276:
277: #define ASM_OUTPUT_OPCODE(FILE, PTR) \
278: { if ((PTR)[0] == 'j' && (PTR)[1] == 'b') \
279: { ++(PTR); \
280: while (*(PTR) != ' ') \
281: { putc (*(PTR), (FILE)); ++(PTR); } \
282: fprintf ((FILE), ".w"); } \
283: else if ((PTR)[0] == 'f') \
284: { \
285: if (!strncmp ((PTR), "fmove", 5)) \
286: { fprintf ((FILE), "fmov"); (PTR) += 5; } \
287: else if (!strncmp ((PTR), "ftst", 4)) \
288: { fprintf ((FILE), "ftest"); (PTR) += 4; } \
289: } \
290: /* MOVE, MOVEA, MOVEQ, MOVEC ==> MOV */ \
291: else if ((PTR)[0] == 'm' && (PTR)[1] == 'o' \
292: && (PTR)[2] == 'v' && (PTR)[3] == 'e') \
293: { fprintf ((FILE), "mov"); (PTR) += 4; \
294: if ((PTR)[0] == 'q' || (PTR)[0] == 'a' || \
295: (PTR)[0] == 'c') (PTR)++; } \
296: /* SUB, SUBQ, SUBA, SUBI ==> SUB */ \
297: else if ((PTR)[0] == 's' && (PTR)[1] == 'u' \
298: && (PTR)[2] == 'b') \
299: { fprintf ((FILE), "sub"); (PTR) += 3; \
300: if ((PTR)[0] == 'q' || (PTR)[0] == 'i' || \
301: (PTR)[0] == 'a') (PTR)++; } \
302: /* CMP, CMPA, CMPI, CMPM ==> CMP */ \
303: else if ((PTR)[0] == 'c' && (PTR)[1] == 'm' \
304: && (PTR)[2] == 'p') \
305: { fprintf ((FILE), "cmp"); (PTR) += 3; \
306: if ((PTR)[0] == 'a' || (PTR)[0] == 'i' || \
307: (PTR)[0] == 'm') (PTR)++; } \
308: }
309:
310: #define ASM_OUTPUT_LOCAL(FILE, NAME, SIZE) \
311: ( fputs ("\tlcomm ", (FILE)), \
312: assemble_name ((FILE), (NAME)), \
313: fprintf ((FILE), ",%d\n", (SIZE)))
314:
315: #define ASM_OUTPUT_LABELREF(FILE,NAME) \
316: fprintf (FILE, "%s", NAME)
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.