FreeBSD/contrib/gcc/cp/class.c
/* Set global variables CURRENT_LANG_NAME to appropriate value
   so that behavior of name-mangling machinery is correct.  */
Set global variables CURRENT_LANG_NAME to appropriate value
so that behavior of name-mangling machinery is correct.
Set global variables CURRENT_LANG_NAME to appropriate value so that behavior of name - mangling machinery is correct .
void
push_lang_context (tree name)
{
  VEC_safe_push (tree, gc, current_lang_base, current_lang_name);
  if (name == lang_name_cplusplus)
    {
      current_lang_name = name;
    }
  else if (name == lang_name_java)
    {
      current_lang_name = name;
      DECL_IGNORED_P (TYPE_NAME (java_byte_type_node)) = 0;
      DECL_IGNORED_P (TYPE_NAME (java_short_type_node)) = 0;
      DECL_IGNORED_P (TYPE_NAME (java_int_type_node)) = 0;
      DECL_IGNORED_P (TYPE_NAME (java_long_type_node)) = 0;
      DECL_IGNORED_P (TYPE_NAME (java_float_type_node)) = 0;
      DECL_IGNORED_P (TYPE_NAME (java_double_type_node)) = 0;
      DECL_IGNORED_P (TYPE_NAME (java_char_type_node)) = 0;
      DECL_IGNORED_P (TYPE_NAME (java_boolean_type_node)) = 0;
    }
  else if (name == lang_name_c)
    {
      current_lang_name = name;
    }
  else
    error ("language string %<\"%E\"%> not recognized", name);
}
void push_lang_context ( tree name ) { VEC_safe_push ( tree , gc , current_lang_base , current_lang_name ) ; if ( name == lang_name_cplusplus ) { current_lang_name = name ; } else if ( name == lang_name_java ) { current_lang_name = name ; DECL_IGNORED_P ( TYPE_NAME ( java_byte_type_node ) ) = 0 ; DECL_IGNORED_P ( TYPE_NAME ( java_short_type_node ) ) = 0 ; DECL_IGNORED_P ( TYPE_NAME ( java_int_type_node ) ) = 0 ; DECL_IGNORED_P ( TYPE_NAME ( java_long_type_node ) ) = 0 ; DECL_IGNORED_P ( TYPE_NAME ( java_float_type_node ) ) = 0 ; DECL_IGNORED_P ( TYPE_NAME ( java_double_type_node ) ) = 0 ; DECL_IGNORED_P ( TYPE_NAME ( java_char_type_node ) ) = 0 ; DECL_IGNORED_P ( TYPE_NAME ( java_boolean_type_node ) ) = 0 ; } else if ( name == lang_name_c ) { current_lang_name = name ; } else error ( " \" \" " , name ) ; }
Set global variables CURRENT_LANG_NAME to appropriate value
so that behavior of name-mangling machinery is correct.
Set global variables CURRENT_LANG_NAME to appropriate value so that behavior of name - mangling machinery is correct .
/* DECL_IGNORED_P is initially set for these types, to avoid clutter.
	 (See record_builtin_java_type in decl.c.)  However, that causes
	 incorrect debug entries if these types are actually used.
	 So we re-enable debug output after extern "Java".  */