2015-05-22 Pascal Obry <obry@adacore.com>
[official-gcc.git] / gcc / target-globals.c
blob6983b5cc9b5dba1f9473c3d275a85d03eeda7bf5
1 /* Target-dependent globals.
2 Copyright (C) 2010-2015 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 "hash-set.h"
27 #include "vec.h"
28 #include "double-int.h"
29 #include "input.h"
30 #include "alias.h"
31 #include "symtab.h"
32 #include "wide-int.h"
33 #include "inchash.h"
34 #include "tree.h"
35 #include "ggc.h"
36 #include "toplev.h"
37 #include "target-globals.h"
38 #include "flags.h"
39 #include "regs.h"
40 #include "rtl.h"
41 #include "hard-reg-set.h"
42 #include "reload.h"
43 #include "expmed.h"
44 #include "hashtab.h"
45 #include "function.h"
46 #include "statistics.h"
47 #include "real.h"
48 #include "fixed-value.h"
49 #include "dojump.h"
50 #include "explow.h"
51 #include "calls.h"
52 #include "emit-rtl.h"
53 #include "varasm.h"
54 #include "stmt.h"
55 #include "expr.h"
56 #include "insn-codes.h"
57 #include "optabs.h"
58 #include "libfuncs.h"
59 #include "cfgloop.h"
60 #include "ira-int.h"
61 #include "builtins.h"
62 #include "gcse.h"
63 #include "bb-reorder.h"
64 #include "lower-subreg.h"
65 #include "recog.h"
67 #if SWITCHABLE_TARGET
68 struct target_globals default_target_globals = {
69 &default_target_flag_state,
70 &default_target_regs,
71 &default_target_rtl,
72 &default_target_recog,
73 &default_target_hard_regs,
74 &default_target_reload,
75 &default_target_expmed,
76 &default_target_optabs,
77 &default_target_libfuncs,
78 &default_target_cfgloop,
79 &default_target_ira,
80 &default_target_ira_int,
81 &default_target_builtins,
82 &default_target_gcse,
83 &default_target_bb_reorder,
84 &default_target_lower_subreg
87 struct target_globals *
88 save_target_globals (void)
90 struct target_globals *g = ggc_cleared_alloc <target_globals> ();
91 g->flag_state = XCNEW (struct target_flag_state);
92 g->regs = XCNEW (struct target_regs);
93 g->rtl = ggc_cleared_alloc<target_rtl> ();
94 g->recog = XCNEW (struct target_recog);
95 g->hard_regs = XCNEW (struct target_hard_regs);
96 g->reload = XCNEW (struct target_reload);
97 g->expmed = XCNEW (struct target_expmed);
98 g->optabs = XCNEW (struct target_optabs);
99 g->libfuncs = ggc_cleared_alloc<target_libfuncs> ();
100 g->cfgloop = XCNEW (struct target_cfgloop);
101 g->ira = XCNEW (struct target_ira);
102 g->ira_int = XCNEW (struct target_ira_int);
103 g->builtins = XCNEW (struct target_builtins);
104 g->gcse = XCNEW (struct target_gcse);
105 g->bb_reorder = XCNEW (struct target_bb_reorder);
106 g->lower_subreg = XCNEW (struct target_lower_subreg);
107 restore_target_globals (g);
108 init_reg_sets ();
109 target_reinit ();
110 return g;
113 /* Like save_target_globals() above, but set *this_target_optabs
114 correctly when a previous function has changed
115 *this_target_optabs. */
117 struct target_globals *
118 save_target_globals_default_opts ()
120 struct target_globals *globals;
122 if (optimization_current_node != optimization_default_node)
124 tree opts = optimization_current_node;
125 /* Temporarily switch to the default optimization node, so that
126 *this_target_optabs is set to the default, not reflecting
127 whatever a previous function used for the optimize
128 attribute. */
129 optimization_current_node = optimization_default_node;
130 cl_optimization_restore
131 (&global_options,
132 TREE_OPTIMIZATION (optimization_default_node));
133 globals = save_target_globals ();
134 optimization_current_node = opts;
135 cl_optimization_restore (&global_options,
136 TREE_OPTIMIZATION (opts));
137 return globals;
139 return save_target_globals ();
142 target_globals::~target_globals ()
144 /* default_target_globals points to static data so shouldn't be freed. */
145 if (this != &default_target_globals)
147 ira_int->~target_ira_int ();
148 hard_regs->finalize ();
149 XDELETE (flag_state);
150 XDELETE (regs);
151 XDELETE (recog);
152 XDELETE (hard_regs);
153 XDELETE (reload);
154 XDELETE (expmed);
155 XDELETE (optabs);
156 XDELETE (cfgloop);
157 XDELETE (ira);
158 XDELETE (ira_int);
159 XDELETE (builtins);
160 XDELETE (gcse);
161 XDELETE (bb_reorder);
162 XDELETE (lower_subreg);
166 #endif