contrib/gdb-7/gdb/f-lang.c
static void
f_printstr (struct ui_file *stream, struct type *type, const gdb_byte *string,
	    unsigned int length, const char *encoding, int force_ellipses,
	    const struct value_print_options *options)
{
  const char *type_encoding = f_get_encoding (type);

  if (TYPE_LENGTH (type) == 4)
    fputs_filtered ("4_", stream);

  if (!encoding || !*encoding)
    encoding = type_encoding;

  generic_printstr (stream, type, string, length, encoding,
		    force_ellipses, '\'', 0, options);
}
/* Print the character string STRING, printing at most LENGTH characters.
   Printing stops early if the number hits print_max; repeat counts
   are printed as appropriate.  Print ellipses at the end if we
   had to stop before printing LENGTH characters, or if FORCE_ELLIPSES.
   FIXME:  This is a copy of the same function from c-exp.y.  It should
   be replaced with a true F77 version.  */
Print the character string STRING, printing at most LENGTH characters.
Printing stops early if the number hits print_max; repeat counts
are printed as appropriate.  Print ellipses at the end if we
had to stop before printing LENGTH characters, or if FORCE_ELLIPSES.
FIXME:  This is a copy of the same function from c-exp.y.  It should
be replaced with a true F77 version.
Print the character string STRING printing at most LENGTH characters . Printing stops early if the number hits print_max ; repeat counts are printed as appropriate . Print ellipses at the end if we had to stop before printing LENGTH characters or if FORCE_ELLIPSES . FIXME : This is a copy of the same function from c - exp . y . It should be replaced with a true F77 version .
static void
f_printstr (struct ui_file *stream, struct type *type, const gdb_byte *string,
	    unsigned int length, const char *encoding, int force_ellipses,
	    const struct value_print_options *options)
{
  const char *type_encoding = f_get_encoding (type);
  if (TYPE_LENGTH (type) == 4)
    fputs_filtered ("4_", stream);
  if (!encoding || !*encoding)
    encoding = type_encoding;
  generic_printstr (stream, type, string, length, encoding,
		    force_ellipses, '\'', 0, options);
}
static void f_printstr ( struct ui_file * stream , struct type * type , const gdb_byte * string , unsigned int length , const char * encoding , int force_ellipses , const struct value_print_options * options ) { const char * type_encoding = f_get_encoding ( type ) ; if ( TYPE_LENGTH ( type ) == 4 ) fputs_filtered ( " " , stream ) ; if ( ! encoding || ! * encoding ) encoding = type_encoding ; generic_printstr ( stream , type , string , length , encoding , force_ellipses , ' \' ' , 0 , options ) ; }
Print the character string STRING, printing at most LENGTH characters.
Print the character string STRING printing at most LENGTH characters .