From eabf2b44483427d54be93ae7628065aa08c4a1e6 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Tue, 28 May 2019 07:21:07 +0000 Subject: decl.c (intrin_arglists_compatible_p): Do not return false if the internal builtin uses a variable list. * gcc-interface/decl.c (intrin_arglists_compatible_p): Do not return false if the internal builtin uses a variable list. From-SVN: r271679 --- gcc/ada/gcc-interface/decl.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'gcc/ada/gcc-interface/decl.c') diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c index ed015ba..9082d44 100644 --- a/gcc/ada/gcc-interface/decl.c +++ b/gcc/ada/gcc-interface/decl.c @@ -9174,9 +9174,9 @@ intrin_arglists_compatible_p (intrin_binding_t * inb) if (!ada_type && !btin_type) break; - /* If one list is shorter than the other, they fail to match. */ - if (!ada_type || !btin_type) - return false; + /* If the internal builtin uses a variable list, accept anything. */ + if (!btin_type) + break; /* If we're done with the Ada args and not with the internal builtin args, or the other way around, complain. */ -- cgit v1.1