decl.c (compatible_signatures_p): New function.

	* decl.c (compatible_signatures_p): New function. The intended purpose
	is to check if two function signatures for a call-site and a callee are
	compatible enough for the call to be valid. The underlying purpose is
	to check if a call to a mapped builtin is using the right interface.
	The current code actually does not check antyhing - this a placeholder
	for future refinements.
	(gnat_to_gnu_entity) <E_Subprogram_Call>: Add preliminary bits to handle
	builtin calls for convention Intrinsic.

	* gigi.h (builtin_decl_for): Declare (new function).

	* utils.c (gnat_install_builtins): Install the target specific builtins.
	(builtin_decl_for): New function, provide a dummy body for now.

From-SVN: r92833

1 files changed, 14 insertions, 0 deletions

diff --git a/gcc/ada/utils.c b/gcc/ada/utils.c
index 7be9d97..b92fe4b 100644
--- a/gcc/ada/utils.c
+++ b/gcc/ada/utils.c
@@ -509,6 +509,9 @@ gnat_install_builtins ()
   ftype = build_function_type (ptr_void_type_node, tmp);
   gnat_define_builtin ("__builtin_alloca", ftype, BUILT_IN_ALLOCA,
 		       "alloca", false);
+
+  /* Target specific builtins, such as the AltiVec family on ppc.  */
+  targetm.init_builtins ();
 }
 
 /* Create the predefined scalar types such as `integer_type_node' needed
@@ -3305,6 +3308,17 @@ unchecked_convert (tree type, tree expr, bool notrunc_p)
 
   return expr;
 }
+
+/* Search the chain of currently reachable declarations for a builtin
+   FUNCTION_DECL node corresponding to function NAME (an IDENTIFIER_NODE).
+   Return the first node found, if any, or NULL_TREE otherwise.  */
+tree
+builtin_decl_for (tree name __attribute__ ((unused)))
+{
+  /* ??? not clear yet how to implement this function in tree-ssa, so
+     return NULL_TREE for now */
+  return NULL_TREE;
+}
 
 #include "gt-ada-utils.h"
 #include "gtype-ada.h"