diff options
author | Kevin Buettner <kevinb@redhat.com> | 2000-07-30 01:48:28 +0000 |
---|---|---|
committer | Kevin Buettner <kevinb@redhat.com> | 2000-07-30 01:48:28 +0000 |
commit | fba45db2faf619e71856ee38ec63949c0ef6903e (patch) | |
tree | 107efc21d2b12f54d84b59e75251449e3d5fd096 /gdb/f-typeprint.c | |
parent | 29e6d33b03a5e39540d17bc8235573b1dac13341 (diff) | |
download | ppe42-binutils-fba45db2faf619e71856ee38ec63949c0ef6903e.tar.gz ppe42-binutils-fba45db2faf619e71856ee38ec63949c0ef6903e.zip |
Protoization.
Diffstat (limited to 'gdb/f-typeprint.c')
-rw-r--r-- | gdb/f-typeprint.c | 38 |
1 files changed, 10 insertions, 28 deletions
diff --git a/gdb/f-typeprint.c b/gdb/f-typeprint.c index db6e0017d6..681b449145 100644 --- a/gdb/f-typeprint.c +++ b/gdb/f-typeprint.c @@ -59,12 +59,8 @@ void f_type_print_base (struct type *, struct ui_file *, int, int); /* LEVEL is the depth to indent lines by. */ void -f_print_type (type, varstring, stream, show, level) - struct type *type; - char *varstring; - struct ui_file *stream; - int show; - int level; +f_print_type (struct type *type, char *varstring, struct ui_file *stream, + int show, int level) { register enum type_code code; int demangled_args; @@ -103,11 +99,8 @@ f_print_type (type, varstring, stream, show, level) SHOW is always zero on recursive calls. */ void -f_type_print_varspec_prefix (type, stream, show, passed_a_ptr) - struct type *type; - struct ui_file *stream; - int show; - int passed_a_ptr; +f_type_print_varspec_prefix (struct type *type, struct ui_file *stream, + int show, int passed_a_ptr) { if (type == 0) return; @@ -161,9 +154,7 @@ f_type_print_varspec_prefix (type, stream, show, passed_a_ptr) #if 0 /* Currently unused */ static void -f_type_print_args (type, stream) - struct type *type; - struct ui_file *stream; +f_type_print_args (struct type *type, struct ui_file *stream) { int i; struct type **args; @@ -201,12 +192,8 @@ f_type_print_args (type, stream) Args work like c_type_print_varspec_prefix. */ static void -f_type_print_varspec_suffix (type, stream, show, passed_a_ptr, demangled_args) - struct type *type; - struct ui_file *stream; - int show; - int passed_a_ptr; - int demangled_args; +f_type_print_varspec_suffix (struct type *type, struct ui_file *stream, + int show, int passed_a_ptr, int demangled_args) { int upper_bound, lower_bound; int lower_bound_was_default = 0; @@ -312,9 +299,7 @@ f_type_print_varspec_suffix (type, stream, show, passed_a_ptr, demangled_args) } static void -print_equivalent_f77_float_type (type, stream) - struct type *type; - struct ui_file *stream; +print_equivalent_f77_float_type (struct type *type, struct ui_file *stream) { /* Override type name "float" and make it the appropriate real. XLC stupidly outputs -12 as a type @@ -337,11 +322,8 @@ print_equivalent_f77_float_type (type, stream) We increase it for some recursive calls. */ void -f_type_print_base (type, stream, show, level) - struct type *type; - struct ui_file *stream; - int show; - int level; +f_type_print_base (struct type *type, struct ui_file *stream, int show, + int level) { int retcode; int upper_bound; |