|
|
1.1 root 1: /* Definitions of target machine for GNU compiler.
2: Atari TT ASV version.
3: Copyright (C) 1994 Free Software Foundation, Inc.
4:
5: This file is part of GNU CC.
6:
7: GNU CC is free software; you can redistribute it and/or modify
8: it under the terms of the GNU General Public License as published by
9: the Free Software Foundation; either version 1, or (at your option)
10: any later version.
11:
12: GNU CC is distributed in the hope that it will be useful,
13: but WITHOUT ANY WARRANTY; without even the implied warranty of
14: MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15: GNU General Public License for more details.
16:
17: You should have received a copy of the GNU General Public License
18: along with GNU CC; see the file COPYING. If not, write to
19: the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
20:
21: #include "m68k/m68kv4.h"
22:
23: /* Dollars and dots in labels are not allowed. */
24:
25: #define NO_DOLLAR_IN_LABEL
26: #define NO_DOT_IN_LABEL
27:
28: /* Alter assembler syntax for fsgldiv and fsglmul.
29: It is highly likely that this is a generic SGS m68k assembler dependency.
30: If so, it should eventually be handled in the m68k/sgs.h ASM_OUTPUT_OPCODE
31: macro, like the other SGS assembler quirks. -fnf */
32:
33: #define FSGLDIV_USE_S /* Use fsgldiv.s, not fsgldiv.x */
34: #define FSGLMUL_USE_S /* Use fsglmul.s, not fsglmul.x */
35:
36: /* At end of a switch table, define LDnnn iff the symbol LInnn was defined.
37: Some SGS assemblers have a bug such that "Lnnn-LInnn-2.b(pc,d0.l*2)"
38: fails to assemble. Luckily "Lnnn(pc,d0.l*2)" produces the results
39: we want. This difference can be accommodated by making the assembler
40: define such "LDnnn" to be either "Lnnn-LInnn-2.b", "Lnnn", or any other
41: string, as necessary. This is accomplished via the ASM_OUTPUT_CASE_END
42: macro. (the Amiga assembler has this bug) */
43:
44: #undef ASM_OUTPUT_CASE_END
45: #define ASM_OUTPUT_CASE_END(FILE,NUM,TABLE) \
46: do { \
47: if (switch_table_difference_label_flag) \
48: asm_fprintf ((FILE), "\t%s %LLD%d,%LL%d\n", SET_ASM_OP, (NUM), (NUM));\
49: switch_table_difference_label_flag = 0; \
50: } while (0)
51:
52: int switch_table_difference_label_flag;
53:
54: /* This definition of ASM_OUTPUT_ASCII is the same as the one in m68k/sgs.h,
55: which has been overridden by the one in svr4.h. However, we can't use
56: the one in svr4.h because the ASV assembler croaks on some of the
57: strings that it emits (such as .string "\"%s\"\n"). */
58:
59: #undef ASM_OUTPUT_ASCII
60: #define ASM_OUTPUT_ASCII(FILE,PTR,LEN) \
61: { \
62: register int sp = 0, lp = 0, ch; \
63: fprintf ((FILE), "\t%s ", BYTE_ASM_OP); \
64: do { \
65: ch = (PTR)[sp]; \
66: if (ch > ' ' && ! (ch & 0x80) && ch != '\\') \
67: { \
68: fprintf ((FILE), "'%c", ch); \
69: } \
70: else \
71: { \
72: fprintf ((FILE), "0x%x", ch); \
73: } \
74: if (++sp < (LEN)) \
75: { \
76: if ((sp % 10) == 0) \
77: { \
78: fprintf ((FILE), "\n\t%s ", BYTE_ASM_OP); \
79: } \
80: else \
81: { \
82: putc (',', (FILE)); \
83: } \
84: } \
85: } while (sp < (LEN)); \
86: putc ('\n', (FILE)); \
87: }
88:
89: /* Override these for the sake of an assembler bug: the ASV
90: assembler can't handle .LC0@GOT syntax. This pollutes the final
91: table for shared librarys but what's a poor soul to do; sigh... RFH */
92:
93: #undef ASM_GENERATE_INTERNAL_LABEL
94: #define ASM_GENERATE_INTERNAL_LABEL(LABEL,PREFIX,NUM) \
95: if (flag_pic && !strcmp(PREFIX,"LC")) \
96: sprintf (LABEL, "*%s%%%d", PREFIX, NUM); \
97: else \
98: sprintf (LABEL, "*%s%s%d", LOCAL_LABEL_PREFIX, PREFIX, NUM)
99:
100: #undef ASM_OUTPUT_INTERNAL_LABEL
101: #define ASM_OUTPUT_INTERNAL_LABEL(FILE,PREFIX,NUM) \
102: if (flag_pic && !strcmp(PREFIX,"LC")) \
103: asm_fprintf (FILE, "%s%%%d:\n", PREFIX, NUM); \
104: else \
105: asm_fprintf (FILE, "%0L%s%d:\n", PREFIX, NUM)
106:
107: /* Define how to generate (in the callee) the output value of a function
108: and how to find (in the caller) the value returned by a function. VALTYPE
109: is the data type of the value (as a tree). If the precise function being
110: called is known, FUNC is its FUNCTION_DECL; otherwise, FUNC is 0.
111: For the Atari generate the result in d0 or fp0 as appropriate. */
112:
113: #undef FUNCTION_VALUE
114: #define FUNCTION_VALUE(VALTYPE, FUNC) \
115: (TREE_CODE (VALTYPE) == REAL_TYPE && TARGET_68881 \
116: ? gen_rtx (REG, TYPE_MODE (VALTYPE), 16) \
117: : gen_rtx (REG, TYPE_MODE (VALTYPE), 0))
118:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.