OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [config/] [rs6000/] [xcoff.h] - Blame information for rev 709

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 709 jeremybenn
/* Definitions of target machine for GNU compiler,
2
   for some generic XCOFF file format
3
   Copyright (C) 2001, 2002, 2003, 2004, 2007, 2008
4
   Free Software Foundation, Inc.
5
 
6
   This file is part of GCC.
7
 
8
   GCC is free software; you can redistribute it and/or modify it
9
   under the terms of the GNU General Public License as published
10
   by the Free Software Foundation; either version 3, or (at your
11
   option) any later version.
12
 
13
   GCC is distributed in the hope that it will be useful, but WITHOUT
14
   ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
15
   or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
16
   License for more details.
17
 
18
   You should have received a copy of the GNU General Public License
19
   along with GCC; see the file COPYING3.  If not see
20
   <http://www.gnu.org/licenses/>.  */
21
 
22
#define TARGET_OBJECT_FORMAT OBJECT_XCOFF
23
 
24
/* The RS/6000 uses the XCOFF format.  */
25
#define XCOFF_DEBUGGING_INFO 1
26
 
27
/* Define if the object format being used is COFF or a superset.  */
28
#define OBJECT_FORMAT_COFF
29
 
30
/* Define the magic numbers that we recognize as COFF.
31
 
32
    AIX 4.3 adds U803XTOCMAGIC (0757) for 64-bit objects and AIX V5 adds
33
    U64_TOCMAGIC (0767), but collect2.c does not include files in the
34
    correct order to conditionally define the symbolic name in this macro.
35
 
36
    The AIX linker accepts import/export files as object files,
37
    so accept "#!" (0x2321) magic number.  */
38
#define MY_ISCOFF(magic) \
39
  ((magic) == U802WRMAGIC || (magic) == U802ROMAGIC \
40
   || (magic) == U802TOCMAGIC || (magic) == 0757 || (magic) == 0767 \
41
   || (magic) == 0x2321)
42
 
43
/* We don't have GAS for the RS/6000 yet, so don't write out special
44
    .stabs in cc1plus.  */
45
 
46
#define FASCIST_ASSEMBLER
47
 
48
/* We define this to prevent the name mangler from putting dollar signs into
49
   function names.  */
50
 
51
#define NO_DOLLAR_IN_LABEL
52
 
53
/* We define this to 0 so that gcc will never accept a dollar sign in a
54
   variable name.  This is needed because the AIX assembler will not accept
55
   dollar signs.  */
56
 
57
#define DOLLARS_IN_IDENTIFIERS 0
58
 
59
/* AIX .align pseudo-op accept value from 0 to 12, corresponding to
60
   log base 2 of the alignment in bytes; 12 = 4096 bytes = 32768 bits.  */
61
 
62
#define MAX_OFILE_ALIGNMENT 32768
63
 
64
/* Default alignment factor for csect directives, chosen to honor
65
   BIGGEST_ALIGNMENT.  */
66
#define XCOFF_CSECT_DEFAULT_ALIGNMENT_STR "4"
67
 
68
/* Return nonzero if this entry is to be written into the constant
69
   pool in a special way.  We do so if this is a SYMBOL_REF, LABEL_REF
70
   or a CONST containing one of them.  If -mfp-in-toc (the default),
71
   we also do this for floating-point constants.  We actually can only
72
   do this if the FP formats of the target and host machines are the
73
   same, but we can't check that since not every file that uses these
74
   target macros includes real.h.  We also do this when we can write the
75
   entry into the TOC and the entry is not larger than a TOC entry.  */
76
 
77
#define ASM_OUTPUT_SPECIAL_POOL_ENTRY_P(X, MODE)                        \
78
  (TARGET_TOC                                                           \
79
   && (GET_CODE (X) == SYMBOL_REF                                       \
80
       || (GET_CODE (X) == CONST && GET_CODE (XEXP (X, 0)) == PLUS       \
81
           && GET_CODE (XEXP (XEXP (X, 0), 0)) == SYMBOL_REF)             \
82
       || GET_CODE (X) == LABEL_REF                                     \
83
       || (GET_CODE (X) == CONST_INT                                    \
84
           && GET_MODE_BITSIZE (MODE) <= GET_MODE_BITSIZE (Pmode))      \
85
       || (GET_CODE (X) == CONST_DOUBLE                                 \
86
           && (TARGET_MINIMAL_TOC                                       \
87
               || (SCALAR_FLOAT_MODE_P (GET_MODE (X))                   \
88
                   && ! TARGET_NO_FP_IN_TOC)))))
89
 
90
#define TARGET_ASM_OUTPUT_ANCHOR  rs6000_xcoff_asm_output_anchor
91
#define TARGET_ASM_GLOBALIZE_LABEL  rs6000_xcoff_asm_globalize_label
92
#define TARGET_ASM_INIT_SECTIONS  rs6000_xcoff_asm_init_sections
93
#define TARGET_ASM_RELOC_RW_MASK  rs6000_xcoff_reloc_rw_mask
94
#define TARGET_ASM_NAMED_SECTION  rs6000_xcoff_asm_named_section
95
#define TARGET_ASM_SELECT_SECTION  rs6000_xcoff_select_section
96
#define TARGET_ASM_SELECT_RTX_SECTION  rs6000_xcoff_select_rtx_section
97
#define TARGET_ASM_UNIQUE_SECTION  rs6000_xcoff_unique_section
98
#define TARGET_ASM_FUNCTION_RODATA_SECTION default_no_function_rodata_section
99
#define TARGET_STRIP_NAME_ENCODING  rs6000_xcoff_strip_name_encoding
100
#define TARGET_SECTION_TYPE_FLAGS  rs6000_xcoff_section_type_flags
101
 
102
/* FP save and restore routines.  */
103
#define SAVE_FP_PREFIX "._savef"
104
#define SAVE_FP_SUFFIX ""
105
#define RESTORE_FP_PREFIX "._restf"
106
#define RESTORE_FP_SUFFIX ""
107
 
108
/* Function name to call to do profiling.  */
109
#undef  RS6000_MCOUNT
110
#define RS6000_MCOUNT ".__mcount"
111
 
112
/* This outputs NAME to FILE up to the first null or '['.  */
113
 
114
#define RS6000_OUTPUT_BASENAME(FILE, NAME) \
115
  assemble_name ((FILE), (*targetm.strip_name_encoding) (NAME))
116
 
117
/* This is how to output the definition of a user-level label named NAME,
118
   such as the label on a static function or variable NAME.  */
119
 
120
#define ASM_OUTPUT_LABEL(FILE,NAME)     \
121
  do { RS6000_OUTPUT_BASENAME (FILE, NAME); fputs (":\n", FILE); } while (0)
122
 
123
/* This is how to output a command to make the user-level label named NAME
124
   defined for reference from other files.  */
125
 
126
/* Globalizing directive for a label.  */
127
#define GLOBAL_ASM_OP "\t.globl "
128
 
129
#undef TARGET_ASM_FILE_START
130
#define TARGET_ASM_FILE_START rs6000_xcoff_file_start
131
#define TARGET_ASM_FILE_END rs6000_xcoff_file_end
132
#undef TARGET_ASM_FILE_START_FILE_DIRECTIVE
133
#define TARGET_ASM_FILE_START_FILE_DIRECTIVE false
134
 
135
/* This macro produces the initial definition of a function name.
136
   On the RS/6000, we need to place an extra '.' in the function name and
137
   output the function descriptor.
138
   Dollar signs are converted to underscores.
139
 
140
   The csect for the function will have already been created when
141
   text_section was selected.  We do have to go back to that csect, however.
142
 
143
   The third and fourth parameters to the .function pseudo-op (16 and 044)
144
   are placeholders which no longer have any use.  */
145
 
146
#define ASM_DECLARE_FUNCTION_NAME(FILE,NAME,DECL)               \
147
{ char *buffer = (char *) alloca (strlen (NAME) + 1);           \
148
  char *p;                                                      \
149
  int dollar_inside = 0;                                 \
150
  strcpy (buffer, NAME);                                        \
151
  p = strchr (buffer, '$');                                     \
152
  while (p) {                                                   \
153
    *p = '_';                                                   \
154
    dollar_inside++;                                            \
155
    p = strchr (p + 1, '$');                                    \
156
  }                                                             \
157
  if (TREE_PUBLIC (DECL))                                       \
158
    {                                                           \
159
      if (!RS6000_WEAK || !DECL_WEAK (decl))                    \
160
        {                                                       \
161
          if (dollar_inside) {                                  \
162
              fprintf(FILE, "\t.rename .%s,\".%s\"\n", buffer, NAME);   \
163
              fprintf(FILE, "\t.rename %s,\"%s\"\n", buffer, NAME);     \
164
            }                                                   \
165
          fputs ("\t.globl .", FILE);                           \
166
          RS6000_OUTPUT_BASENAME (FILE, buffer);                \
167
          putc ('\n', FILE);                                    \
168
        }                                                       \
169
    }                                                           \
170
  else                                                          \
171
    {                                                           \
172
      if (dollar_inside) {                                      \
173
          fprintf(FILE, "\t.rename .%s,\".%s\"\n", buffer, NAME);       \
174
          fprintf(FILE, "\t.rename %s,\"%s\"\n", buffer, NAME); \
175
        }                                                       \
176
      fputs ("\t.lglobl .", FILE);                              \
177
      RS6000_OUTPUT_BASENAME (FILE, buffer);                    \
178
      putc ('\n', FILE);                                        \
179
    }                                                           \
180
  fputs ("\t.csect ", FILE);                                    \
181
  RS6000_OUTPUT_BASENAME (FILE, buffer);                        \
182
  fputs (TARGET_32BIT ? "[DS]\n" : "[DS],3\n", FILE);           \
183
  RS6000_OUTPUT_BASENAME (FILE, buffer);                        \
184
  fputs (":\n", FILE);                                          \
185
  fputs (TARGET_32BIT ? "\t.long ." : "\t.llong .", FILE);      \
186
  RS6000_OUTPUT_BASENAME (FILE, buffer);                        \
187
  fputs (", TOC[tc0], 0\n", FILE);                              \
188
  in_section = NULL;                                            \
189
  switch_to_section (function_section (DECL));                  \
190
  putc ('.', FILE);                                             \
191
  RS6000_OUTPUT_BASENAME (FILE, buffer);                        \
192
  fputs (":\n", FILE);                                          \
193
  if (write_symbols != NO_DEBUG && !DECL_IGNORED_P (DECL))      \
194
    xcoffout_declare_function (FILE, DECL, buffer);             \
195
}
196
 
197
/* Output a reference to SYM on FILE.  */
198
 
199
#define ASM_OUTPUT_SYMBOL_REF(FILE, SYM) \
200
  rs6000_output_symbol_ref (FILE, SYM)
201
 
202
/* This says how to output an external.
203
   Dollar signs are converted to underscores.  */
204
 
205
#undef  ASM_OUTPUT_EXTERNAL
206
#define ASM_OUTPUT_EXTERNAL(FILE, DECL, NAME)                           \
207
{ char *buffer = (char *) alloca (strlen (NAME) + 1);                   \
208
  char *p;                                                              \
209
  rtx _symref = XEXP (DECL_RTL (DECL), 0);                               \
210
  int dollar_inside = 0;                                         \
211
  strcpy (buffer, NAME);                                                \
212
  p = strchr (buffer, '$');                                             \
213
  while (p) {                                                           \
214
    *p = '_';                                                           \
215
    dollar_inside++;                                                    \
216
    p = strchr (p + 1, '$');                                            \
217
  }                                                                     \
218
  if (dollar_inside) {                                                  \
219
      fputs ("\t.extern .", FILE);                                      \
220
      RS6000_OUTPUT_BASENAME (FILE, buffer);                            \
221
      putc ('\n', FILE);                                                \
222
      fprintf(FILE, "\t.rename .%s,\".%s\"\n", buffer, NAME);           \
223
    }                                                                   \
224
  if ((TREE_CODE (DECL) == VAR_DECL                                     \
225
       || TREE_CODE (DECL) == FUNCTION_DECL)                            \
226
      && (NAME)[strlen (NAME) - 1] != ']')                              \
227
    {                                                                   \
228
      XSTR (_symref, 0) = concat (XSTR (_symref, 0),                      \
229
                                  (TREE_CODE (DECL) == FUNCTION_DECL    \
230
                                   ? "[DS]" : "[RW]"),                  \
231
                                  NULL);                                \
232
    }                                                                   \
233
}
234
 
235
/* This is how to output a reference to a user-level label named NAME.
236
   `assemble_name' uses this.  */
237
 
238
#define ASM_OUTPUT_LABELREF(FILE,NAME)  \
239
  asm_fprintf ((FILE), "%U%s", rs6000_xcoff_strip_dollar (NAME));
240
 
241
/* This is how to output an internal label prefix.  rs6000.c uses this
242
   when generating traceback tables.  */
243
 
244
#define ASM_OUTPUT_INTERNAL_LABEL_PREFIX(FILE,PREFIX)   \
245
  fprintf (FILE, "%s..", PREFIX)
246
 
247
/* This is how to output a label for a jump table.  Arguments are the same as
248
   for (*targetm.asm_out.internal_label), except the insn for the jump table is
249
   passed.  */
250
 
251
#define ASM_OUTPUT_CASE_LABEL(FILE,PREFIX,NUM,TABLEINSN)        \
252
{ ASM_OUTPUT_ALIGN (FILE, 2); (*targetm.asm_out.internal_label) (FILE, PREFIX, NUM); }
253
 
254
/* This is how to store into the string LABEL
255
   the symbol_ref name of an internal numbered label where
256
   PREFIX is the class of label and NUM is the number within the class.
257
   This is suitable for output with `assemble_name'.  */
258
 
259
#define ASM_GENERATE_INTERNAL_LABEL(LABEL,PREFIX,NUM)   \
260
  sprintf (LABEL, "*%s..%u", rs6000_xcoff_strip_dollar (PREFIX), (unsigned) (NUM))
261
 
262
/* This is how to output an assembler line to define N characters starting
263
   at P to FILE.  */
264
 
265
#define ASM_OUTPUT_ASCII(FILE, P, N)  output_ascii ((FILE), (P), (N))
266
 
267
/* This is how to advance the location counter by SIZE bytes.  */
268
 
269
#define SKIP_ASM_OP "\t.space "
270
 
271
#define ASM_OUTPUT_SKIP(FILE,SIZE)  \
272
  fprintf (FILE, "%s"HOST_WIDE_INT_PRINT_UNSIGNED"\n", SKIP_ASM_OP, (SIZE))
273
 
274
/* This says how to output an assembler line
275
   to define a global common symbol.  */
276
 
277
#define COMMON_ASM_OP "\t.comm "
278
 
279
#define ASM_OUTPUT_ALIGNED_COMMON(FILE, NAME, SIZE, ALIGN)      \
280
  do { fputs (COMMON_ASM_OP, (FILE));                   \
281
       RS6000_OUTPUT_BASENAME ((FILE), (NAME));         \
282
       if ((ALIGN) > 32)                                \
283
         fprintf ((FILE), ","HOST_WIDE_INT_PRINT_UNSIGNED",%u\n", (SIZE), \
284
                  exact_log2 ((ALIGN) / BITS_PER_UNIT)); \
285
       else if ((SIZE) > 4)                             \
286
         fprintf ((FILE), ","HOST_WIDE_INT_PRINT_UNSIGNED",3\n", (SIZE)); \
287
       else                                             \
288
         fprintf ((FILE), ","HOST_WIDE_INT_PRINT_UNSIGNED"\n", (SIZE)); \
289
  } while (0)
290
 
291
/* This says how to output an assembler line
292
   to define a local common symbol.
293
   Alignment cannot be specified, but we can try to maintain
294
   alignment after preceding TOC section if it was aligned
295
   for 64-bit mode.  */
296
 
297
#define LOCAL_COMMON_ASM_OP "\t.lcomm "
298
 
299
#define ASM_OUTPUT_LOCAL(FILE, NAME, SIZE, ROUNDED)     \
300
  do { fputs (LOCAL_COMMON_ASM_OP, (FILE));             \
301
       RS6000_OUTPUT_BASENAME ((FILE), (NAME));         \
302
       fprintf ((FILE), ","HOST_WIDE_INT_PRINT_UNSIGNED",%s\n", \
303
                (TARGET_32BIT ? (SIZE) : (ROUNDED)),    \
304
                xcoff_bss_section_name);                \
305
     } while (0)
306
 
307
/* This is how we tell the assembler that two symbols have the same value.  */
308
#define SET_ASM_OP "\t.set "
309
 
310
/* This is how we tell the assembler to equate two values.  */
311
#define ASM_OUTPUT_DEF(FILE,LABEL1,LABEL2)                              \
312
 do {   fprintf ((FILE), "%s", SET_ASM_OP);                             \
313
        RS6000_OUTPUT_BASENAME (FILE, LABEL1);                          \
314
        fprintf (FILE, ",");                                            \
315
        RS6000_OUTPUT_BASENAME (FILE, LABEL2);                          \
316
        fprintf (FILE, "\n");                                           \
317
  } while (0)
318
 
319
/* Used by rs6000_assemble_integer, among others.  */
320
#define DOUBLE_INT_ASM_OP "\t.llong\t"
321
 
322
/* Output before instructions.  */
323
#define TEXT_SECTION_ASM_OP "\t.csect .text[PR]"
324
 
325
/* Output before writable data.  */
326
#define DATA_SECTION_ASM_OP \
327
  "\t.csect .data[RW]," XCOFF_CSECT_DEFAULT_ALIGNMENT_STR
328
 
329
 
330
/* Define to prevent DWARF2 unwind info in the data section rather
331
   than in the .eh_frame section.  We do this because the AIX linker
332
   would otherwise garbage collect these sections.  */
333
#define EH_FRAME_IN_DATA_SECTION 1

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.