trans-decl.c (create_function_arglist): Add hidden coarray
[official-gcc.git] / gcc / target-globals.c
blob7cf95aeeddfe98037ba8631e2d0b3142980b7755
1 /* Target-dependent globals.
2 Copyright (C) 2010-2014 Free Software Foundation, Inc.
4 This file is part of GCC.
6 GCC is free software; you can redistribute it and/or modify it under
7 the terms of the GNU General Public License as published by the Free
8 Software Foundation; either version 3, or (at your option) any later
9 version.
11 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
12 WARRANTY; without even the implied warranty of MERCHANTABILITY or
13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
14 for more details.
16 You should have received a copy of the GNU General Public License
17 along with GCC; see the file COPYING3. If not see
18 <http://www.gnu.org/licenses/>. */
20 #include "config.h"
21 #include "system.h"
22 #include "coretypes.h"
23 #include "tm.h"
24 #include "insn-config.h"
25 #include "machmode.h"
26 #include "tree.h"
27 #include "ggc.h"
28 #include "toplev.h"
29 #include "target-globals.h"
30 #include "flags.h"
31 #include "regs.h"
32 #include "rtl.h"
33 #include "hard-reg-set.h"
34 #include "reload.h"
35 #include "expmed.h"
36 #include "expr.h"
37 #include "optabs.h"
38 #include "libfuncs.h"
39 #include "cfgloop.h"
40 #include "ira-int.h"
41 #include "lra-int.h"
42 #include "builtins.h"
43 #include "gcse.h"
44 #include "bb-reorder.h"
45 #include "lower-subreg.h"
47 #if SWITCHABLE_TARGET
48 struct target_globals default_target_globals = {
49 &default_target_flag_state,
50 &default_target_regs,
51 &default_target_rtl,
52 &default_target_hard_regs,
53 &default_target_reload,
54 &default_target_expmed,
55 &default_target_optabs,
56 &default_target_libfuncs,
57 &default_target_cfgloop,
58 &default_target_ira,
59 &default_target_ira_int,
60 &default_target_lra_int,
61 &default_target_builtins,
62 &default_target_gcse,
63 &default_target_bb_reorder,
64 &default_target_lower_subreg
67 struct target_globals *
68 save_target_globals (void)
70 struct target_globals *g;
71 struct target_globals_extra {
72 struct target_globals g;
73 struct target_flag_state flag_state;
74 struct target_optabs optabs;
75 struct target_cfgloop cfgloop;
76 struct target_builtins builtins;
77 struct target_gcse gcse;
78 struct target_bb_reorder bb_reorder;
79 struct target_lower_subreg lower_subreg;
80 } *p;
81 p = (struct target_globals_extra *)
82 ggc_internal_cleared_alloc (sizeof (struct target_globals_extra));
83 g = (struct target_globals *) p;
84 g->flag_state = &p->flag_state;
85 g->regs = ggc_internal_cleared_alloc (sizeof (struct target_regs));
86 g->rtl = ggc_alloc_cleared_target_rtl ();
87 g->hard_regs
88 = ggc_internal_cleared_alloc (sizeof (struct target_hard_regs));
89 g->reload = ggc_internal_cleared_alloc (sizeof (struct target_reload));
90 g->expmed = ggc_internal_cleared_alloc (sizeof (struct target_expmed));
91 g->optabs = &p->optabs;
92 g->libfuncs = ggc_alloc_cleared_target_libfuncs ();
93 g->cfgloop = &p->cfgloop;
94 g->ira = ggc_internal_cleared_alloc (sizeof (struct target_ira));
95 g->ira_int = ggc_internal_cleared_alloc (sizeof (struct target_ira_int));
96 g->lra_int = ggc_internal_cleared_alloc (sizeof (struct target_lra_int));
97 g->builtins = &p->builtins;
98 g->gcse = &p->gcse;
99 g->bb_reorder = &p->bb_reorder;
100 g->lower_subreg = &p->lower_subreg;
101 restore_target_globals (g);
102 init_reg_sets ();
103 target_reinit ();
104 return g;
107 /* Like save_target_globals() above, but set *this_target_optabs
108 correctly when a previous function has changed
109 *this_target_optabs. */
111 struct target_globals *
112 save_target_globals_default_opts ()
114 struct target_globals *globals;
116 if (optimization_current_node != optimization_default_node)
118 tree opts = optimization_current_node;
119 /* Temporarily switch to the default optimization node, so that
120 *this_target_optabs is set to the default, not reflecting
121 whatever a previous function used for the optimize
122 attribute. */
123 optimization_current_node = optimization_default_node;
124 cl_optimization_restore
125 (&global_options,
126 TREE_OPTIMIZATION (optimization_default_node));
127 globals = save_target_globals ();
128 optimization_current_node = opts;
129 cl_optimization_restore (&global_options,
130 TREE_OPTIMIZATION (opts));
131 return globals;
133 return save_target_globals ();
136 #endif