contrib/gdb-7/gdb/f-lang.c
static const char *
f_get_encoding (struct type *type)
{
  const char *encoding;

  switch (TYPE_LENGTH (type))
    {
    case 1:
      encoding = target_charset (get_type_arch (type));
      break;
    case 4:
      if (gdbarch_byte_order (get_type_arch (type)) == BFD_ENDIAN_BIG)
	encoding = "UTF-32BE";
      else
	encoding = "UTF-32LE";
      break;

    default:
      error (_("unrecognized character type"));
    }

  return encoding;
}
/* Return the encoding that should be used for the character type
   TYPE.  */
Return the encoding that should be used for the character type
TYPE.
Return the encoding that should be used for the character type TYPE .
static const char *
f_get_encoding (struct type *type)
{
  const char *encoding;
  switch (TYPE_LENGTH (type))
    {
    case 1:
      encoding = target_charset (get_type_arch (type));
      break;
    case 4:
      if (gdbarch_byte_order (get_type_arch (type)) == BFD_ENDIAN_BIG)
	encoding = "UTF-32BE";
      else
	encoding = "UTF-32LE";
      break;
    default:
      error (_("unrecognized character type"));
    }
  return encoding;
}
static const char * f_get_encoding ( struct type * type ) { const char * encoding ; switch ( TYPE_LENGTH ( type ) ) { case 1 : encoding = target_charset ( get_type_arch ( type ) ) ; break ; case 4 : if ( gdbarch_byte_order ( get_type_arch ( type ) ) == BFD_ENDIAN_BIG ) encoding = " " ; else encoding = " " ; break ; default : error ( _ ( " " ) ) ; } return encoding ; }
Return the encoding that should be used for the character type
TYPE.
Return the encoding that should be used for the character type TYPE .