OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

dbxout.c (output_used_types_helper): Push queued types on a VEC.

Browse Source 
* dbxout.c (output_used_types_helper): Push queued types
	on a VEC.
	(output_types_sort): New.
	(output_used_types): Collect used types on a VEC and sort them
	before emission.

From-SVN: r115735
This commit is contained in:
Daniel Jacobowitz 2006-07-25 12:31:33 +00:00 committed by Daniel Jacobowitz
parent 8d1171cbcb
commit 2daec0f085
2 changed files with 50 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/ChangeLog
View File

@ -1,3 +1,11 @@
2006-07-25 Daniel Jacobowitz <dan@codesourcery.com>
* dbxout.c (output_used_types_helper): Push queued types
on a VEC.
(output_types_sort): New.
(output_used_types): Collect used types on a VEC and sort them
before emission.
2006-07-24 Richard Guenther <rguenther@suse.de>
PR middle-end/28463

46
gcc/dbxout.c
View File

@ -2373,9 +2373,10 @@ dbxout_expand_expr (tree expr)
used types hash to be output. */
static int
output_used_types_helper (void **slot, void *data ATTRIBUTE_UNUSED)
output_used_types_helper (void **slot, void *data)
{
tree type = *slot;
VEC(tree, heap) **types_p = data;
if ((TREE_CODE (type) == RECORD_TYPE
|| TREE_CODE (type) == UNION_TYPE
@ -2384,21 +2385,58 @@ output_used_types_helper (void **slot, void *data ATTRIBUTE_UNUSED)
&& TYPE_STUB_DECL (type)
&& DECL_P (TYPE_STUB_DECL (type))
&& ! DECL_IGNORED_P (TYPE_STUB_DECL (type)))
debug_queue_symbol (TYPE_STUB_DECL (type));
VEC_quick_push (tree, *types_p, TYPE_STUB_DECL (type));
else if (TYPE_NAME (type)
&& TREE_CODE (TYPE_NAME (type)) == TYPE_DECL)
debug_queue_symbol (TYPE_NAME (type));
VEC_quick_push (tree, *types_p, TYPE_NAME (type));
return 1;
}
static int
output_types_sort (const void *pa, const void *pb)
{
const tree lhs = *((const tree *)pa);
const tree rhs = *((const tree *)pb);
if (TYPE_P (lhs))
{
if (TYPE_P (rhs))
return TYPE_UID (lhs) - TYPE_UID (rhs);
else
return 1;
}
else
{
if (TYPE_P (rhs))
return -1;
else
return DECL_UID (lhs) - DECL_UID (rhs);
}
}
/* Force all types used by this function to be output in debug
information. */
static void
output_used_types (void)
{
if (cfun && cfun->used_types_hash)
htab_traverse (cfun->used_types_hash, output_used_types_helper, NULL);
{
VEC(tree, heap) *types;
int i;
tree type;
types = VEC_alloc (tree, heap, htab_elements (cfun->used_types_hash));
htab_traverse (cfun->used_types_hash, output_used_types_helper, &types);
/* Sort by UID to prevent dependence on hash table ordering. */
qsort (VEC_address (tree, types), VEC_length (tree, types),
sizeof (tree), output_types_sort);
for (i = 0; VEC_iterate (tree, types, i, type); i++)
debug_queue_symbol (type);
}
}
/* Output a .stabs for the symbol defined by DECL,