137 lines
4.8 KiB
Diff
137 lines
4.8 KiB
Diff
http://sourceware.org/ml/gdb-patches/2012-08/msg00562.html
|
|
Subject: [PATCH] Expand fortran array bounds sizes to LONGEST
|
|
|
|
|
|
--MP_/90J7bck2fqDySEX9JkZtaqL
|
|
Content-Type: text/plain; charset=US-ASCII
|
|
Content-Transfer-Encoding: 7bit
|
|
Content-Disposition: inline
|
|
|
|
Hi,
|
|
|
|
Range bounds for a gdb type can have LONGEST values for low and high
|
|
bounds. Fortran range bounds functions however use only int. The larger
|
|
ranges don't compile by default on gcc, but it is possible to override
|
|
the check in the compiler by using -fno-range-check. As a result, this
|
|
check is necessary so that we don't print junk in case of an overflow.
|
|
|
|
Attached patch does this expansion and also includes a test case that
|
|
verifies that the problem is fixed. I have also verified on x86_64 that
|
|
this patch does not cause any regressions.
|
|
|
|
Regards,
|
|
Siddhesh
|
|
|
|
gdb/ChangeLog:
|
|
|
|
* f-lang.h (f77_get_upperbound): Return LONGEST.
|
|
(f77_get_lowerbound): Likewise.
|
|
* f-typeprint.c (f_type_print_varspec_suffix): Expand
|
|
UPPER_BOUND and LOWER_BOUND to LONGEST. Use plongest to format
|
|
print them.
|
|
(f_type_print_base): Expand UPPER_BOUND to LONGEST. Use
|
|
plongest to format print it.
|
|
* f-valprint.c (f77_get_lowerbound): Return LONGEST.
|
|
(f77_get_upperbound): Likewise.
|
|
(f77_get_dynamic_length_of_aggregate): Expand UPPER_BOUND,
|
|
LOWER_BOUND to LONGEST.
|
|
(f77_create_arrayprint_offset_tbl): Likewise.
|
|
|
|
testsuite/ChangeLog:
|
|
|
|
* gdb.fortran/array-bounds.exp: New test case.
|
|
* gdb.fortran/array-bounds.f: New test case.
|
|
|
|
--MP_/90J7bck2fqDySEX9JkZtaqL
|
|
Content-Type: text/x-patch
|
|
Content-Transfer-Encoding: 7bit
|
|
Content-Disposition: attachment; filename=f77-bounds.patch
|
|
|
|
Index: gdb-7.8.50.20141228/gdb/f-lang.h
|
|
===================================================================
|
|
--- gdb-7.8.50.20141228.orig/gdb/f-lang.h 2015-01-06 22:46:31.620852996 +0100
|
|
+++ gdb-7.8.50.20141228/gdb/f-lang.h 2015-01-06 22:46:34.190865466 +0100
|
|
@@ -62,9 +62,9 @@ struct common_block
|
|
struct symbol *contents[1];
|
|
};
|
|
|
|
-extern int f77_get_upperbound (struct type *);
|
|
+extern LONGEST f77_get_upperbound (struct type *);
|
|
|
|
-extern int f77_get_lowerbound (struct type *);
|
|
+extern LONGEST f77_get_lowerbound (struct type *);
|
|
|
|
extern void f77_get_dynamic_array_length (struct type *);
|
|
|
|
Index: gdb-7.8.50.20141228/gdb/f-typeprint.c
|
|
===================================================================
|
|
--- gdb-7.8.50.20141228.orig/gdb/f-typeprint.c 2015-01-06 22:46:31.621853001 +0100
|
|
+++ gdb-7.8.50.20141228/gdb/f-typeprint.c 2015-01-06 22:47:03.731008798 +0100
|
|
@@ -158,7 +158,7 @@ f_type_print_varspec_suffix (struct type
|
|
int show, int passed_a_ptr, int demangled_args,
|
|
int arrayprint_recurse_level)
|
|
{
|
|
- int upper_bound, lower_bound;
|
|
+ LONGEST upper_bound, lower_bound;
|
|
|
|
/* No static variables are permitted as an error call may occur during
|
|
execution of this function. */
|
|
@@ -192,7 +192,7 @@ f_type_print_varspec_suffix (struct type
|
|
|
|
lower_bound = f77_get_lowerbound (type);
|
|
if (lower_bound != 1) /* Not the default. */
|
|
- fprintf_filtered (stream, "%d:", lower_bound);
|
|
+ fprintf_filtered (stream, "%s:", plongest (lower_bound));
|
|
|
|
/* Make sure that, if we have an assumed size array, we
|
|
print out a warning and print the upperbound as '*'. */
|
|
@@ -202,7 +202,7 @@ f_type_print_varspec_suffix (struct type
|
|
else
|
|
{
|
|
upper_bound = f77_get_upperbound (type);
|
|
- fprintf_filtered (stream, "%d", upper_bound);
|
|
+ fprintf_filtered (stream, "%s", plongest (upper_bound));
|
|
}
|
|
|
|
if (TYPE_CODE (TYPE_TARGET_TYPE (type)) != TYPE_CODE_ARRAY)
|
|
@@ -271,7 +271,7 @@ void
|
|
f_type_print_base (struct type *type, struct ui_file *stream, int show,
|
|
int level)
|
|
{
|
|
- int upper_bound;
|
|
+ LONGEST upper_bound;
|
|
int index;
|
|
|
|
QUIT;
|
|
@@ -353,7 +353,7 @@ f_type_print_base (struct type *type, st
|
|
else
|
|
{
|
|
upper_bound = f77_get_upperbound (type);
|
|
- fprintf_filtered (stream, "character*%d", upper_bound);
|
|
+ fprintf_filtered (stream, "character*%s", plongest (upper_bound));
|
|
}
|
|
break;
|
|
|
|
Index: gdb-7.8.50.20141228/gdb/f-valprint.c
|
|
===================================================================
|
|
--- gdb-7.8.50.20141228.orig/gdb/f-valprint.c 2015-01-06 22:46:31.621853001 +0100
|
|
+++ gdb-7.8.50.20141228/gdb/f-valprint.c 2015-01-06 22:46:34.191865471 +0100
|
|
@@ -43,7 +43,7 @@ LONGEST f77_array_offset_tbl[MAX_FORTRAN
|
|
/* Array which holds offsets to be applied to get a row's elements
|
|
for a given array. Array also holds the size of each subarray. */
|
|
|
|
-int
|
|
+LONGEST
|
|
f77_get_lowerbound (struct type *type)
|
|
{
|
|
if (TYPE_ARRAY_LOWER_BOUND_IS_UNDEFINED (type))
|
|
@@ -52,7 +52,7 @@ f77_get_lowerbound (struct type *type)
|
|
return TYPE_ARRAY_LOWER_BOUND_VALUE (type);
|
|
}
|
|
|
|
-int
|
|
+LONGEST
|
|
f77_get_upperbound (struct type *type)
|
|
{
|
|
if (TYPE_ARRAY_UPPER_BOUND_IS_UNDEFINED (type))
|