xref: /netbsd-src/external/gpl3/gcc.old/dist/gcc/objcp/objcp-lang.c (revision 6cf6fe02a981b55727c49c3d37b0d8191a98c0ee)
1 /* Language-dependent hooks for Objective-C++.
2    Copyright 2005, 2007, 2008 Free Software Foundation, Inc.
3    Contributed by Ziemowit Laski  <zlaski@apple.com>
4 
5 This file is part of GCC.
6 
7 GCC 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 3, or (at your option)
10 any later version.
11 
12 GCC 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 GCC; see the file COPYING3.  If not see
19 <http://www.gnu.org/licenses/>.  */
20 
21 
22 #include "config.h"
23 #include "system.h"
24 #include "coretypes.h"
25 #include "tm.h"
26 #include "tree.h"
27 #include "cp-tree.h"
28 #include "c-common.h"
29 #include "toplev.h"
30 #include "objc-act.h"
31 #include "langhooks.h"
32 #include "langhooks-def.h"
33 #include "diagnostic.h"
34 #include "debug.h"
35 #include "cp-objcp-common.h"
36 #include "except.h"
37 
38 enum c_language_kind c_language = clk_objcxx;
39 static void objcxx_init_ts (void);
40 static tree objcxx_eh_personality (void);
41 
42 /* Lang hooks common to C++ and ObjC++ are declared in cp/cp-objcp-common.h;
43    consequently, there should be very few hooks below.  */
44 
45 #undef LANG_HOOKS_NAME
46 #define LANG_HOOKS_NAME "GNU Objective-C++"
47 #undef LANG_HOOKS_INIT
48 #define LANG_HOOKS_INIT objc_init
49 #undef LANG_HOOKS_DECL_PRINTABLE_NAME
50 #define LANG_HOOKS_DECL_PRINTABLE_NAME	objc_printable_name
51 #undef LANG_HOOKS_GIMPLIFY_EXPR
52 #define LANG_HOOKS_GIMPLIFY_EXPR objc_gimplify_expr
53 #undef LANG_HOOKS_INIT_TS
54 #define LANG_HOOKS_INIT_TS objcxx_init_ts
55 #undef LANG_HOOKS_EH_PERSONALITY
56 #define LANG_HOOKS_EH_PERSONALITY objcxx_eh_personality
57 #undef LANG_HOOKS_EH_RUNTIME_TYPE
58 #define LANG_HOOKS_EH_RUNTIME_TYPE build_eh_type_type
59 
60 /* Each front end provides its own lang hook initializer.  */
61 struct lang_hooks lang_hooks = LANG_HOOKS_INITIALIZER;
62 
63 /* Lang hook routines common to C++ and ObjC++ appear in cp/cp-objcp-common.c;
64    there should be very few (if any) routines below.  */
65 
66 tree
67 objcp_tsubst_copy_and_build (tree t, tree args, tsubst_flags_t complain,
68 			     tree in_decl, bool function_p ATTRIBUTE_UNUSED)
69 {
70 #define RECURSE(NODE)							\
71   tsubst_copy_and_build (NODE, args, complain, in_decl, 		\
72 			 /*function_p=*/false,				\
73 			 /*integral_constant_expression_p=*/false)
74 
75   /* The following two can only occur in Objective-C++.  */
76 
77   switch ((int) TREE_CODE (t))
78     {
79     case MESSAGE_SEND_EXPR:
80       return objc_finish_message_expr
81 	(RECURSE (TREE_OPERAND (t, 0)),
82 	 TREE_OPERAND (t, 1),  /* No need to expand the selector.  */
83 	 RECURSE (TREE_OPERAND (t, 2)));
84 
85     case CLASS_REFERENCE_EXPR:
86       return objc_get_class_reference
87 	(RECURSE (TREE_OPERAND (t, 0)));
88 
89     default:
90       break;
91     }
92 
93   /* Fall back to C++ processing.  */
94   return NULL_TREE;
95 
96 #undef RECURSE
97 }
98 
99 static void
100 objcxx_init_ts (void)
101 {
102   /* objc decls */
103   tree_contains_struct[CLASS_METHOD_DECL][TS_DECL_NON_COMMON] = 1;
104   tree_contains_struct[INSTANCE_METHOD_DECL][TS_DECL_NON_COMMON] = 1;
105   tree_contains_struct[KEYWORD_DECL][TS_DECL_NON_COMMON] = 1;
106 
107   tree_contains_struct[CLASS_METHOD_DECL][TS_DECL_WITH_VIS] = 1;
108   tree_contains_struct[INSTANCE_METHOD_DECL][TS_DECL_WITH_VIS] = 1;
109   tree_contains_struct[KEYWORD_DECL][TS_DECL_WITH_VIS] = 1;
110 
111   tree_contains_struct[CLASS_METHOD_DECL][TS_DECL_WRTL] = 1;
112   tree_contains_struct[INSTANCE_METHOD_DECL][TS_DECL_WRTL] = 1;
113   tree_contains_struct[KEYWORD_DECL][TS_DECL_WRTL] = 1;
114 
115   tree_contains_struct[CLASS_METHOD_DECL][TS_DECL_MINIMAL] = 1;
116   tree_contains_struct[INSTANCE_METHOD_DECL][TS_DECL_MINIMAL] = 1;
117   tree_contains_struct[KEYWORD_DECL][TS_DECL_MINIMAL] = 1;
118 
119   tree_contains_struct[CLASS_METHOD_DECL][TS_DECL_COMMON] = 1;
120   tree_contains_struct[INSTANCE_METHOD_DECL][TS_DECL_COMMON] = 1;
121   tree_contains_struct[KEYWORD_DECL][TS_DECL_COMMON] = 1;
122 
123   /* C++ decls */
124   tree_contains_struct[NAMESPACE_DECL][TS_DECL_NON_COMMON] = 1;
125   tree_contains_struct[USING_DECL][TS_DECL_NON_COMMON] = 1;
126   tree_contains_struct[TEMPLATE_DECL][TS_DECL_NON_COMMON] = 1;
127 
128   tree_contains_struct[NAMESPACE_DECL][TS_DECL_WITH_VIS] = 1;
129   tree_contains_struct[USING_DECL][TS_DECL_WITH_VIS] = 1;
130   tree_contains_struct[TEMPLATE_DECL][TS_DECL_WITH_VIS] = 1;
131 
132   tree_contains_struct[NAMESPACE_DECL][TS_DECL_WRTL] = 1;
133   tree_contains_struct[USING_DECL][TS_DECL_WRTL] = 1;
134   tree_contains_struct[TEMPLATE_DECL][TS_DECL_WRTL] = 1;
135 
136   tree_contains_struct[NAMESPACE_DECL][TS_DECL_COMMON] = 1;
137   tree_contains_struct[USING_DECL][TS_DECL_COMMON] = 1;
138   tree_contains_struct[TEMPLATE_DECL][TS_DECL_COMMON] = 1;
139 
140   tree_contains_struct[NAMESPACE_DECL][TS_DECL_MINIMAL] = 1;
141   tree_contains_struct[USING_DECL][TS_DECL_MINIMAL] = 1;
142   tree_contains_struct[TEMPLATE_DECL][TS_DECL_MINIMAL] = 1;
143 
144   init_shadowed_var_for_decl ();
145 }
146 
147 static GTY(()) tree objcp_eh_personality_decl;
148 
149 static tree
150 objcxx_eh_personality (void)
151 {
152   if (!objcp_eh_personality_decl)
153     objcp_eh_personality_decl
154 	= build_personality_function (USING_SJLJ_EXCEPTIONS
155 				      ? "__gxx_personality_sj0"
156 				      : "__gxx_personality_v0");
157 
158   return objcp_eh_personality_decl;
159 }
160 
161 
162 void
163 finish_file (void)
164 {
165   objc_finish_file ();
166 }
167 
168 #include "gtype-objcp.h"
169