![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to next.h CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Apple XNU] / GNUtools / cc / config / pa|
Return to next.h CVS log | Up to [Apple XNU] / GNUtools / cc / config / pa |
1.1 root 1: /* Target definitions for GNU compiler for hppa running NeXTSTEP
2: Copyright (C) 1989, 1990, 1991, 1992, 1993 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: #define TARGET_DEFAULT (1+128+256) /* 1.1, gas, stub calls */
21:
22: #define TARGET_ARCHITECTURE \
23: { { "hppa", 1 }, /* same as snake. */ \
24: { "hppa1.0", -1 }, /* nosnake. */ \
25: }
26:
27: /* must before the inclusion of pa/pa.h */
28: #define NeXT_ASM
29:
30: #define MACHO_PIC 1
31:
32: #include "pa/pa.h"
33: #include "nextstep.h"
34:
35:
36: #define DEFAULT_TARGET_ARCH "hppa"
37:
38: #define HP_FP_ARG_DESCRIPTOR_REVERSED
39:
40: #undef CPP_PREDEFINES
41: #define CPP_PREDEFINES "-Dhppa -DNATURAL_ALIGNMENT -DNeXT -Dunix -D__MACH__ -D__BIG_ENDIAN__ -D__ARCHITECTURE__=\"hppa\" -D_PA_RISC1_1"
42:
43: #undef ASM_FILE_START
44: #define ASM_FILE_START
45:
46: #undef ASM_FILE_END
47: #undef ASM_OUTPUT_EXTERNAL_LIBCALL
48: #undef ASM_OUTPUT_EXTERNAL
49:
50: #undef FUNCTION_PROLOGUE
51: #define FUNCTION_PROLOGUE
52:
53: #undef FUNCTION_EPILOGUE
54: #define FUNCTION_EPILOGUE
55:
56: #undef GLOBAL_ASM_OP
57: #define GLOBAL_ASM_OP ".globl"
58:
59: #undef SIZE_TYPE
60: #define SIZE_TYPE "long unsigned int"
61:
62: #undef ASM_GLOBALIZE_LABEL
63: #define ASM_GLOBALIZE_LABEL(FILE,NAME) \
64: do { fprintf (FILE, "%s ", GLOBAL_ASM_OP); \
65: assemble_name (FILE, NAME); \
66: fputs ("\n", FILE);} while (0)
67:
68: /* This is how to output an internal numbered label where
69: PREFIX is the class of label and NUM is the number within the class. */
70:
71: #undef ASM_OUTPUT_INTERNAL_LABEL
72: #define ASM_OUTPUT_INTERNAL_LABEL(FILE,PREFIX,NUM) \
73: asm_fprintf (FILE, "%0L%s%d:\n", PREFIX, NUM)
74:
75: /* This is how to store into the string LABEL
76: the symbol_ref name of an internal numbered label where
77: PREFIX is the class of label and NUM is the number within the class.
78: This is suitable for output with `assemble_name'. */
79:
80: #undef STRING_SECTION_NAME
81: #define STRING_SECTION_NAME "ascii"
82:
83: #undef ASM_GENERATE_INTERNAL_LABEL
84: #define ASM_GENERATE_INTERNAL_LABEL(LABEL,PREFIX,NUM) \
85: sprintf (LABEL, "*%s%d", PREFIX, NUM)
86:
87: /* This is how to output an assembler line defining a `double' constant. */
88:
89: #undef ASM_OUTPUT_DOUBLE
90: #define ASM_OUTPUT_DOUBLE(FILE,VALUE) \
91: do { \
92: long hex[2]; \
93: REAL_VALUE_TO_TARGET_DOUBLE (VALUE, hex); \
94: fprintf(FILE, "\t; .double %.20g\n", (VALUE)); \
95: fprintf (FILE, "\t.long 0x%x\n\t.long 0x%x\n", hex[0], hex[1]); \
96: } while (0)
97:
98: /* This is how to output an assembler line defining a `float' constant. */
99:
100: #undef ASM_OUTPUT_FLOAT
101: #define ASM_OUTPUT_FLOAT(FILE,VALUE) \
102: do { long l; \
103: REAL_VALUE_TO_TARGET_SINGLE (VALUE, l); \
104: fprintf(FILE, "\t; .single %.12e\n", (VALUE)); \
105: fprintf (FILE, "\t.long 0x%x\n", l); \
106: } while (0)
107:
108: #undef ASM_OUTPUT_SKIP
109: #define ASM_OUTPUT_SKIP(FILE,SIZE) \
110: fprintf (FILE, "\t.space %u\n", (SIZE))
111:
112: /* Output to assembler file text saying following lines
113: may contain character constants, extra white space, comments, etc. */
114:
115: #undef ASM_APP_ON
116: #define ASM_APP_ON "#APP\n"
117:
118: /* Output to assembler file text saying following lines
119: no longer contain unusual constructs. */
120:
121: #undef ASM_APP_OFF
122: #define ASM_APP_OFF "#NO_APP\n"
123:
124: /* This is how to output a reference to a user-level label named NAME.
125: `assemble_name' uses this. */
126:
127: #define ASM_GENERATE_LABELREF(BUFFER,NAME) \
128: do { if (NAME[0] == '+' || NAME[0] == '-') sprintf (BUFFER, "\"%s\"", NAME); \
129: else if (!strncmp (NAME, "_OBJC_", 6)) sprintf (BUFFER, "L%s", NAME); \
130: else if (!strncmp (NAME, ".objc_class_name_", 17) \
131: || !strncmp (NAME, "$$", 2)) strcpy (BUFFER, NAME); \
132: else if (!strncmp (NAME, "mcount", 6)) sprintf (BUFFER, "%s", NAME); \
133: else sprintf (BUFFER, "_%s", NAME); } while (0)
134:
135: #undef ASM_OUTPUT_LABELREF
136: #define ASM_OUTPUT_LABELREF(FILE,NAME) \
137: do { char __buf[256]; ASM_GENERATE_LABELREF (__buf, NAME); \
138: fprintf (FILE, "%s", __buf); } while (0)
139:
140: /* Output before read-only data. */
141:
142: #undef TEXT_SECTION_ASM_OP
143: #define TEXT_SECTION_ASM_OP ".text"
144:
145: /* Output before writable data. */
146:
147: #undef DATA_SECTION_ASM_OP
148: #define DATA_SECTION_ASM_OP ".data"
149:
150: /* override how BSS is handled */
151:
152: #undef BSS_SECTION_ASM_OP
153:
154: /* This says how to output an assembler line
155: to define a global common symbol. */
156:
157: #undef ASM_OUTPUT_COMMON
158: #define ASM_OUTPUT_COMMON(FILE, NAME, SIZE, ROUNDED) \
159: ( fputs (".comm ", (FILE)), \
160: assemble_name ((FILE), (NAME)), \
161: fprintf ((FILE), ",%u\n", (ROUNDED)))
162:
163: /* This says how to output an assembler line
164: to define a local common symbol. */
165:
166: #undef ASM_OUTPUT_LOCAL
167: #define ASM_OUTPUT_LOCAL(FILE, NAME, SIZE, ROUNDED) \
168: ( fputs (".lcomm ", (FILE)), \
169: assemble_name ((FILE), (NAME)), \
170: fprintf ((FILE), ",%u\n", (ROUNDED)))
171:
172: #undef ASM_FORMAT_PRIVATE_NAME
173: #define ASM_FORMAT_PRIVATE_NAME(OUTPUT, NAME, LABELNO) \
174: ( (OUTPUT) = (char *) alloca (strlen ((NAME)) + 10), \
175: sprintf ((OUTPUT), "%s.%d", (NAME), (LABELNO)))
176:
177: #undef ENCODE_SECTION_INFO
178:
179: #undef ASM_DECLARE_FUNCTION_NAME
180:
181: #undef TRAMPOLINE_TEMPLATE(FILE)
182: #define TRAMPOLINE_TEMPLATE(FILE) \
183: { \
184: fprintf (FILE, "\tldw 12(0,%%r22),%%r21\n"); \
185: fprintf (FILE, "\tbe 0(4,%%r21)\n"); \
186: fprintf (FILE, "\tldw 16(0,%%r22),%%r29\n"); \
187: fprintf (FILE, "\t.short 0\n"); \
188: fprintf (FILE, "\t.short 0\n"); \
189: }
190:
191: #undef ASM_OUTPUT_INT
192: #define ASM_OUTPUT_INT(FILE,VALUE) \
193: { fprintf (FILE, "\t.long "); \
194: if (function_label_operand (VALUE, VOIDmode) \
195: && in_section != in_text) \
196: fprintf (FILE, "P%%"); \
197: output_addr_const (FILE, (VALUE)); \
198: fprintf (FILE, "\n");}
199:
200: #undef ASM_OUTPUT_SHORT
201: #define ASM_OUTPUT_SHORT(FILE,VALUE) \
202: ( fprintf (FILE, "\t.short "), \
203: output_addr_const (FILE, (VALUE)), \
204: fprintf (FILE, "\n"))
205:
206: #undef ASM_OUTPUT_ADDR_VEC_ELT
207: #define ASM_OUTPUT_ADDR_VEC_ELT(FILE, VALUE) \
208: fprintf (FILE, "\tb L%d\n\tnop\n", VALUE)
209:
210: #define OUTPUT_COMPILER_STUB
211:
212: /* this may not work for double values -- hard coded to 32 bit entities */
213:
214: #define OBJC_FORWARDING_REG_OFFSET(ISREG, OFF, REGNO) \
215: do { OFF = (FP_REG_CLASS_P( REGNO_REG_CLASS(REGNO)) \
216: ? -2 * ((REGNO) - 44) - 4 \
217: : 4 * ((REGNO) - 26) - 4); \
218: ISREG = 0; } while (0)
219:
220: #undef FUNCTION_ARG
221: #define FUNCTION_ARG(CUM, MODE, TYPE, NAMED) \
222: (4 >= ((CUM) + FUNCTION_ARG_SIZE ((MODE), (TYPE))) \
223: ? gen_rtx (REG, (MODE), \
224: (FUNCTION_ARG_SIZE ((MODE), (TYPE)) > 1 \
225: ? (((MODE) == DFmode) \
226: ? ((CUM) ? 50 : 46) \
227: : ((CUM) ? 23 : 25)) \
228: : (((MODE) == SFmode) \
229: ? (44 + 2 * (CUM)) \
230: : (27 - (CUM) - FUNCTION_ARG_SIZE ((MODE), (TYPE))))))\
231: : 0)
232:
233: /*
234: After the magic in calls.c has moved an argument into some register,
235: this macro is expanded so the backend can choose to duplicate
236: or spill that load to somewhere else.
237: The NeXTSTEP/PA backend uses this to spill arguments from float
238: registers into the general purpose regs.
239:
240: NAME is the name of the function being called.
241: NREGS is the number of registers being loaded into.
242: REG_RTX is the rtx for the (first) register being loaded.
243: VALUE_RTX is the value being loaded.
244: MODE is the mode the value is loaded in.
245:
246: The USE_DUP_REG_ARG_LOAD macro allows emitting USE insns
247: for possible registers changed.
248: */
249:
250: #define DUP_REG_ARG_LOAD(NAME, NREGS, REG_RTX, VALUE_RTX, MODE) \
251: do { if ((MODE)==DFmode && REGNO(REG_RTX) >= 46) { \
252: move_block_to_reg ((REGNO(REG_RTX)==46 ? 25 : 23), \
253: validize_mem(VALUE_RTX), 2, MODE); \
254: } else if ((MODE)==SFmode && REGNO(REG_RTX) >= 44) { \
255: move_block_to_reg (26-((REGNO(REG_RTX)-44)/2), \
256: validize_mem(VALUE_RTX), 1, MODE); } \
257: } while (0)
258:
259: /* Emit insn's to actually use the spilled regs so the loads
260: will not be handled wrong by the optimizer. */
261: #define USE_DUP_REG_ARG_LOAD(NAME, NREGS, REG_RTX, MODE) \
262: do { if (NREGS == 0) { if ((MODE)==DFmode && REGNO(REG_RTX) >= 46) { \
263: use_regs ((REGNO(REG_RTX)==46 ? 25 : 23), 2); \
264: } else if ((MODE)==SFmode) { \
265: emit_insn (gen_rtx (USE, VOIDmode, gen_rtx (REG, SImode, 26-((REGNO (REG_RTX)-44)/2)))); } \
266: }} while (0)
267:
268: #define PROFILE_LABEL_PREFIX
269:
270: #undef OVERRIDE_OPTIONS
271:
272: #undef CONSTANT_ADDRESS_P
273: #define CONSTANT_ADDRESS_P(X) \
274: ((GET_CODE (X) == LABEL_REF || GET_CODE (X) == SYMBOL_REF \
275: || GET_CODE (X) == CONST_INT || GET_CODE (X) == CONST \
276: || GET_CODE (X) == HIGH) \
277: && (reload_in_progress || reload_completed \
278: || ! symbolic_expression_p (X) || machopic_operand_p (X)))
279:
280: #define HI_SUM_TARGET_RTX (gen_rtx (REG, SImode, 1))
281: #define HI_SUM_TARGET_REGNO 1
282:
283: #undef ASM_OUTPUT_ADDR_DIFF_ELT
284: #define ASM_OUTPUT_ADDR_DIFF_ELT(FILE, VALUE, REL) \
285: fprintf (FILE, "\tb L%d\n\tnop\n", VALUE)
286:
287: #undef PIC_OFFSET_TABLE_REGNUM
288: #define PIC_OFFSET_TABLE_REGNUM 18
289:
290: #undef OPTIMIZATION_OPTIONS
291: #define OPTIMIZATION_OPTIONS(OPTIMIZE) \
292: { \
293: if (OPTIMIZE >= 1) \
294: { \
295: flag_cse_follow_jumps = 1; \
296: flag_cse_skip_blocks = 1; \
297: flag_expensive_optimizations = 1; \
298: flag_strength_reduce = 1; \
299: flag_rerun_cse_after_loop = 1; \
300: flag_caller_saves = 1; \
301: flag_schedule_insns = 1; \
302: flag_schedule_insns_after_reload = 1; \
303: } \
304: if (OPTIMIZE >= 2) \
305: flag_omit_frame_pointer = 1; \
306: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.