tree.c (build_function_type_list): Work correctly if there are no arguments.
* tree.c (build_function_type_list): Work correctly if there are no arguments. From-SVN: r94878
This commit is contained in:
parent
f4f41b4e37
commit
f6254da445
@ -1,3 +1,8 @@
|
||||
2005-02-11 Ian Lance Taylor <ian@airs.com>
|
||||
|
||||
* tree.c (build_function_type_list): Work correctly if there are
|
||||
no arguments.
|
||||
|
||||
2005-02-11 Ulrich Weigand <uweigand@de.ibm.com>
|
||||
|
||||
* config/s390/s390.md ("*cmpdi_cct", "*cmpsi_cct", "*cmpdi_ccs",
|
||||
|
11
gcc/tree.c
11
gcc/tree.c
@ -4538,9 +4538,14 @@ build_function_type_list (tree return_type, ...)
|
||||
for (args = NULL_TREE; t != NULL_TREE; t = va_arg (p, tree))
|
||||
args = tree_cons (NULL_TREE, t, args);
|
||||
|
||||
last = args;
|
||||
args = nreverse (args);
|
||||
TREE_CHAIN (last) = void_list_node;
|
||||
if (args == NULL_TREE)
|
||||
args = void_list_node;
|
||||
else
|
||||
{
|
||||
last = args;
|
||||
args = nreverse (args);
|
||||
TREE_CHAIN (last) = void_list_node;
|
||||
}
|
||||
args = build_function_type (return_type, args);
|
||||
|
||||
va_end (p);
|
||||
|
Loading…
x
Reference in New Issue
Block a user