1 /* Definitions for C parsing and type checking.
2 Copyright (C) 1987, 1993, 1994, 1995, 1997, 1998, 1999, 2000, 2001,
3 2002, 2003, 2004, 2005, 2007 Free Software Foundation, Inc.
5 This file is part of GCC.
7 GCC is free software; you can redistribute it and/or modify it under
8 the terms of the GNU General Public License as published by the Free
9 Software Foundation; either version 3, or (at your option) any later
12 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
13 WARRANTY; without even the implied warranty of MERCHANTABILITY or
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
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/>. */
26 #include "diagnostic.h"
28 /* struct lang_identifier is private to c-decl.c, but langhooks.c needs to
29 know how big it is. This is sanity-checked in c-decl.c. */
30 #define C_SIZEOF_STRUCT_LANG_IDENTIFIER \
31 (sizeof (struct c_common_identifier) + 3 * sizeof (void *))
33 /* Language-specific declaration information. */
35 struct lang_decl
GTY(())
40 /* In a RECORD_TYPE or UNION_TYPE, nonzero if any component is read-only. */
41 #define C_TYPE_FIELDS_READONLY(TYPE) TREE_LANG_FLAG_1 (TYPE)
43 /* In a RECORD_TYPE or UNION_TYPE, nonzero if any component is volatile. */
44 #define C_TYPE_FIELDS_VOLATILE(TYPE) TREE_LANG_FLAG_2 (TYPE)
46 /* In a RECORD_TYPE or UNION_TYPE or ENUMERAL_TYPE
47 nonzero if the definition of the type has already started. */
48 #define C_TYPE_BEING_DEFINED(TYPE) TYPE_LANG_FLAG_0 (TYPE)
50 /* In an incomplete RECORD_TYPE or UNION_TYPE, a list of variable
51 declarations whose type would be completed by completing that type. */
52 #define C_TYPE_INCOMPLETE_VARS(TYPE) TYPE_VFIELD (TYPE)
54 /* In an IDENTIFIER_NODE, nonzero if this identifier is actually a
55 keyword. C_RID_CODE (node) is then the RID_* value of the keyword,
56 and C_RID_YYCODE is the token number wanted by Yacc. */
57 #define C_IS_RESERVED_WORD(ID) TREE_LANG_FLAG_0 (ID)
59 struct lang_type
GTY(())
61 /* In a RECORD_TYPE, a sorted array of the fields of the type. */
62 struct sorted_fields_type
* GTY ((reorder ("resort_sorted_fields"))) s
;
63 /* In an ENUMERAL_TYPE, the min and max values. */
66 /* In a RECORD_TYPE, information specific to Objective-C, such
67 as a list of adopted protocols or a pointer to a corresponding
68 @interface. See objc/objc-act.h for details. */
72 /* Record whether a type or decl was written with nonconstant size.
73 Note that TYPE_SIZE may have simplified to a constant. */
74 #define C_TYPE_VARIABLE_SIZE(TYPE) TYPE_LANG_FLAG_1 (TYPE)
75 #define C_DECL_VARIABLE_SIZE(TYPE) DECL_LANG_FLAG_0 (TYPE)
77 /* Record whether a typedef for type `int' was actually `signed int'. */
78 #define C_TYPEDEF_EXPLICITLY_SIGNED(EXP) DECL_LANG_FLAG_1 (EXP)
80 /* For a FUNCTION_DECL, nonzero if it was defined without an explicit
82 #define C_FUNCTION_IMPLICIT_INT(EXP) DECL_LANG_FLAG_1 (EXP)
84 /* For a FUNCTION_DECL, nonzero if it was an implicit declaration. */
85 #define C_DECL_IMPLICIT(EXP) DECL_LANG_FLAG_2 (EXP)
87 /* For FUNCTION_DECLs, evaluates true if the decl is built-in but has
89 #define C_DECL_DECLARED_BUILTIN(EXP) \
90 DECL_LANG_FLAG_3 (FUNCTION_DECL_CHECK (EXP))
92 /* For FUNCTION_DECLs, evaluates true if the decl is built-in, has a
93 built-in prototype and does not have a non-built-in prototype. */
94 #define C_DECL_BUILTIN_PROTOTYPE(EXP) \
95 DECL_LANG_FLAG_6 (FUNCTION_DECL_CHECK (EXP))
97 /* Record whether a decl was declared register. This is strictly a
98 front-end flag, whereas DECL_REGISTER is used for code generation;
99 they may differ for structures with volatile fields. */
100 #define C_DECL_REGISTER(EXP) DECL_LANG_FLAG_4 (EXP)
102 /* Record whether a decl was used in an expression anywhere except an
103 unevaluated operand of sizeof / typeof / alignof. This is only
104 used for functions declared static but not defined, though outside
105 sizeof and typeof it is set for other function decls as well. */
106 #define C_DECL_USED(EXP) DECL_LANG_FLAG_5 (FUNCTION_DECL_CHECK (EXP))
108 /* Record whether a label was defined in a statement expression which
109 has finished and so can no longer be jumped to. */
110 #define C_DECL_UNJUMPABLE_STMT_EXPR(EXP) \
111 DECL_LANG_FLAG_6 (LABEL_DECL_CHECK (EXP))
113 /* Record whether a label was the subject of a goto from outside the
114 current level of statement expression nesting and so cannot be
115 defined right now. */
116 #define C_DECL_UNDEFINABLE_STMT_EXPR(EXP) \
117 DECL_LANG_FLAG_7 (LABEL_DECL_CHECK (EXP))
119 /* Record whether a label was defined in the scope of an identifier
120 with variably modified type which has finished and so can no longer
122 #define C_DECL_UNJUMPABLE_VM(EXP) \
123 DECL_LANG_FLAG_3 (LABEL_DECL_CHECK (EXP))
125 /* Record whether a label was the subject of a goto from outside the
126 current level of scopes of identifiers with variably modified type
127 and so cannot be defined right now. */
128 #define C_DECL_UNDEFINABLE_VM(EXP) \
129 DECL_LANG_FLAG_5 (LABEL_DECL_CHECK (EXP))
131 /* Record whether a variable has been declared threadprivate by
132 #pragma omp threadprivate. */
133 #define C_DECL_THREADPRIVATE_P(DECL) DECL_LANG_FLAG_3 (VAR_DECL_CHECK (DECL))
135 /* Nonzero for a decl which either doesn't exist or isn't a prototype.
136 N.B. Could be simplified if all built-in decls had complete prototypes
137 (but this is presently difficult because some of them need FILE*). */
138 #define C_DECL_ISNT_PROTOTYPE(EXP) \
140 || (TYPE_ARG_TYPES (TREE_TYPE (EXP)) == 0 \
141 && !DECL_BUILT_IN (EXP)))
143 /* For FUNCTION_TYPE, a hidden list of types of arguments. The same as
144 TYPE_ARG_TYPES for functions with prototypes, but created for functions
145 without prototypes. */
146 #define TYPE_ACTUAL_ARG_TYPES(NODE) TYPE_LANG_SLOT_1 (NODE)
148 /* Record parser information about an expression that is irrelevant
149 for code generation alongside a tree representing its value. */
152 /* The value of the expression. */
154 /* Record the original binary operator of an expression, which may
155 have been changed by fold, STRING_CST for unparenthesized string
156 constants, or ERROR_MARK for other expressions (including
157 parenthesized expressions). */
158 enum tree_code original_code
;
161 /* A kind of type specifier. Note that this information is currently
162 only used to distinguish tag definitions, tag references and typeof
164 enum c_typespec_kind
{
165 /* A reserved keyword type specifier. */
167 /* A reference to a tag, previously declared, such as "struct foo".
168 This includes where the previous declaration was as a different
169 kind of tag, in which case this is only valid if shadowing that
170 tag in an inner scope. */
172 /* A reference to a tag, not previously declared in a visible
175 /* A definition of a tag such as "struct foo { int a; }". */
177 /* A typedef name. */
179 /* An ObjC-specific kind of type specifier. */
181 /* A typeof specifier. */
185 /* A type specifier: this structure is created in the parser and
186 passed to declspecs_add_type only. */
188 /* What kind of type specifier this is. */
189 enum c_typespec_kind kind
;
190 /* The specifier itself. */
194 /* A storage class specifier. */
195 enum c_storage_class
{
204 /* A type specifier keyword "void", "_Bool", "char", "int", "float",
205 "double", or none of these. */
206 enum c_typespec_keyword
{
219 /* A sequence of declaration specifiers in C. */
221 /* The type specified, if a single type specifier such as a struct,
222 union or enum specifier, typedef name or typeof specifies the
223 whole type, or NULL_TREE if none or a keyword such as "void" or
224 "char" is used. Does not include qualifiers. */
226 /* The attributes from a typedef decl. */
228 /* When parsing, the attributes. Outside the parser, this will be
229 NULL; attributes (possibly from multiple lists) will be passed
232 /* Any type specifier keyword used such as "int", not reflecting
233 modifiers such as "short", or cts_none if none. */
234 enum c_typespec_keyword typespec_word
;
235 /* The storage class specifier, or csc_none if none. */
236 enum c_storage_class storage_class
;
237 /* Whether any declaration specifiers have been seen at all. */
238 BOOL_BITFIELD declspecs_seen_p
: 1;
239 /* Whether a type specifier has been seen. */
240 BOOL_BITFIELD type_seen_p
: 1;
241 /* Whether something other than a storage class specifier or
242 attribute has been seen. This is used to warn for the
243 obsolescent usage of storage class specifiers other than at the
244 start of the list. (Doing this properly would require function
245 specifiers to be handled separately from storage class
247 BOOL_BITFIELD non_sc_seen_p
: 1;
248 /* Whether the type is specified by a typedef or typeof name. */
249 BOOL_BITFIELD typedef_p
: 1;
250 /* Whether a struct, union or enum type either had its content
251 defined by a type specifier in the list or was the first visible
252 declaration of its tag. */
253 BOOL_BITFIELD tag_defined_p
: 1;
254 /* Whether the type is explicitly "signed" or specified by a typedef
255 whose type is explicitly "signed". */
256 BOOL_BITFIELD explicit_signed_p
: 1;
257 /* Whether the specifiers include a deprecated typedef. */
258 BOOL_BITFIELD deprecated_p
: 1;
259 /* Whether the type defaulted to "int" because there were no type
261 BOOL_BITFIELD default_int_p
;
262 /* Whether "long" was specified. */
263 BOOL_BITFIELD long_p
: 1;
264 /* Whether "long" was specified more than once. */
265 BOOL_BITFIELD long_long_p
: 1;
266 /* Whether "short" was specified. */
267 BOOL_BITFIELD short_p
: 1;
268 /* Whether "signed" was specified. */
269 BOOL_BITFIELD signed_p
: 1;
270 /* Whether "unsigned" was specified. */
271 BOOL_BITFIELD unsigned_p
: 1;
272 /* Whether "complex" was specified. */
273 BOOL_BITFIELD complex_p
: 1;
274 /* Whether "inline" was specified. */
275 BOOL_BITFIELD inline_p
: 1;
276 /* Whether "__thread" was specified. */
277 BOOL_BITFIELD thread_p
: 1;
278 /* Whether "const" was specified. */
279 BOOL_BITFIELD const_p
: 1;
280 /* Whether "volatile" was specified. */
281 BOOL_BITFIELD volatile_p
: 1;
282 /* Whether "restrict" was specified. */
283 BOOL_BITFIELD restrict_p
: 1;
286 /* The various kinds of declarators in C. */
287 enum c_declarator_kind
{
296 /* Parenthesized declarator with nested attributes. */
300 /* Information about the parameters in a function declarator. */
302 /* A list of parameter decls. */
304 /* A list of structure, union and enum tags defined. */
306 /* A list of argument types to go in the FUNCTION_TYPE. */
308 /* A list of non-parameter decls (notably enumeration constants)
309 defined with the parameters. */
311 /* A list of VLA sizes from the parameters. In a function
312 definition, these are used to ensure that side-effects in sizes
313 of arrays converted to pointers (such as a parameter int i[n++])
314 take place; otherwise, they are ignored. */
316 /* True when these arguments had [*]. */
317 BOOL_BITFIELD had_vla_unspec
: 1;
321 struct c_declarator
{
322 /* The kind of declarator. */
323 enum c_declarator_kind kind
;
324 /* Except for cdk_id, the contained declarator. For cdk_id, NULL. */
325 struct c_declarator
*declarator
;
326 location_t id_loc
; /* Currently only set for cdk_id. */
328 /* For identifiers, an IDENTIFIER_NODE or NULL_TREE if an abstract
332 struct c_arg_info
*arg_info
;
335 /* The array dimension, or NULL for [] and [*]. */
337 /* The qualifiers inside []. */
339 /* The attributes (currently ignored) inside []. */
341 /* Whether [static] was used. */
342 BOOL_BITFIELD static_p
: 1;
343 /* Whether [*] was used. */
344 BOOL_BITFIELD vla_unspec_p
: 1;
346 /* For pointers, the qualifiers on the pointer type. */
348 /* For attributes. */
355 /* The declaration specifiers. */
356 struct c_declspecs
*specs
;
357 /* The declarator. */
358 struct c_declarator
*declarator
;
363 /* The declaration specifiers, minus any prefix attributes. */
364 struct c_declspecs
*specs
;
365 /* The attributes. */
367 /* The declarator. */
368 struct c_declarator
*declarator
;
371 /* Save and restore the variables in this file and elsewhere
372 that keep track of the progress of compilation of the current function.
373 Used for nested functions. */
375 struct language_function
GTY(())
377 struct c_language_function base
;
380 struct c_switch
* GTY((skip
)) x_switch_stack
;
381 struct c_arg_info
* GTY((skip
)) arg_info
;
384 int returns_abnormally
;
385 int warn_about_return_type
;
389 /* Save lists of labels used or defined in particular contexts.
390 Allocated on the parser obstack. */
394 /* The label at the head of the list. */
396 /* The rest of the list. */
397 struct c_label_list
*next
;
400 /* Statement expression context. */
402 struct c_label_context_se
404 /* The labels defined at this level of nesting. */
405 struct c_label_list
*labels_def
;
406 /* The labels used at this level of nesting. */
407 struct c_label_list
*labels_used
;
408 /* The next outermost context. */
409 struct c_label_context_se
*next
;
412 /* Context of variably modified declarations. */
414 struct c_label_context_vm
416 /* The labels defined at this level of nesting. */
417 struct c_label_list
*labels_def
;
418 /* The labels used at this level of nesting. */
419 struct c_label_list
*labels_used
;
420 /* The scope of this context. Multiple contexts may be at the same
421 numbered scope, since each variably modified declaration starts a
424 /* The next outermost context. */
425 struct c_label_context_vm
*next
;
430 extern void c_parse_init (void);
432 /* in c-aux-info.c */
433 extern void gen_aux_info_record (tree
, int, int, int);
436 extern struct obstack parser_obstack
;
437 extern tree c_break_label
;
438 extern tree c_cont_label
;
440 extern int global_bindings_p (void);
441 extern void push_scope (void);
442 extern tree
pop_scope (void);
443 extern void insert_block (tree
);
444 extern void c_expand_body (tree
);
446 extern void c_init_decl_processing (void);
447 extern void c_dup_lang_specific_decl (tree
);
448 extern void c_print_identifier (FILE *, tree
, int);
449 extern int quals_from_declspecs (const struct c_declspecs
*);
450 extern struct c_declarator
*build_array_declarator (tree
, struct c_declspecs
*,
452 extern tree
build_enumerator (tree
, tree
);
453 extern tree
check_for_loop_decls (void);
454 extern void mark_forward_parm_decls (void);
455 extern void declare_parm_level (void);
456 extern void undeclared_variable (tree
, location_t
);
457 extern tree
declare_label (tree
);
458 extern tree
define_label (location_t
, tree
);
459 extern void c_maybe_initialize_eh (void);
460 extern void finish_decl (tree
, tree
, tree
);
461 extern tree
finish_enum (tree
, tree
, tree
);
462 extern void finish_function (void);
463 extern tree
finish_struct (tree
, tree
, tree
);
464 extern struct c_arg_info
*get_parm_info (bool);
465 extern tree
grokfield (struct c_declarator
*, struct c_declspecs
*, tree
);
466 extern tree
groktypename (struct c_type_name
*);
467 extern tree
grokparm (const struct c_parm
*);
468 extern tree
implicitly_declare (tree
);
469 extern void keep_next_level (void);
470 extern void pending_xref_error (void);
471 extern void c_push_function_context (struct function
*);
472 extern void c_pop_function_context (struct function
*);
473 extern void push_parm_decl (const struct c_parm
*);
474 extern struct c_declarator
*set_array_declarator_inner (struct c_declarator
*,
475 struct c_declarator
*,
477 extern tree
builtin_function (const char *, tree
, int, enum built_in_class
,
479 extern void shadow_tag (const struct c_declspecs
*);
480 extern void shadow_tag_warned (const struct c_declspecs
*, int);
481 extern tree
start_enum (tree
);
482 extern int start_function (struct c_declspecs
*, struct c_declarator
*, tree
);
483 extern tree
start_decl (struct c_declarator
*, struct c_declspecs
*, bool,
485 extern tree
start_struct (enum tree_code
, tree
);
486 extern void store_parm_decls (void);
487 extern void store_parm_decls_from (struct c_arg_info
*);
488 extern tree
xref_tag (enum tree_code
, tree
);
489 extern struct c_typespec
parser_xref_tag (enum tree_code
, tree
);
490 extern int c_expand_decl (tree
);
491 extern struct c_parm
*build_c_parm (struct c_declspecs
*, tree
,
492 struct c_declarator
*);
493 extern struct c_declarator
*build_attrs_declarator (tree
,
494 struct c_declarator
*);
495 extern struct c_declarator
*build_function_declarator (struct c_arg_info
*,
496 struct c_declarator
*);
497 extern struct c_declarator
*build_id_declarator (tree
);
498 extern struct c_declarator
*make_pointer_declarator (struct c_declspecs
*,
499 struct c_declarator
*);
500 extern struct c_declspecs
*build_null_declspecs (void);
501 extern struct c_declspecs
*declspecs_add_qual (struct c_declspecs
*, tree
);
502 extern struct c_declspecs
*declspecs_add_type (struct c_declspecs
*,
504 extern struct c_declspecs
*declspecs_add_scspec (struct c_declspecs
*, tree
);
505 extern struct c_declspecs
*declspecs_add_attrs (struct c_declspecs
*, tree
);
506 extern struct c_declspecs
*finish_declspecs (struct c_declspecs
*);
508 /* in c-objc-common.c */
509 extern int c_disregard_inline_limits (tree
);
510 extern int c_cannot_inline_tree_fn (tree
*);
511 extern bool c_objc_common_init (void);
512 extern bool c_missing_noreturn_ok_p (tree
);
513 extern tree
c_objc_common_truthvalue_conversion (tree expr
);
514 extern bool c_warn_unused_global_decl (tree
);
515 extern void c_initialize_diagnostics (diagnostic_context
*);
516 extern bool c_vla_unspec_p (tree x
, tree fn
);
518 #define c_build_type_variant(TYPE, CONST_P, VOLATILE_P) \
519 c_build_qualified_type ((TYPE), \
520 ((CONST_P) ? TYPE_QUAL_CONST : 0) | \
521 ((VOLATILE_P) ? TYPE_QUAL_VOLATILE : 0))
524 extern int in_alignof
;
525 extern int in_sizeof
;
526 extern int in_typeof
;
528 extern struct c_switch
*c_switch_stack
;
529 extern struct c_label_context_se
*label_context_stack_se
;
530 extern struct c_label_context_vm
*label_context_stack_vm
;
532 extern tree
require_complete_type (tree
);
533 extern int same_translation_unit_p (tree
, tree
);
534 extern int comptypes (tree
, tree
);
535 extern bool c_vla_type_p (tree
);
536 extern bool c_mark_addressable (tree
);
537 extern void c_incomplete_type_error (tree
, tree
);
538 extern tree
c_type_promotes_to (tree
);
539 extern struct c_expr
default_function_array_conversion (struct c_expr
);
540 extern tree
composite_type (tree
, tree
);
541 extern tree
build_component_ref (tree
, tree
);
542 extern tree
build_array_ref (tree
, tree
);
543 extern tree
build_external_ref (tree
, int, location_t
);
544 extern void pop_maybe_used (bool);
545 extern struct c_expr
c_expr_sizeof_expr (struct c_expr
);
546 extern struct c_expr
c_expr_sizeof_type (struct c_type_name
*);
547 extern struct c_expr
parser_build_unary_op (enum tree_code
, struct c_expr
);
548 extern struct c_expr
parser_build_binary_op (enum tree_code
, struct c_expr
,
550 extern tree
build_conditional_expr (tree
, tree
, tree
);
551 extern tree
build_compound_expr (tree
, tree
);
552 extern tree
c_cast_expr (struct c_type_name
*, tree
);
553 extern tree
build_c_cast (tree
, tree
);
554 extern void store_init_value (tree
, tree
);
555 extern void error_init (const char *);
556 extern void pedwarn_init (const char *);
557 extern void maybe_warn_string_init (tree
, struct c_expr
);
558 extern void start_init (tree
, tree
, int);
559 extern void finish_init (void);
560 extern void really_start_incremental_init (tree
);
561 extern void push_init_level (int);
562 extern struct c_expr
pop_init_level (int);
563 extern void set_init_index (tree
, tree
);
564 extern void set_init_label (tree
);
565 extern void process_init_element (struct c_expr
);
566 extern tree
build_compound_literal (tree
, tree
);
567 extern tree
c_start_case (tree
);
568 extern void c_finish_case (tree
);
569 extern tree
build_asm_expr (tree
, tree
, tree
, tree
, bool);
570 extern tree
build_asm_stmt (tree
, tree
);
571 extern tree
c_convert_parm_for_inlining (tree
, tree
, tree
, int);
572 extern int c_types_compatible_p (tree
, tree
);
573 extern tree
c_begin_compound_stmt (bool);
574 extern tree
c_end_compound_stmt (tree
, bool);
575 extern void c_finish_if_stmt (location_t
, tree
, tree
, tree
, bool);
576 extern void c_finish_loop (location_t
, tree
, tree
, tree
, tree
, tree
, bool);
577 extern tree
c_begin_stmt_expr (void);
578 extern tree
c_finish_stmt_expr (tree
);
579 extern tree
c_process_expr_stmt (tree
);
580 extern tree
c_finish_expr_stmt (tree
);
581 extern tree
c_finish_return (tree
);
582 extern tree
c_finish_bc_stmt (tree
*, bool);
583 extern tree
c_finish_goto_label (tree
);
584 extern tree
c_finish_goto_ptr (tree
);
585 extern void c_begin_vm_scope (unsigned int);
586 extern void c_end_vm_scope (unsigned int);
587 extern tree
c_expr_to_decl (tree
, bool *, bool *, bool *);
588 extern tree
c_begin_omp_parallel (void);
589 extern tree
c_finish_omp_parallel (tree
, tree
);
590 extern tree
c_finish_omp_clauses (tree
);
592 /* Set to 0 at beginning of a function definition, set to 1 if
593 a return statement that specifies a return value is seen. */
595 extern int current_function_returns_value
;
597 /* Set to 0 at beginning of a function definition, set to 1 if
598 a return statement with no argument is seen. */
600 extern int current_function_returns_null
;
602 /* Set to 0 at beginning of a function definition, set to 1 if
603 a call to a noreturn function is seen. */
605 extern int current_function_returns_abnormally
;
607 /* Nonzero means we are reading code that came from a system header file. */
609 extern int system_header_p
;
611 /* True means global_bindings_p should return false even if the scope stack
612 says we are in file scope. */
614 extern bool c_override_global_bindings_to_false
;
616 /* True means we've initialized exception handling. */
617 extern bool c_eh_initialized_p
;
620 extern void c_finish_incomplete_decl (tree
);
621 extern void c_write_global_declarations (void);
623 /* In order for the format checking to accept the C frontend
624 diagnostic framework extensions, you must include this file before
625 toplev.h, not after. */
626 #if GCC_VERSION >= 4001
627 #define ATTRIBUTE_GCC_CDIAG(m, n) __attribute__ ((__format__ (GCC_DIAG_STYLE, m ,n))) ATTRIBUTE_NONNULL(m)
629 #define ATTRIBUTE_GCC_CDIAG(m, n) ATTRIBUTE_NONNULL(m)
632 extern void pedwarn_c90 (const char *, ...) ATTRIBUTE_GCC_CDIAG(1,2);
633 extern void pedwarn_c99 (const char *, ...) ATTRIBUTE_GCC_CDIAG(1,2);
635 #endif /* ! GCC_C_TREE_H */