procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

utils.c (handle_type_generic_attribute): Adjust to accept fixed arguments before an elipsis.

Browse source 
* utils.c (handle_type_generic_attribute): Adjust to accept
	fixed arguments before an elipsis.

From-SVN: r135797
This commit is contained in:
Eric Botcazou 2008-05-23 10:36:37 +00:00 • committed by Eric Botcazou
parent 19f6f5a42c
commit 3fda325236
2 changed files with 16 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/ada/ChangeLog
View file

@ -1,3 +1,8 @@
2008-05-23 Eric Botcazou <ebotcazou@adacore.com>
* utils.c (handle_type_generic_attribute): Adjust to accept
fixed arguments before an elipsis.
2008-05-21 Thomas Quinot <quinot@adacore.com>
* g-sothco.ads, g-sothco.adb: New files.

13
gcc/ada/utils.c
View file

@ -4712,8 +4712,17 @@ handle_type_generic_attribute (tree *node, tree ARG_UNUSED (name),
tree ARG_UNUSED (args), int ARG_UNUSED (flags),
bool * ARG_UNUSED (no_add_attrs))
{
/* Ensure we have a function type, with no arguments. */
gcc_assert (TREE_CODE (*node) == FUNCTION_TYPE && ! TYPE_ARG_TYPES (*node));
tree params;
/* Ensure we have a function type. */
gcc_assert (TREE_CODE (*node) == FUNCTION_TYPE);
params = TYPE_ARG_TYPES (*node);
while (params && ! VOID_TYPE_P (TREE_VALUE (params)))
params = TREE_CHAIN (params);
/* Ensure we have a variadic function. */
gcc_assert (!params);
return NULL_TREE;
}