OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* trans-decl.c (gfc_build_qualified_array): Build non-flat
[pf3gnuchains/gcc-fork.git]
/
gcc
/
dwarf2out.c
diff --git
a/gcc/dwarf2out.c
b/gcc/dwarf2out.c
index
cc27e39
..
4c6364c
100644
(file)
--- a/
gcc/dwarf2out.c
+++ b/
gcc/dwarf2out.c
@@
-11934,6
+11934,7
@@
add_bound_info (dw_die_ref subrange_die, enum dwarf_attribute bound_attr, tree b
case RESULT_DECL:
{
dw_die_ref decl_die = lookup_decl_die (bound);
case RESULT_DECL:
{
dw_die_ref decl_die = lookup_decl_die (bound);
+ dw_loc_descr_ref loc;
/* ??? Can this happen, or should the variable have been bound
first? Probably it can, since I imagine that we try to create
/* ??? Can this happen, or should the variable have been bound
first? Probably it can, since I imagine that we try to create
@@
-11942,6
+11943,11
@@
add_bound_info (dw_die_ref subrange_die, enum dwarf_attribute bound_attr, tree b
later parameter. */
if (decl_die != NULL)
add_AT_die_ref (subrange_die, bound_attr, decl_die);
later parameter. */
if (decl_die != NULL)
add_AT_die_ref (subrange_die, bound_attr, decl_die);
+ else
+ {
+ loc = loc_descriptor_from_tree_1 (bound, 0);
+ add_AT_location_description (subrange_die, bound_attr, loc);
+ }
break;
}
break;
}