mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2024-12-30 21:06:03 +08:00
Code Issues Packages Projects Releases Wiki Activity

builtins.c (expand_builtin_va_arg): Cope with an array-type va_list decomposing to pointer-type.

Browse Source 
* builtins.c (expand_builtin_va_arg): Cope with an array-type
        va_list decomposing to pointer-type.
        * rs6000.c (rs6000_va_start) Unwrap the ARRAY_TYPE to get at fields.
        (rs6000_va_arg): Likewise.

From-SVN: r29276
This commit is contained in:
Richard Henderson 1999-09-10 14:06:36 -07:00 committed by Richard Henderson
parent 007598f98b
commit 973a648b87
3 changed files with 31 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/ChangeLog
View File

@ -1,3 +1,10 @@
Fri Sep 10 14:04:07 1999 Richard Henderson <rth@cygnus.com>
* builtins.c (expand_builtin_va_arg): Cope with an array-type
va_list decomposing to pointer-type.
* rs6000.c (rs6000_va_start) Unwrap the ARRAY_TYPE to get at fields.
(rs6000_va_arg): Likewise.
Fri Sep 10 13:21:21 1999 Jim Wilson <wilson@cygnus.com>
* except.c (start_dynamic_handler): Compute size using

25
gcc/builtins.c
View File

@ -1974,14 +1974,33 @@ expand_builtin_va_arg (valist, type)
tree valist, type;
{
rtx addr, result;
tree promoted_type;
tree promoted_type, want_va_type, have_va_type;
if (TYPE_MAIN_VARIANT (TREE_TYPE (valist))
!= TYPE_MAIN_VARIANT (va_list_type_node))
/* Verify that valist is of the proper type. */
want_va_type = va_list_type_node;
have_va_type = TREE_TYPE (valist);
if (TREE_CODE (want_va_type) == ARRAY_TYPE)
{
/* If va_list is an array type, the argument may have decayed
to a pointer type, e.g. by being passed to another function.
In that case, unwrap both types so that we can compare the
underlying records. */
if (TREE_CODE (have_va_type) == ARRAY_TYPE
|| TREE_CODE (have_va_type) == POINTER_TYPE)
{
want_va_type = TREE_TYPE (want_va_type);
have_va_type = TREE_TYPE (have_va_type);
}
}
if (TYPE_MAIN_VARIANT (want_va_type) != TYPE_MAIN_VARIANT (have_va_type))
{
error ("first argument to `va_arg' not of type `va_list'");
addr = const0_rtx;
}
/* Generate a diagnostic for requesting data of a type that cannot
be passed through `...' due to type promotion at the call site. */
else if ((promoted_type = (*lang_type_promotes_to) (type)) != NULL_TREE)
{
const char *name = "<anonymous type>", *pname;

4
gcc/config/rs6000/rs6000.c
View File

@ -1828,7 +1828,7 @@ rs6000_va_start (stdarg_p, valist, nextarg)
return;
}
f_gpr = TYPE_FIELDS (va_list_type_node);
f_gpr = TYPE_FIELDS (TREE_TYPE (va_list_type_node));
f_fpr = TREE_CHAIN (f_gpr);
f_ovf = TREE_CHAIN (f_fpr);
f_sav = TREE_CHAIN (f_ovf);
@ -1888,7 +1888,7 @@ rs6000_va_arg (valist, type)
if (DEFAULT_ABI != ABI_V4 && DEFAULT_ABI != ABI_SOLARIS)
return std_expand_builtin_va_arg (valist, type);
f_gpr = TYPE_FIELDS (va_list_type_node);
f_gpr = TYPE_FIELDS (TREE_TYPE (va_list_type_node));
f_fpr = TREE_CHAIN (f_gpr);
f_ovf = TREE_CHAIN (f_fpr);
f_sav = TREE_CHAIN (f_ovf);