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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [common/] [config/] [rs6000/] [rs6000-common.c] - Blame information for rev 708

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 708 jeremybenn
/* Common hooks for IBM RS/6000.
2
   Copyright (C) 1991, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
3
   2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011
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
#include "config.h"
23
#include "system.h"
24
#include "coretypes.h"
25
#include "diagnostic-core.h"
26
#include "tm.h"
27
#include "common/common-target.h"
28
#include "common/common-target-def.h"
29
#include "opts.h"
30
#include "flags.h"
31
#include "params.h"
32
 
33
/* Implement TARGET_OPTION_OPTIMIZATION_TABLE.  */
34
static const struct default_options rs6000_option_optimization_table[] =
35
  {
36
    { OPT_LEVELS_1_PLUS, OPT_fomit_frame_pointer, NULL, 1 },
37
    { OPT_LEVELS_NONE, 0, NULL, 0 }
38
  };
39
 
40
/* Implement TARGET_OPTION_INIT_STRUCT.  */
41
 
42
static void
43
rs6000_option_init_struct (struct gcc_options *opts)
44
{
45
  if (DEFAULT_ABI == ABI_DARWIN)
46
    /* The Darwin libraries never set errno, so we might as well
47
       avoid calling them when that's the only reason we would.  */
48
    opts->x_flag_errno_math = 0;
49
 
50
  /* Enable section anchors by default.  */
51
  if (!TARGET_MACHO)
52
    opts->x_flag_section_anchors = 1;
53
}
54
 
55
/* Implement TARGET_OPTION_DEFAULT_PARAMS.  */
56
 
57
static void
58
rs6000_option_default_params (void)
59
{
60
  /* Double growth factor to counter reduced min jump length.  */
61
  set_default_param_value (PARAM_MAX_GROW_COPY_BB_INSNS, 16);
62
}
63
 
64
/* If not otherwise specified by a target, make 'long double' equivalent to
65
   'double'.  */
66
 
67
#ifndef RS6000_DEFAULT_LONG_DOUBLE_SIZE
68
#define RS6000_DEFAULT_LONG_DOUBLE_SIZE 64
69
#endif
70
 
71
/* Implement TARGET_HANDLE_OPTION.  */
72
 
73
static bool
74
rs6000_handle_option (struct gcc_options *opts, struct gcc_options *opts_set,
75
                      const struct cl_decoded_option *decoded,
76
                      location_t loc)
77
{
78
  enum fpu_type_t fpu_type = FPU_NONE;
79
  char *p, *q;
80
  size_t code = decoded->opt_index;
81
  const char *arg = decoded->arg;
82
  int value = decoded->value;
83
 
84
  switch (code)
85
    {
86
    case OPT_mno_power:
87
      opts->x_target_flags &= ~(MASK_POWER | MASK_POWER2
88
                                | MASK_MULTIPLE | MASK_STRING);
89
      opts_set->x_target_flags |= (MASK_POWER | MASK_POWER2
90
                                   | MASK_MULTIPLE | MASK_STRING);
91
      break;
92
    case OPT_mno_powerpc:
93
      opts->x_target_flags &= ~(MASK_POWERPC | MASK_PPC_GPOPT
94
                                | MASK_PPC_GFXOPT | MASK_POWERPC64);
95
      opts_set->x_target_flags |= (MASK_POWERPC | MASK_PPC_GPOPT
96
                                   | MASK_PPC_GFXOPT | MASK_POWERPC64);
97
      break;
98
    case OPT_mfull_toc:
99
      opts->x_target_flags &= ~MASK_MINIMAL_TOC;
100
      opts->x_TARGET_NO_FP_IN_TOC = 0;
101
      opts->x_TARGET_NO_SUM_IN_TOC = 0;
102
      opts_set->x_target_flags |= MASK_MINIMAL_TOC;
103
#ifdef TARGET_USES_SYSV4_OPT
104
      /* Note, V.4 no longer uses a normal TOC, so make -mfull-toc, be
105
         just the same as -mminimal-toc.  */
106
      opts->x_target_flags |= MASK_MINIMAL_TOC;
107
      opts_set->x_target_flags |= MASK_MINIMAL_TOC;
108
#endif
109
      break;
110
 
111
#ifdef TARGET_USES_SYSV4_OPT
112
    case OPT_mtoc:
113
      /* Make -mtoc behave like -mminimal-toc.  */
114
      opts->x_target_flags |= MASK_MINIMAL_TOC;
115
      opts_set->x_target_flags |= MASK_MINIMAL_TOC;
116
      break;
117
#endif
118
 
119
#ifdef TARGET_USES_AIX64_OPT
120
    case OPT_maix64:
121
#else
122
    case OPT_m64:
123
#endif
124
      opts->x_target_flags |= MASK_POWERPC64 | MASK_POWERPC;
125
      opts->x_target_flags |= ~opts_set->x_target_flags & MASK_PPC_GFXOPT;
126
      opts_set->x_target_flags |= MASK_POWERPC64 | MASK_POWERPC;
127
      break;
128
 
129
#ifdef TARGET_USES_AIX64_OPT
130
    case OPT_maix32:
131
#else
132
    case OPT_m32:
133
#endif
134
      opts->x_target_flags &= ~MASK_POWERPC64;
135
      opts_set->x_target_flags |= MASK_POWERPC64;
136
      break;
137
 
138
    case OPT_mminimal_toc:
139
      if (value == 1)
140
        {
141
          opts->x_TARGET_NO_FP_IN_TOC = 0;
142
          opts->x_TARGET_NO_SUM_IN_TOC = 0;
143
        }
144
      break;
145
 
146
    case OPT_mpower:
147
      if (value == 1)
148
        {
149
          opts->x_target_flags |= (MASK_MULTIPLE | MASK_STRING);
150
          opts_set->x_target_flags |= (MASK_MULTIPLE | MASK_STRING);
151
        }
152
      break;
153
 
154
    case OPT_mpower2:
155
      if (value == 1)
156
        {
157
          opts->x_target_flags |= (MASK_POWER | MASK_MULTIPLE | MASK_STRING);
158
          opts_set->x_target_flags |= (MASK_POWER
159
                                       | MASK_MULTIPLE
160
                                       | MASK_STRING);
161
        }
162
      break;
163
 
164
    case OPT_mpowerpc_gpopt:
165
    case OPT_mpowerpc_gfxopt:
166
      if (value == 1)
167
        {
168
          opts->x_target_flags |= MASK_POWERPC;
169
          opts_set->x_target_flags |= MASK_POWERPC;
170
        }
171
      break;
172
 
173
    case OPT_mdebug_:
174
      p = ASTRDUP (arg);
175
      opts->x_rs6000_debug = 0;
176
 
177
      while ((q = strtok (p, ",")) != NULL)
178
        {
179
          unsigned mask = 0;
180
          bool invert;
181
 
182
          p = NULL;
183
          if (*q == '!')
184
            {
185
              invert = true;
186
              q++;
187
            }
188
          else
189
            invert = false;
190
 
191
          if (! strcmp (q, "all"))
192
            mask = MASK_DEBUG_ALL;
193
          else if (! strcmp (q, "stack"))
194
            mask = MASK_DEBUG_STACK;
195
          else if (! strcmp (q, "arg"))
196
            mask = MASK_DEBUG_ARG;
197
          else if (! strcmp (q, "reg"))
198
            mask = MASK_DEBUG_REG;
199
          else if (! strcmp (q, "addr"))
200
            mask = MASK_DEBUG_ADDR;
201
          else if (! strcmp (q, "cost"))
202
            mask = MASK_DEBUG_COST;
203
          else if (! strcmp (q, "target"))
204
            mask = MASK_DEBUG_TARGET;
205
          else if (! strcmp (q, "builtin"))
206
            mask = MASK_DEBUG_BUILTIN;
207
          else
208
            error_at (loc, "unknown -mdebug-%s switch", q);
209
 
210
          if (invert)
211
            opts->x_rs6000_debug &= ~mask;
212
          else
213
            opts->x_rs6000_debug |= mask;
214
        }
215
      break;
216
 
217
#ifdef TARGET_USES_SYSV4_OPT
218
    case OPT_mrelocatable:
219
      if (value == 1)
220
        {
221
          opts->x_target_flags |= MASK_MINIMAL_TOC;
222
          opts_set->x_target_flags |= MASK_MINIMAL_TOC;
223
          opts->x_TARGET_NO_FP_IN_TOC = 1;
224
        }
225
      break;
226
 
227
    case OPT_mrelocatable_lib:
228
      if (value == 1)
229
        {
230
          opts->x_target_flags |= MASK_RELOCATABLE | MASK_MINIMAL_TOC;
231
          opts_set->x_target_flags |= MASK_RELOCATABLE | MASK_MINIMAL_TOC;
232
          opts->x_TARGET_NO_FP_IN_TOC = 1;
233
        }
234
      else
235
        {
236
          opts->x_target_flags &= ~MASK_RELOCATABLE;
237
          opts_set->x_target_flags |= MASK_RELOCATABLE;
238
        }
239
      break;
240
#endif
241
 
242
    case OPT_mabi_altivec:
243
      /* Enabling the AltiVec ABI turns off the SPE ABI.  */
244
      opts->x_rs6000_spe_abi = 0;
245
      break;
246
 
247
    case OPT_mabi_spe:
248
      opts->x_rs6000_altivec_abi = 0;
249
      break;
250
 
251
    case OPT_mlong_double_:
252
      if (value != 64 && value != 128)
253
        {
254
          error_at (loc, "unknown switch -mlong-double-%s", arg);
255
          opts->x_rs6000_long_double_type_size
256
            = RS6000_DEFAULT_LONG_DOUBLE_SIZE;
257
          return false;
258
        }
259
      break;
260
 
261
    case OPT_msingle_float:
262
      if (!TARGET_SINGLE_FPU)
263
        warning_at (loc, 0,
264
                    "-msingle-float option equivalent to -mhard-float");
265
      /* -msingle-float implies -mno-double-float and TARGET_HARD_FLOAT. */
266
      opts->x_rs6000_double_float = 0;
267
      opts->x_target_flags &= ~MASK_SOFT_FLOAT;
268
      opts_set->x_target_flags |= MASK_SOFT_FLOAT;
269
      break;
270
 
271
    case OPT_mdouble_float:
272
      /* -mdouble-float implies -msingle-float and TARGET_HARD_FLOAT. */
273
      opts->x_rs6000_single_float = 1;
274
      opts->x_target_flags &= ~MASK_SOFT_FLOAT;
275
      opts_set->x_target_flags |= MASK_SOFT_FLOAT;
276
      break;
277
 
278
    case OPT_msimple_fpu:
279
      if (!TARGET_SINGLE_FPU)
280
        warning_at (loc, 0, "-msimple-fpu option ignored");
281
      break;
282
 
283
    case OPT_mhard_float:
284
      /* -mhard_float implies -msingle-float and -mdouble-float. */
285
      opts->x_rs6000_single_float = opts->x_rs6000_double_float = 1;
286
      break;
287
 
288
    case OPT_msoft_float:
289
      /* -msoft_float implies -mnosingle-float and -mnodouble-float. */
290
      opts->x_rs6000_single_float = opts->x_rs6000_double_float = 0;
291
      break;
292
 
293
    case OPT_mfpu_:
294
      fpu_type = (enum fpu_type_t) value;
295
      if (fpu_type != FPU_NONE)
296
        {
297
          /* If -mfpu is not none, then turn off SOFT_FLOAT, turn on
298
             HARD_FLOAT. */
299
          opts->x_target_flags &= ~MASK_SOFT_FLOAT;
300
          opts_set->x_target_flags |= MASK_SOFT_FLOAT;
301
          opts->x_rs6000_xilinx_fpu = 1;
302
          if (fpu_type == FPU_SF_LITE || fpu_type == FPU_SF_FULL)
303
            opts->x_rs6000_single_float = 1;
304
          if (fpu_type == FPU_DF_LITE || fpu_type == FPU_DF_FULL)
305
            opts->x_rs6000_single_float = opts->x_rs6000_double_float = 1;
306
          if (fpu_type == FPU_SF_LITE || fpu_type == FPU_DF_LITE)
307
            opts->x_rs6000_simple_fpu = 1;
308
        }
309
      else
310
        {
311
          /* -mfpu=none is equivalent to -msoft-float.  */
312
          opts->x_target_flags |= MASK_SOFT_FLOAT;
313
          opts_set->x_target_flags |= MASK_SOFT_FLOAT;
314
          opts->x_rs6000_single_float = opts->x_rs6000_double_float = 0;
315
        }
316
      break;
317
 
318
    case OPT_mrecip:
319
      opts->x_rs6000_recip_name = (value) ? "default" : "none";
320
      break;
321
    }
322
  return true;
323
}
324
 
325
#undef TARGET_HANDLE_OPTION
326
#define TARGET_HANDLE_OPTION rs6000_handle_option
327
 
328
#undef TARGET_OPTION_INIT_STRUCT
329
#define TARGET_OPTION_INIT_STRUCT rs6000_option_init_struct
330
 
331
#undef TARGET_OPTION_DEFAULT_PARAMS
332
#define TARGET_OPTION_DEFAULT_PARAMS rs6000_option_default_params
333
 
334
#undef TARGET_OPTION_OPTIMIZATION_TABLE
335
#define TARGET_OPTION_OPTIMIZATION_TABLE rs6000_option_optimization_table
336
 
337
#undef TARGET_DEFAULT_TARGET_FLAGS
338
#define TARGET_DEFAULT_TARGET_FLAGS \
339
  (TARGET_DEFAULT)
340
 
341
struct gcc_targetm_common targetm_common = TARGETM_COMMON_INITIALIZER;

powered by: WebSVN 2.1.0

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