Patchwork [cilkplus-merge] rewrite __sec_reduce* builtin handling to use <.def> infrastructure

login
register
mail settings
Submitter Aldy Hernandez
Date March 27, 2013, 9:53 p.m.
Message ID <51536A45.6020506@redhat.com>
Download mbox | patch
Permalink /patch/231846/
State New
Headers show

Comments

Aldy Hernandez - March 27, 2013, 9:53 p.m.
Hi Joseph.

As you have requested, I have rewritten the __sec_reduce* builtins to 
use the built-in <.def> infrastructure.  You mentioned that the 
__sec_implicit_index built-in may have to be rewritten as a keyword, 
provided that relevant changes are made to the specification.  For now, 
I have left this as a builtin, but as soon as the spec is resolved, I 
can rewrite this particular one as a keyword.

I have cleaned up a lot of the __sec_reduce* handling as well and I even 
got rid of the REDUCE_* enums since we can just use the BUILT_IN_* enums.

Is this OK for the branch?  I'd like to get a nod of approval before 
committing to the branch, as to aid in review, but if you prefer that I 
just commit at will, and then post a big "cilk plus array notation" 
patch to the list, I can do this instead.  It just seems easier to fix 
stuff incrementally, as suggestions and fixes are piling up for both 
Balaji and myself.

Thanks.
Aldy
commit 76d3fa024e2d4fdc0f295f7ccc567455ac022a60
Author: Aldy Hernandez <aldyh@redhat.com>
Date:   Wed Mar 27 09:43:38 2013 -0500

    Rewrite __sec_reduce* built-in handling to use the .def infrastructure.
Joseph S. Myers - March 27, 2013, 10:10 p.m.
On Wed, 27 Mar 2013, Aldy Hernandez wrote:

> Is this OK for the branch?  I'd like to get a nod of approval before
> committing to the branch, as to aid in review, but if you prefer that I just
> commit at will, and then post a big "cilk plus array notation" patch to the
> list, I can do this instead.  It just seems easier to fix stuff incrementally,
> as suggestions and fixes are piling up for both Balaji and myself.

I'm expecting the two of you to deal with reviews for the branch and then 
repost a big patch against trunk once you think all the comments have been 
addressed.  But this looks like the sort of thing I was expecting for 
cleaning up the built-in function handling.
Aldy Hernandez - March 27, 2013, 10:58 p.m.
On 03/27/13 17:10, Joseph S. Myers wrote:
> On Wed, 27 Mar 2013, Aldy Hernandez wrote:
>
>> Is this OK for the branch?  I'd like to get a nod of approval before
>> committing to the branch, as to aid in review, but if you prefer that I just
>> commit at will, and then post a big "cilk plus array notation" patch to the
>> list, I can do this instead.  It just seems easier to fix stuff incrementally,
>> as suggestions and fixes are piling up for both Balaji and myself.
>
> I'm expecting the two of you to deal with reviews for the branch and then
> repost a big patch against trunk once you think all the comments have been
> addressed.  But this looks like the sort of thing I was expecting for
> cleaning up the built-in function handling.
>

Ah, ok.  Will do.

Thanks.

Patch

diff --git a/gcc/ChangeLog.cilkplus b/gcc/ChangeLog.cilkplus
index a0ecc76..bf08713 100644
--- a/gcc/ChangeLog.cilkplus
+++ b/gcc/ChangeLog.cilkplus
@@ -10,3 +10,8 @@ 
 	c-family/array-notation-common.o.
 	* tree-pretty-print.c (dump_generic_node): Add case for
 	ARRAY_NOTATION_REF.
+	(BUILTINS_DEF): Depend on cilkplus.def.
+	* builtins.def: Include cilkplus.def.
+	Define DEF_CILKPLUS_BUILTIN.
+	* builtin-types.def: Define BT_FN_INT_PTR_PTR_PTR.
+	* cilkplus.def: New file.
diff --git a/gcc/Makefile.in b/gcc/Makefile.in
index 11ef491..74a4136 100644
--- a/gcc/Makefile.in
+++ b/gcc/Makefile.in
@@ -861,7 +861,7 @@  RTL_ERROR_H = rtl-error.h $(RTL_H) $(DIAGNOSTIC_CORE_H)
 READ_MD_H = $(OBSTACK_H) $(HASHTAB_H) read-md.h
 PARAMS_H = params.h params.def
 BUILTINS_DEF = builtins.def sync-builtins.def omp-builtins.def \
-	gtm-builtins.def sanitizer.def
+	gtm-builtins.def sanitizer.def cilkplus.def
 INTERNAL_FN_DEF = internal-fn.def
 INTERNAL_FN_H = internal-fn.h $(INTERNAL_FN_DEF)
 TREE_H = coretypes.h tree.h all-tree.def tree.def c-family/c-common.def \
diff --git a/gcc/builtin-types.def b/gcc/builtin-types.def
index 3ef2d1b..2634ecc 100644
--- a/gcc/builtin-types.def
+++ b/gcc/builtin-types.def
@@ -368,6 +368,8 @@  DEF_FUNCTION_TYPE_3 (BT_FN_INT_CONST_STRING_CONST_STRING_VALIST_ARG,
 		     BT_INT, BT_CONST_STRING, BT_CONST_STRING, BT_VALIST_ARG)
 DEF_FUNCTION_TYPE_3 (BT_FN_INT_FILEPTR_CONST_STRING_VALIST_ARG,
 		     BT_INT, BT_FILEPTR, BT_CONST_STRING, BT_VALIST_ARG)
+DEF_FUNCTION_TYPE_3 (BT_FN_INT_PTR_PTR_PTR,
+		     BT_INT, BT_PTR, BT_PTR, BT_PTR)
 DEF_FUNCTION_TYPE_3 (BT_FN_STRING_CONST_STRING_CONST_STRING_INT,
 		     BT_STRING, BT_CONST_STRING, BT_CONST_STRING, BT_INT)
 DEF_FUNCTION_TYPE_3 (BT_FN_FLOAT_FLOAT_FLOAT_FLOAT,
diff --git a/gcc/builtins.def b/gcc/builtins.def
index 4f378fa..09303bc 100644
--- a/gcc/builtins.def
+++ b/gcc/builtins.def
@@ -157,6 +157,11 @@  along with GCC; see the file COPYING3.  If not see
 	       true, true, true, ATTRS, true, \
 	       (flag_asan || flag_tsan))
 
+#undef DEF_CILKPLUS_BUILTIN
+#define DEF_CILKPLUS_BUILTIN(ENUM, NAME, TYPE, ATTRS) \
+  DEF_BUILTIN (ENUM, NAME, BUILT_IN_NORMAL, TYPE, TYPE, \
+  	       false, false, true, ATTRS, false, flag_enable_cilkplus)
+
 /* Define an attribute list for math functions that are normally
    "impure" because some of them may write into global memory for
    `errno'.  If !flag_errno_math they are instead "const".  */
@@ -837,3 +842,5 @@  DEF_GCC_BUILTIN (BUILT_IN_LINE, "LINE", BT_FN_INT, ATTR_NOTHROW_LEAF_LIST)
 /* Sanitizer builtins. */
 #include "sanitizer.def"
 
+/* Cilk Plus builtins.  */
+#include "cilkplus.def"
diff --git a/gcc/c-family/ChangeLog.cilkplus b/gcc/c-family/ChangeLog.cilkplus
index 6591fd1..25f5ec5 100644
--- a/gcc/c-family/ChangeLog.cilkplus
+++ b/gcc/c-family/ChangeLog.cilkplus
@@ -1,21 +1,17 @@ 
 2013-03-20  Balaji V. Iyer  <balaji.v.iyer@intel.com>
 
-	* c-common.c (c_define_builtins): When cilkplus is enabled, the
-	function array_notation_init_builtins() is called.
-	(c_common_init_ts): Added ARRAY_NOTATION_REF as typed.
+	* c-common.c (c_common_init_ts): Added ARRAY_NOTATION_REF as typed.
 	* c-common.def (ARRAY_NOTATION_REF): New tree.
 	* c-common.h (build_array_notation_expr): New function declaration.
 	(build_array_notation_ref): Likewise.
 	(extract_sec_implicit_index_arg): New extern declaration.
 	(is_sec_implicit_index_fn): Likewise.
-	(array_notation_init_builtins): Likewise.
 	(ARRAY_NOTATION_CHECK): New define.
 	(ARRAY_NOTATION_ARRAY): Likewise.
 	(ARRAY_NOTATION_START): Likewise.
 	(ARRAY_NOTATION_LENGTH): Likewise.
 	(ARRAY_NOTATION_STRIDE): Likewise.
 	(ARRAY_NOTATION_TYPE): Likewise.
-	(array_notation_reduce_type): New enumerator.
 	* c-pretty-print.c (pp_c_postifix_expression): Added a new case for
 	ARRAY_NOTATION_REF.
 	* c.opt (flag_enable_cilkplus): New flag.
diff --git a/gcc/c-family/array-notation-common.c b/gcc/c-family/array-notation-common.c
index 7089c8e..646aa7c 100644
--- a/gcc/c-family/array-notation-common.c
+++ b/gcc/c-family/array-notation-common.c
@@ -31,7 +31,6 @@  along with GCC; see the file COPYING3.  If not see
 
 int extract_sec_implicit_index_arg (location_t, tree);
 bool is_sec_implicit_index_fn (tree);
-void array_notation_init_builtins (void);
 
 /* Mark the FNDECL as cold, meaning that the function specified by FNDECL is
    not run as is.  */
@@ -43,124 +42,19 @@  mark_cold (tree fndecl)
 					DECL_ATTRIBUTES (fndecl));
 }
 
-/* This function inititializes array notation specific builtin information.  */
-
-
-void
-array_notation_init_builtins (void)
-{
-  tree func_type = NULL_TREE;
-  tree new_func = NULL_TREE;
-  func_type = build_function_type_list (integer_type_node, ptr_type_node,
-					NULL_TREE);
-  new_func = build_fn_decl ("__sec_reduce_add", func_type);
-  mark_cold (new_func);
-  new_func = lang_hooks.decls.pushdecl (new_func);
-
-  func_type = build_function_type_list (integer_type_node, ptr_type_node,
-					NULL_TREE);
-  new_func = build_fn_decl ("__sec_reduce_mul", func_type);
-  mark_cold (new_func);
-  new_func = lang_hooks.decls.pushdecl (new_func);
-
-  func_type = build_function_type_list (integer_type_node, ptr_type_node,
-					NULL_TREE);
-  new_func = build_fn_decl ("__sec_reduce_all_zero", func_type);
-  mark_cold (new_func);
-  new_func = lang_hooks.decls.pushdecl (new_func);
-
-  func_type = build_function_type_list (integer_type_node, ptr_type_node,
-					NULL_TREE);
-  new_func = build_fn_decl ("__sec_reduce_any_zero", func_type);
-  mark_cold (new_func);
-  new_func = lang_hooks.decls.pushdecl (new_func);
-
-  func_type = build_function_type_list (integer_type_node, ptr_type_node,
-					NULL_TREE);
-  new_func = build_fn_decl ("__sec_reduce_max", func_type);
-  mark_cold (new_func);
-  new_func = lang_hooks.decls.pushdecl (new_func);
-  
-  func_type = build_function_type_list (integer_type_node, ptr_type_node,
-					NULL_TREE);
-  new_func = build_fn_decl ("__sec_reduce_min", func_type);
-  mark_cold (new_func);
-  new_func = lang_hooks.decls.pushdecl (new_func);
-
-  func_type = build_function_type_list (integer_type_node, ptr_type_node,
-					NULL_TREE);
-  new_func = build_fn_decl ("__sec_reduce_min_ind", func_type);
-  mark_cold (new_func);
-  new_func = lang_hooks.decls.pushdecl (new_func);
-
-  func_type = build_function_type_list (integer_type_node, ptr_type_node,
-					NULL_TREE);
-  new_func = build_fn_decl ("__sec_reduce_max_ind", func_type);
-  mark_cold (new_func);
-  new_func = lang_hooks.decls.pushdecl (new_func);
-
-  func_type = build_function_type_list (integer_type_node, ptr_type_node,
-				       NULL_TREE);
-  new_func = build_fn_decl ("__sec_reduce_any_nonzero", func_type);
-  mark_cold (new_func);
-  new_func = lang_hooks.decls.pushdecl (new_func);
-
-  func_type = build_function_type_list (integer_type_node, ptr_type_node,
-					NULL_TREE);
-  new_func = build_fn_decl ("__sec_reduce_all_nonzero", func_type);
-  mark_cold (new_func);
-  new_func = lang_hooks.decls.pushdecl (new_func);
-  
-  func_type = build_function_type_list (integer_type_node, integer_type_node,
-					NULL_TREE);
-  new_func = build_fn_decl ("__sec_implicit_index", func_type);
-  mark_cold (new_func);
-  new_func = lang_hooks.decls.pushdecl (new_func);
-
-  func_type = build_function_type_list (integer_type_node, ptr_type_node,
-					ptr_type_node, ptr_type_node,
-					NULL_TREE);
-  new_func = build_fn_decl ("__sec_reduce", func_type);
-  new_func = lang_hooks.decls.pushdecl (new_func);
-
-  func_type = build_function_type_list (ptr_type_node, ptr_type_node,
-					ptr_type_node, ptr_type_node,
-					NULL_TREE);
-  new_func = build_fn_decl ("__sec_reduce_mutating", func_type);
-  new_func = lang_hooks.decls.pushdecl (new_func);
-  return;
-}
-
-/* Returns true if the function call specified in FUNC_NAME is
+/* Returns true if the function call in FNDECL is
    __sec_implicit_index.  */
 
 bool
-is_sec_implicit_index_fn (tree func_name)
+is_sec_implicit_index_fn (tree fndecl)
 {
-  const char *function_name = NULL;
-
-  if (!func_name)
-    return false;
-
-  if (TREE_CODE (func_name) == FUNCTION_DECL)
-    func_name = DECL_NAME (func_name);
-  
-  if (TREE_CODE (func_name) == IDENTIFIER_NODE)
-    function_name = IDENTIFIER_POINTER (func_name);
-  else if (TREE_CODE (func_name) == ADDR_EXPR)
-    {
-      func_name = TREE_OPERAND (func_name, 0);
-      if (TREE_CODE (func_name) == FUNCTION_DECL)
-	if (DECL_NAME (func_name))
-	  function_name = IDENTIFIER_POINTER (DECL_NAME (func_name));
-    }
+  if (TREE_CODE (fndecl) == ADDR_EXPR)
+    fndecl = TREE_OPERAND (fndecl, 0);
 
-  if (!function_name)
-    return false;
-  else if (!strcmp (function_name, "__sec_implicit_index"))
-    return true;
-  else
-    return false;
+  return
+    (TREE_CODE (fndecl) == FUNCTION_DECL
+     && DECL_BUILT_IN_CLASS (fndecl) == BUILT_IN_NORMAL
+     && DECL_FUNCTION_CODE (fndecl) == BUILT_IN_CILKPLUS_SEC_IMPLICIT_INDEX);
 }
 
 /* Returns the first and only argument for FN, which should be a
diff --git a/gcc/c-family/c-common.c b/gcc/c-family/c-common.c
index e818bf3..93f4e30 100644
--- a/gcc/c-family/c-common.c
+++ b/gcc/c-family/c-common.c
@@ -5163,9 +5163,6 @@  c_define_builtins (tree va_list_ref_type_node, tree va_list_arg_type_node)
 #include "builtins.def"
 #undef DEF_BUILTIN
 
-  /* Initialize builtin functions for Cilk Plus.  */
-  if (flag_enable_cilkplus)
-    array_notation_init_builtins ();
   targetm.init_builtins ();
 
   build_common_builtin_nodes ();
diff --git a/gcc/c-family/c-common.h b/gcc/c-family/c-common.h
index edcff2e..bb80305 100644
--- a/gcc/c-family/c-common.h
+++ b/gcc/c-family/c-common.h
@@ -1152,26 +1152,7 @@  extern enum stv_conv scalar_to_vector (location_t loc, enum tree_code code,
 #define ARRAY_NOTATION_TYPE(NODE) \
   TREE_OPERAND (ARRAY_NOTATION_CHECK (NODE), 4)
 
-/* Holds to type of the reduction functions used in Array notations, that is
-   part of the Cilk Plus language extensions.  */
-typedef enum array_notation_reduce_type {
-  REDUCE_UNKNOWN = 0,
-  REDUCE_ADD,
-  REDUCE_MUL,
-  REDUCE_ALL_ZEROS,
-  REDUCE_ALL_NONZEROS,
-  REDUCE_ANY_ZEROS,
-  REDUCE_ANY_NONZEROS,
-  REDUCE_MAX,
-  REDUCE_MIN,
-  REDUCE_MAX_INDEX,
-  REDUCE_MIN_INDEX,
-  REDUCE_CUSTOM,
-  REDUCE_MUTATING
-} an_reduce_type;
-
 extern int extract_sec_implicit_index_arg (location_t, tree);
 extern bool is_sec_implicit_index_fn (tree);
-extern void array_notation_init_builtins (void);
 
 #endif /* ! GCC_C_COMMON_H */
diff --git a/gcc/c/ChangeLog.cilkplus b/gcc/c/ChangeLog.cilkplus
index 7f62b0e..be8f1c6 100644
--- a/gcc/c/ChangeLog.cilkplus
+++ b/gcc/c/ChangeLog.cilkplus
@@ -38,3 +38,4 @@ 
 	them.
 	(c_parser_array_notation): New function.
 	* c-array-notation.c: New file.
+	* c-tree.h (is_cilkplus_reduce_builtin): Protoize.
diff --git a/gcc/c/c-array-notation.c b/gcc/c/c-array-notation.c
index a3e754a..eeb077e 100644
--- a/gcc/c/c-array-notation.c
+++ b/gcc/c/c-array-notation.c
@@ -38,7 +38,6 @@  void extract_array_notation_exprs (tree, bool, vec<tree, va_gc> **);
 tree fix_conditional_array_notations (tree);
 struct c_expr fix_array_notation_expr (location_t, enum tree_code,
 				       struct c_expr);
-bool is_builtin_array_notation_fn (tree func_name, an_reduce_type *type);
 static tree fix_builtin_array_notation_fn (tree an_builtin_fn, tree *new_var);
 bool contains_array_notation_expr (tree expr);
 tree expand_array_notation_exprs (tree t);
@@ -50,6 +49,39 @@  struct inv_list
   vec<tree, va_gc> *replacement;
 };
 
+/* Given an FNDECL or an ADDR_EXPR, return the corresponding
+   BUILT_IN_CILKPLUS_SEC_REDUCE_* being called.  If none, return
+   BUILT_IN_NONE.  */
+
+enum built_in_function
+is_cilkplus_reduce_builtin (tree fndecl)
+{
+  if (TREE_CODE (fndecl) == ADDR_EXPR)
+    fndecl = TREE_OPERAND (fndecl, 0);
+
+  if (TREE_CODE (fndecl) == FUNCTION_DECL
+      && DECL_BUILT_IN_CLASS (fndecl) == BUILT_IN_NORMAL)
+    switch (DECL_FUNCTION_CODE (fndecl))
+      {
+      case BUILT_IN_CILKPLUS_SEC_REDUCE_ADD:
+      case BUILT_IN_CILKPLUS_SEC_REDUCE_MUL:
+      case BUILT_IN_CILKPLUS_SEC_REDUCE_ALL_ZERO:
+      case BUILT_IN_CILKPLUS_SEC_REDUCE_ANY_ZERO:
+      case BUILT_IN_CILKPLUS_SEC_REDUCE_MAX:
+      case BUILT_IN_CILKPLUS_SEC_REDUCE_MIN:
+      case BUILT_IN_CILKPLUS_SEC_REDUCE_MIN_IND:
+      case BUILT_IN_CILKPLUS_SEC_REDUCE_MAX_IND:
+      case BUILT_IN_CILKPLUS_SEC_REDUCE_ANY_NONZERO:
+      case BUILT_IN_CILKPLUS_SEC_REDUCE_ALL_NONZERO:
+      case BUILT_IN_CILKPLUS_SEC_REDUCE:
+      case BUILT_IN_CILKPLUS_SEC_REDUCE_MUTATING:
+	return DECL_FUNCTION_CODE (fndecl);
+      default:
+	break;
+      }
+
+  return BUILT_IN_NONE;
+}
 
 /* Returns the rank of ARRAY through the *RANK.  The user can specify whether
    (s)he wants to step into array_notation-specific builtin functions
@@ -63,7 +95,7 @@  find_rank (tree array, bool ignore_builtin_fn, size_t *rank)
 {
   tree ii_tree;
   size_t current_rank = 0, ii = 0;
-  an_reduce_type dummy_type = REDUCE_UNKNOWN;
+
   if (!array)
     return;
   else if (TREE_CODE (array) == ARRAY_NOTATION_REF)
@@ -89,7 +121,7 @@  find_rank (tree array, bool ignore_builtin_fn, size_t *rank)
 	  tree func_name = CALL_EXPR_FN (array);
 	  if (TREE_CODE (func_name) == ADDR_EXPR)
 	    if (!ignore_builtin_fn)
-	      if (is_builtin_array_notation_fn (func_name, &dummy_type))
+	      if (is_cilkplus_reduce_builtin (func_name))
 		/* If it is a builtin function, then we know it returns a 
 		   scalar.  */
 		return;
@@ -121,7 +153,6 @@  extract_array_notation_exprs (tree node, bool ignore_builtin_fn,
 			      vec<tree, va_gc> **array_list)
 {
   size_t ii = 0;
-  an_reduce_type dummy_type = REDUCE_UNKNOWN;
   
   if (!node)
     return;
@@ -148,7 +179,7 @@  extract_array_notation_exprs (tree node, bool ignore_builtin_fn,
     }
   else if (TREE_CODE (node) == CALL_EXPR)
     {
-      if (is_builtin_array_notation_fn (CALL_EXPR_FN (node), &dummy_type))
+      if (is_cilkplus_reduce_builtin (CALL_EXPR_FN (node)))
 	{
 	  if (ignore_builtin_fn)
 	    return;
@@ -173,7 +204,6 @@  extract_array_notation_exprs (tree node, bool ignore_builtin_fn,
 	}
       else
 	gcc_unreachable (); /* We should not get here.  */
-	  
     } 
   else 
     for (ii = 0; ii < TREE_CODE_LENGTH (TREE_CODE (node)); ii++) 
@@ -198,7 +228,6 @@  replace_array_notations (tree *orig, bool ignore_builtin_fn,
 {
   size_t ii = 0;
   tree node = NULL_TREE, node_replacement = NULL_TREE;
-  an_reduce_type dummy_type = REDUCE_UNKNOWN;
   
   if (vec_safe_length (list) == 0 || !*orig)
     return;
@@ -221,7 +250,7 @@  replace_array_notations (tree *orig, bool ignore_builtin_fn,
     }
   else if (TREE_CODE (*orig) == CALL_EXPR)
     {
-      if (is_builtin_array_notation_fn (CALL_EXPR_FN (*orig), &dummy_type))
+      if (is_cilkplus_reduce_builtin (CALL_EXPR_FN (*orig)))
 	{
 	  if (!ignore_builtin_fn)
 	    {
@@ -1620,11 +1649,12 @@  fix_array_notation_expr (location_t location, enum tree_code code,
   return arg;
 }
 
-/* Replace array notation's built-in function passed in AN_BUILTIN_FN with
-   the appropriate loop and computation (all stored in variable LOOP of type
-   tree node).  The output of the function function is always a scalar and that
-   result is returned in *NEW_VAR.  *NEW_VAR is NULL_TREE if the function is
-   __sec_reduce_mutating.  */
+/* Given a CALL_EXPR to an array notation built-in function in
+   AN_BUILTIN_FN, replace the call with the appropriate loop and
+   computation.  Return the computation in *NEW_VAR.
+
+   The return value in *NEW_VAR will always be a scalar.  If the
+   builtin is __sec_reduce_mutating, *NEW_VAR is set to NULL_TREE.  */
 
 static tree
 fix_builtin_array_notation_fn (tree an_builtin_fn, tree *new_var)
@@ -1633,7 +1663,6 @@  fix_builtin_array_notation_fn (tree an_builtin_fn, tree *new_var)
   tree array_ind_value = NULL_TREE, new_no_ind, new_yes_ind, new_no_list;
   tree new_yes_list, new_cond_expr, new_var_init = NULL_TREE;
   tree new_exp_init = NULL_TREE;
-  an_reduce_type an_type = REDUCE_UNKNOWN;
   vec<tree, va_gc> *array_list = NULL, *array_operand = NULL;
   size_t list_size = 0, rank = 0, ii = 0, jj = 0;
   int s_jj = 0;
@@ -1645,12 +1674,13 @@  fix_builtin_array_notation_fn (tree an_builtin_fn, tree *new_var)
   bool **count_down, **array_vector;
   location_t location = UNKNOWN_LOCATION;
   
-  if (!is_builtin_array_notation_fn (CALL_EXPR_FN (an_builtin_fn), &an_type))
+  enum built_in_function an_type =
+    is_cilkplus_reduce_builtin (CALL_EXPR_FN (an_builtin_fn));
+  if (an_type == BUILT_IN_NONE)
     return NULL_TREE;
 
-  if (an_type != REDUCE_CUSTOM && an_type != REDUCE_MUTATING)
-    func_parm = CALL_EXPR_ARG (an_builtin_fn, 0);
-  else
+  if (an_type == BUILT_IN_CILKPLUS_SEC_REDUCE
+      || an_type == BUILT_IN_CILKPLUS_SEC_REDUCE_MUTATING)
     {
       call_fn = CALL_EXPR_ARG (an_builtin_fn, 2);
       while (TREE_CODE (call_fn) == CONVERT_EXPR
@@ -1664,6 +1694,8 @@  fix_builtin_array_notation_fn (tree an_builtin_fn, tree *new_var)
 	identity_value = TREE_OPERAND (identity_value, 0);
       func_parm = CALL_EXPR_ARG (an_builtin_fn, 1);
     }
+  else
+    func_parm = CALL_EXPR_ARG (an_builtin_fn, 0);
   
   while (TREE_CODE (func_parm) == CONVERT_EXPR
 	 || TREE_CODE (func_parm) == EXCESS_PRECISION_EXPR
@@ -1677,7 +1709,8 @@  fix_builtin_array_notation_fn (tree an_builtin_fn, tree *new_var)
   if (rank == 0)
     return an_builtin_fn;
   else if (rank > 1 
-	   && (an_type == REDUCE_MAX_INDEX  || an_type == REDUCE_MIN_INDEX))
+	   && (an_type == BUILT_IN_CILKPLUS_SEC_REDUCE_MAX_IND
+	       || an_type == BUILT_IN_CILKPLUS_SEC_REDUCE_MIN_IND))
     {
       error_at (location, "__sec_reduce_min_ind or __sec_reduce_max_ind cannot"
 		" have arrays with dimension greater than 1.");
@@ -1688,27 +1721,27 @@  fix_builtin_array_notation_fn (tree an_builtin_fn, tree *new_var)
   list_size = vec_safe_length (array_list);
   switch (an_type)
     {
-    case REDUCE_ADD:
-    case REDUCE_MUL:
-    case REDUCE_MAX:
-    case REDUCE_MIN:
+    case BUILT_IN_CILKPLUS_SEC_REDUCE_ADD:
+    case BUILT_IN_CILKPLUS_SEC_REDUCE_MUL:
+    case BUILT_IN_CILKPLUS_SEC_REDUCE_MAX:
+    case BUILT_IN_CILKPLUS_SEC_REDUCE_MIN:
       new_var_type = ARRAY_NOTATION_TYPE ((*array_list)[0]);
       break;
-    case REDUCE_ALL_ZEROS:
-    case REDUCE_ALL_NONZEROS:
-    case REDUCE_ANY_ZEROS:
-    case REDUCE_ANY_NONZEROS:
+    case BUILT_IN_CILKPLUS_SEC_REDUCE_ALL_ZERO:
+    case BUILT_IN_CILKPLUS_SEC_REDUCE_ALL_NONZERO:
+    case BUILT_IN_CILKPLUS_SEC_REDUCE_ANY_ZERO:
+    case BUILT_IN_CILKPLUS_SEC_REDUCE_ANY_NONZERO:
       new_var_type = integer_type_node;
       break;
-    case REDUCE_MAX_INDEX:
-    case REDUCE_MIN_INDEX:
+    case BUILT_IN_CILKPLUS_SEC_REDUCE_MAX_IND:
+    case BUILT_IN_CILKPLUS_SEC_REDUCE_MIN_IND:
       new_var_type = integer_type_node;
       break;
-    case REDUCE_CUSTOM:
+    case BUILT_IN_CILKPLUS_SEC_REDUCE:
       if (call_fn && identity_value) 
 	new_var_type = ARRAY_NOTATION_TYPE ((*array_list)[0]);
       break;
-    case REDUCE_MUTATING:
+    case BUILT_IN_CILKPLUS_SEC_REDUCE_MUTATING:
       new_var_type = NULL_TREE;
       break;
     default:
@@ -1902,7 +1935,7 @@  fix_builtin_array_notation_fn (tree an_builtin_fn, tree *new_var)
 	}
     }
 
-  if (an_type != REDUCE_MUTATING)
+  if (an_type != BUILT_IN_CILKPLUS_SEC_REDUCE_MUTATING)
     {
       *new_var = build_decl (location, VAR_DECL, NULL_TREE, new_var_type);
       gcc_assert (*new_var && *new_var != error_mark_node);
@@ -1910,13 +1943,14 @@  fix_builtin_array_notation_fn (tree an_builtin_fn, tree *new_var)
   else
     *new_var = NULL_TREE;
   
-  if (an_type == REDUCE_MAX_INDEX || an_type == REDUCE_MIN_INDEX)
+  if (an_type == BUILT_IN_CILKPLUS_SEC_REDUCE_MAX_IND
+      || an_type == BUILT_IN_CILKPLUS_SEC_REDUCE_MIN_IND)
     array_ind_value = build_decl (location, VAR_DECL, NULL_TREE, 
 				  TREE_TYPE (func_parm));
   array_op0 = (*array_operand)[0];			      
   switch (an_type)
     {
-    case REDUCE_ADD:
+    case BUILT_IN_CILKPLUS_SEC_REDUCE_ADD:
       new_var_init = build_modify_expr
 	(location, *new_var, TREE_TYPE (*new_var), NOP_EXPR,
 	 location, build_zero_cst (new_var_type), new_var_type);
@@ -1924,7 +1958,7 @@  fix_builtin_array_notation_fn (tree an_builtin_fn, tree *new_var)
 	(location, *new_var, TREE_TYPE (*new_var), PLUS_EXPR,
 	 location, func_parm, TREE_TYPE (func_parm));
       break;
-    case REDUCE_MUL:
+    case BUILT_IN_CILKPLUS_SEC_REDUCE_MUL:
       new_var_init = build_modify_expr
 	(location, *new_var, TREE_TYPE (*new_var), NOP_EXPR,
 	 location, build_one_cst (new_var_type), new_var_type);
@@ -1932,7 +1966,7 @@  fix_builtin_array_notation_fn (tree an_builtin_fn, tree *new_var)
 	(location, *new_var, TREE_TYPE (*new_var), MULT_EXPR,
 	 location, func_parm, TREE_TYPE (func_parm));
       break;
-    case REDUCE_ALL_ZEROS:
+    case BUILT_IN_CILKPLUS_SEC_REDUCE_ALL_ZERO:
       new_var_init = build_modify_expr
 	(location, *new_var, TREE_TYPE (*new_var), NOP_EXPR,
 	 location, build_one_cst (new_var_type), new_var_type);
@@ -1952,7 +1986,7 @@  fix_builtin_array_notation_fn (tree an_builtin_fn, tree *new_var)
 	(location, new_cond_expr, false, new_yes_expr,
 	 TREE_TYPE (new_yes_expr), new_no_expr, TREE_TYPE (new_no_expr));
       break;
-    case REDUCE_ALL_NONZEROS:
+    case BUILT_IN_CILKPLUS_SEC_REDUCE_ALL_NONZERO:
       new_var_init = build_modify_expr
 	(location, *new_var, TREE_TYPE (*new_var), NOP_EXPR,
 	 location, build_one_cst (new_var_type), new_var_type);
@@ -1972,7 +2006,7 @@  fix_builtin_array_notation_fn (tree an_builtin_fn, tree *new_var)
 	(location, new_cond_expr, false, new_yes_expr,
 	 TREE_TYPE (new_yes_expr), new_no_expr, TREE_TYPE (new_no_expr));
       break;
-    case REDUCE_ANY_ZEROS:
+    case BUILT_IN_CILKPLUS_SEC_REDUCE_ANY_ZERO:
       new_var_init = build_modify_expr
 	(location, *new_var, TREE_TYPE (*new_var), NOP_EXPR,
 	 location, build_zero_cst (new_var_type), new_var_type);
@@ -1991,7 +2025,7 @@  fix_builtin_array_notation_fn (tree an_builtin_fn, tree *new_var)
 	(location, new_cond_expr, false, new_yes_expr,
 	 TREE_TYPE (new_yes_expr), new_no_expr, TREE_TYPE (new_no_expr));   
       break;
-    case REDUCE_ANY_NONZEROS:
+    case BUILT_IN_CILKPLUS_SEC_REDUCE_ANY_NONZERO:
       new_var_init = build_modify_expr
 	(location, *new_var, TREE_TYPE (*new_var), NOP_EXPR,
 	 location, build_zero_cst (new_var_type), new_var_type);
@@ -2010,7 +2044,7 @@  fix_builtin_array_notation_fn (tree an_builtin_fn, tree *new_var)
 	(location, new_cond_expr, false, new_yes_expr,
 	 TREE_TYPE (new_yes_expr), new_no_expr, TREE_TYPE (new_no_expr));   
       break;
-    case REDUCE_MAX:
+    case BUILT_IN_CILKPLUS_SEC_REDUCE_MAX:
       new_var_init = build_modify_expr
 	(location, *new_var, TREE_TYPE (*new_var), NOP_EXPR,
 	 location, func_parm, new_var_type);
@@ -2025,7 +2059,7 @@  fix_builtin_array_notation_fn (tree an_builtin_fn, tree *new_var)
 	 build2 (LT_EXPR, TREE_TYPE (*new_var), *new_var, func_parm), false,
 	 new_yes_expr, TREE_TYPE (*new_var), new_no_expr, TREE_TYPE (*new_var));
       break;
-    case REDUCE_MIN:
+    case BUILT_IN_CILKPLUS_SEC_REDUCE_MIN:
       new_var_init = build_modify_expr
 	(location, *new_var, TREE_TYPE (*new_var), NOP_EXPR,
 	 location, func_parm, new_var_type);
@@ -2040,7 +2074,7 @@  fix_builtin_array_notation_fn (tree an_builtin_fn, tree *new_var)
 	 build2 (GT_EXPR, TREE_TYPE (*new_var), *new_var, func_parm), false,
 	 new_yes_expr, TREE_TYPE (*new_var), new_no_expr, TREE_TYPE (*new_var));
       break;
-    case REDUCE_MAX_INDEX:
+    case BUILT_IN_CILKPLUS_SEC_REDUCE_MAX_IND:
       new_var_init = build_modify_expr
 	(location, *new_var, TREE_TYPE (*new_var), NOP_EXPR,
 	 location, build_zero_cst (new_var_type), new_var_type);
@@ -2090,7 +2124,7 @@  fix_builtin_array_notation_fn (tree an_builtin_fn, tree *new_var)
 	 false,
 	 new_yes_list, TREE_TYPE (*new_var), new_no_list, TREE_TYPE (*new_var));
       break;
-    case REDUCE_MIN_INDEX:
+    case BUILT_IN_CILKPLUS_SEC_REDUCE_MIN_IND:
       new_var_init = build_modify_expr
 	(location, *new_var, TREE_TYPE (*new_var), NOP_EXPR,
 	 location, build_zero_cst (new_var_type), new_var_type);
@@ -2140,7 +2174,7 @@  fix_builtin_array_notation_fn (tree an_builtin_fn, tree *new_var)
 	 false,
 	 new_yes_list, TREE_TYPE (*new_var), new_no_list, TREE_TYPE (*new_var));
       break;
-    case REDUCE_CUSTOM:
+    case BUILT_IN_CILKPLUS_SEC_REDUCE:
       new_var_init = build_modify_expr
 	(location, *new_var, TREE_TYPE (*new_var), NOP_EXPR,
 	 location, identity_value, new_var_type);
@@ -2149,7 +2183,7 @@  fix_builtin_array_notation_fn (tree an_builtin_fn, tree *new_var)
 	(location, *new_var, TREE_TYPE (*new_var), NOP_EXPR,
 	 location, new_call_expr, TREE_TYPE (*new_var));
       break;
-    case REDUCE_MUTATING:
+    case BUILT_IN_CILKPLUS_SEC_REDUCE_MUTATING:
       new_expr = build_call_expr (call_fn, 2, identity_value, func_parm);
       break;
     default:
@@ -2160,9 +2194,10 @@  fix_builtin_array_notation_fn (tree an_builtin_fn, tree *new_var)
   for (ii = 0; ii < rank; ii++)
     append_to_statement_list (ind_init [ii], &loop);
 
-  if (an_type == REDUCE_MAX_INDEX || an_type == REDUCE_MIN_INDEX)
+  if (an_type == BUILT_IN_CILKPLUS_SEC_REDUCE_MAX_IND
+      || an_type == BUILT_IN_CILKPLUS_SEC_REDUCE_MIN_IND)
     append_to_statement_list (new_exp_init, &loop);
-  if (an_type != REDUCE_MUTATING)
+  if (an_type != BUILT_IN_CILKPLUS_SEC_REDUCE_MUTATING)
     append_to_statement_list (new_var_init, &loop);
   
   for (ii = 0; ii < rank; ii++)
@@ -2218,110 +2253,17 @@  fix_builtin_array_notation_fn (tree an_builtin_fn, tree *new_var)
   return loop;
 }
 
-/* Returns true of FUNC_NAME is a builtin array notation function.  The type of
-   function is returned in *TYPE.  */
-
-bool
-is_builtin_array_notation_fn (tree func_name, an_reduce_type *type)
-{
-  const char *function_name = NULL;
-
-  if (!func_name)
-    return false;
-
-  if (TREE_CODE (func_name) == IDENTIFIER_NODE)
-    function_name = IDENTIFIER_POINTER (func_name);
-  else if (TREE_CODE (func_name) == ADDR_EXPR)
-    {
-      func_name = TREE_OPERAND (func_name, 0);
-      if (TREE_CODE (func_name) == FUNCTION_DECL)
-	function_name = IDENTIFIER_POINTER (DECL_NAME (func_name));
-    }
-  
-  if (!function_name)
-    return false;
-
-  if (!strcmp (function_name, "__sec_reduce_add"))
-    {
-      *type = REDUCE_ADD;
-      return true;
-    }
-  else if (!strcmp (function_name, "__sec_reduce_mul"))
-    {
-      *type = REDUCE_MUL;
-      return true;
-    }
-  else if (!strcmp (function_name, "__sec_reduce_all_zero"))
-    {
-      *type = REDUCE_ALL_ZEROS;
-      return true;
-    }
-  else if (!strcmp (function_name, "__sec_reduce_all_nonzero"))
-    {
-      *type = REDUCE_ALL_NONZEROS;
-      return true;
-    }
-  else if (!strcmp (function_name, "__sec_reduce_any_zero"))
-    {
-      *type = REDUCE_ANY_ZEROS;
-      return true;
-    }
-  else if (!strcmp (function_name, "__sec_reduce_any_nonzero"))
-    {
-      *type = REDUCE_ANY_NONZEROS;
-      return true;
-    }
-  else if (!strcmp (function_name, "__sec_reduce_max"))
-    {
-      *type = REDUCE_MAX;
-      return true;
-    }
-  else if (!strcmp (function_name, "__sec_reduce_min"))
-    {
-      *type = REDUCE_MIN;
-      return true;
-    }
-  else if (!strcmp (function_name, "__sec_reduce_min_ind"))
-    {
-      *type = REDUCE_MIN_INDEX;
-      return true;
-    }
-  else if (!strcmp (function_name, "__sec_reduce_max_ind"))
-    {
-      *type = REDUCE_MAX_INDEX;
-      return true;
-    }
-  else if (!strcmp (function_name, "__sec_reduce"))
-    {
-      *type = REDUCE_CUSTOM;
-      return true;
-    }
-  else if (!strcmp (function_name, "__sec_reduce_mutating"))
-    {
-      *type = REDUCE_MUTATING;
-      return true;
-    }
-  else
-    {
-      *type = REDUCE_UNKNOWN;
-      return false;
-    }
-  return false;
-}
-
-
 /* Returns true of EXPR (and its subtrees) contain ARRAY_NOTATION_EXPR node.  */
 
 bool
 contains_array_notation_expr (tree expr)
 {
   vec<tree, va_gc> *array_list = NULL;
-  an_reduce_type type = REDUCE_UNKNOWN;
 
   if (!expr)
     return false;
   if (TREE_CODE (expr) == FUNCTION_DECL)
-    if (is_builtin_array_notation_fn (DECL_NAME (expr), &type))
+    if (is_cilkplus_reduce_builtin (expr))
       return true;
   
   extract_array_notation_exprs (expr, false, &array_list);
@@ -2347,11 +2289,10 @@  fix_array_notation_call_expr (tree arg)
   tree *body_label, *body_label_expr, *exit_label, *exit_label_expr;
   tree *compare_expr, *if_stmt_label, *expr_incr, *ind_init;
   bool **count_down, **array_vector;
-  an_reduce_type an_type = REDUCE_UNKNOWN;
   location_t location = UNKNOWN_LOCATION;
 
   if (TREE_CODE (arg) == CALL_EXPR
-      && is_builtin_array_notation_fn (CALL_EXPR_FN (arg), &an_type))
+      && is_cilkplus_reduce_builtin (CALL_EXPR_FN (arg)))
     {
       loop = fix_builtin_array_notation_fn (arg, &new_var);
       /* We are ignoring the new var because either the user does not want to
@@ -2732,13 +2673,12 @@  tree
 find_correct_array_notation_type (tree op)
 {
   tree fn_arg, return_type = NULL_TREE;
-  an_reduce_type dummy = REDUCE_UNKNOWN;
 
   if (op)
     {
       return_type = TREE_TYPE (op); /* This is the default case.  */
       if (TREE_CODE (op) == CALL_EXPR) 
-	if (is_builtin_array_notation_fn (CALL_EXPR_FN (op), &dummy)) 
+	if (is_cilkplus_reduce_builtin (CALL_EXPR_FN (op))) 
 	  { 
 	    fn_arg = CALL_EXPR_ARG (op, 0); 
 	    if (fn_arg) 
diff --git a/gcc/c/c-tree.h b/gcc/c/c-tree.h
index d1a871d..c8f6737 100644
--- a/gcc/c/c-tree.h
+++ b/gcc/c/c-tree.h
@@ -668,4 +668,7 @@  extern void c_write_global_declarations (void);
 extern void pedwarn_c90 (location_t, int opt, const char *, ...) ATTRIBUTE_GCC_DIAG(3,4);
 extern void pedwarn_c99 (location_t, int opt, const char *, ...) ATTRIBUTE_GCC_DIAG(3,4);
 
+/* In c-array-notation.c */
+enum built_in_function is_cilkplus_reduce_builtin (tree);
+
 #endif /* ! GCC_C_TREE_H */
diff --git a/gcc/c/c-typeck.c b/gcc/c/c-typeck.c
index 15dc83d..bd5cf26 100644
--- a/gcc/c/c-typeck.c
+++ b/gcc/c/c-typeck.c
@@ -2734,8 +2734,9 @@  build_function_call_vec (location_t loc, tree function,
 	 often rewritten and don't match the original parameter list.  */
       if (name && !strncmp (IDENTIFIER_POINTER (name), "__atomic_", 9))
         origtypes = NULL;
-      if (flag_enable_cilkplus && name
-	  && !strncmp (IDENTIFIER_POINTER (name), "__sec_reduce", 12))
+
+      if (flag_enable_cilkplus
+	  && is_cilkplus_reduce_builtin (function))
 	origtypes = NULL;
     }
   if (TREE_CODE (TREE_TYPE (function)) == FUNCTION_TYPE)
@@ -2959,12 +2960,15 @@  convert_arguments (tree typelist, vec<tree, va_gc> *values,
       bool npc;
       tree parmval;
 
+      // FIXME: I assume this code is here to handle the overloaded
+      // behavior of the __sec_reduce* builtins, and avoid giving
+      // argument mismatch warnings/errors.  We should probably handle
+      // this with the resolve_overloaded_builtin infrastructure.
       /* If the function call is a builtin function call, then we do not
 	 worry about it since we break them up into its equivalent later and
 	 we do the appropriate checks there.  */
-      if (flag_enable_cilkplus && fundecl && DECL_NAME (fundecl)
-	  && !strncmp (IDENTIFIER_POINTER (DECL_NAME (fundecl)),
-		       "__sec_reduce", 12))
+      if (flag_enable_cilkplus
+	  && is_cilkplus_reduce_builtin (fundecl))
 	continue;
       
       if (type == void_type_node)
@@ -3206,11 +3210,8 @@  convert_arguments (tree typelist, vec<tree, va_gc> *values,
     {
       /* If array notation is used and Cilk Plus is enabled, then we do not
 	 worry about this error now.  We will handle them in a later place.  */
-      if (flag_enable_cilkplus && DECL_NAME (fundecl)
-	  && !strncmp (IDENTIFIER_POINTER (DECL_NAME (fundecl)), "__sec_reduce",
-		       12))
-	;
-      else
+      if (!flag_enable_cilkplus
+	  || !is_cilkplus_reduce_builtin (fundecl))
 	{
 	  error_at (input_location,
 		    "too few arguments to function %qE", function);
diff --git a/gcc/cilkplus.def b/gcc/cilkplus.def
new file mode 100644
index 0000000..cb3824f
--- /dev/null
+++ b/gcc/cilkplus.def
@@ -0,0 +1,59 @@ 
+/* This file contains the definitions and documentation for the
+   CilkPlus builtins used in the GNU compiler.
+   Copyright (C) 2013 Free Software Foundation, Inc.
+
+This file is part of GCC.
+
+GCC is free software; you can redistribute it and/or modify it under
+the terms of the GNU General Public License as published by the Free
+Software Foundation; either version 3, or (at your option) any later
+version.
+
+GCC is distributed in the hope that it will be useful, but WITHOUT ANY
+WARRANTY; without even the implied warranty of MERCHANTABILITY or
+FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+for more details.
+
+You should have received a copy of the GNU General Public License
+along with GCC; see the file COPYING3.  If not see
+<http://www.gnu.org/licenses/>.  */
+
+/* Before including this file, you should define a macro:
+
+     DEF_CILKPLUS_BUILTIN (ENUM, NAME, TYPE, ATTRS)
+
+   See builtins.def for details.  */
+
+DEF_CILKPLUS_BUILTIN (BUILT_IN_CILKPLUS_SEC_REDUCE_ADD,
+		      "__sec_reduce_add", BT_FN_INT_PTR, ATTR_NULL)
+DEF_CILKPLUS_BUILTIN (BUILT_IN_CILKPLUS_SEC_REDUCE_MUL,
+		      "__sec_reduce_mul", BT_FN_INT_PTR, ATTR_NULL)
+DEF_CILKPLUS_BUILTIN (BUILT_IN_CILKPLUS_SEC_REDUCE_ALL_ZERO,
+		      "__sec_reduce_all_zero", BT_FN_INT_PTR, ATTR_NULL)
+DEF_CILKPLUS_BUILTIN (BUILT_IN_CILKPLUS_SEC_REDUCE_ANY_ZERO,
+		      "__sec_reduce_any_zero", BT_FN_INT_PTR, ATTR_NULL)
+DEF_CILKPLUS_BUILTIN (BUILT_IN_CILKPLUS_SEC_REDUCE_MAX,
+		      "__sec_reduce_max", BT_FN_INT_PTR, ATTR_NULL)
+DEF_CILKPLUS_BUILTIN (BUILT_IN_CILKPLUS_SEC_REDUCE_MIN,
+		      "__sec_reduce_min", BT_FN_INT_PTR, ATTR_NULL)
+DEF_CILKPLUS_BUILTIN (BUILT_IN_CILKPLUS_SEC_REDUCE_MIN_IND,
+		      "__sec_reduce_min_ind", BT_FN_INT_PTR, ATTR_NULL)
+DEF_CILKPLUS_BUILTIN (BUILT_IN_CILKPLUS_SEC_REDUCE_MAX_IND,
+		      "__sec_reduce_max_ind", BT_FN_INT_PTR, ATTR_NULL)
+DEF_CILKPLUS_BUILTIN (BUILT_IN_CILKPLUS_SEC_REDUCE_ANY_NONZERO,
+		      "__sec_reduce_any_nonzero", BT_FN_INT_PTR, ATTR_NULL)
+DEF_CILKPLUS_BUILTIN (BUILT_IN_CILKPLUS_SEC_REDUCE_ALL_NONZERO,
+		      "__sec_reduce_all_nonzero", BT_FN_INT_PTR, ATTR_NULL)
+DEF_CILKPLUS_BUILTIN (BUILT_IN_CILKPLUS_SEC_REDUCE,
+		      "__sec_reduce", BT_FN_INT_PTR_PTR_PTR, ATTR_NULL)
+DEF_CILKPLUS_BUILTIN (BUILT_IN_CILKPLUS_SEC_REDUCE_MUTATING,
+		      "__sec_reduce_mutating", BT_FN_INT_PTR_PTR_PTR, ATTR_NULL)
+// FIXME: This probably needs to be rewritten as a keyword.
+DEF_CILKPLUS_BUILTIN (BUILT_IN_CILKPLUS_SEC_IMPLICIT_INDEX,
+		      "__sec_implicit_index", BT_FN_INT_INT, ATTR_NULL)
+
+/*
+Local variables:
+mode:c
+End:
+*/