diff options
Diffstat (limited to 'gcc/ada/utils.c')
| -rw-r--r-- | gcc/ada/utils.c | 14 |
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" |