[RFA] print function arguments for g95

[Daniel Jacobowitz]

On Mon, Oct 13, 2003 at 01:53:19AM -0700, Richard Henderson wrote:
> G95 properly represents function arguments as references.  This
> causes the current fortran support to hork.  Fixed thus.  Ok?

Sure, thanks.

> 	* f-typeprint.c (f_type_print_base): Handle TYPE_CODE_REF.
> 	* f-valprint.c (f_val_print): Likewise.  Tweak TYPE_CODE_PTR to
> 	match c_val_print a bit closer.
> 
> Index: f-typeprint.c
> ===================================================================
> RCS file: /cvs/src/src/gdb/f-typeprint.c,v
> retrieving revision 1.11
> diff -u -p -r1.11 f-typeprint.c
> --- f-typeprint.c	14 Sep 2003 16:32:12 -0000	1.11
> +++ f-typeprint.c	13 Oct 2003 08:48:03 -0000
> @@ -329,6 +329,11 @@ f_type_print_base (struct type *type, st
>        f_type_print_base (TYPE_TARGET_TYPE (type), stream, 0, level);
>        break;
>  
> +    case TYPE_CODE_REF:
> +      fprintf_filtered (stream, "REF TO -> ( ");
> +      f_type_print_base (TYPE_TARGET_TYPE (type), stream, 0, level);
> +      break;

Does f_type_print_base take care of printing a closing paren or do you
need one here?

-- 
Daniel Jacobowitz
MontaVista Software                         Debian GNU/Linux Developer