/* Internal functions.
   Copyright (C) 2011-2015 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/>.  */

#ifndef GCC_INTERNAL_FN_H
#define GCC_INTERNAL_FN_H

/* INTEGER_CST values for IFN_UNIQUE function arg-0.  */
enum ifn_unique_kind {
  IFN_UNIQUE_UNSPEC,  /* Undifferentiated UNIQUE.  */

  /* FORK and JOIN mark the points at which OpenACC partitioned
     execution is entered or exited.
     return: data dependency value
     arg-1: data dependency var
     arg-2: INTEGER_CST argument, indicating the axis.  */
  IFN_UNIQUE_OACC_FORK,
  IFN_UNIQUE_OACC_JOIN,

  /* HEAD_MARK and TAIL_MARK are used to demark the sequence entering
     or leaving partitioned execution.
     return: data dependency value
     arg-1: data dependency var
     arg-2: INTEGER_CST argument, remaining markers in this sequence
     arg-3...: varargs on primary header  */
  IFN_UNIQUE_OACC_HEAD_MARK,
  IFN_UNIQUE_OACC_TAIL_MARK
};

/* INTEGER_CST values for IFN_GOACC_LOOP arg-0.  Allows the precise
   stepping of the compute geometry over the loop iterations to be
   deferred until it is known which compiler is generating the code.
   The action is encoded in a constant first argument.

     CHUNK_MAX = LOOP (CODE_CHUNKS, DIR, RANGE, STEP, CHUNK_SIZE, MASK)
     STEP = LOOP (CODE_STEP, DIR, RANGE, STEP, CHUNK_SIZE, MASK)
     OFFSET = LOOP (CODE_OFFSET, DIR, RANGE, STEP, CHUNK_SIZE, MASK, CHUNK_NO)
     BOUND = LOOP (CODE_BOUND, DIR, RANGE, STEP, CHUNK_SIZE, MASK, OFFSET)

     DIR - +1 for up loop, -1 for down loop
     RANGE - Range of loop (END - BASE)
     STEP - iteration step size
     CHUNKING - size of chunking, (constant zero for no chunking)
     CHUNK_NO - chunk number
     MASK - partitioning mask.  */

enum ifn_goacc_loop_kind {
  IFN_GOACC_LOOP_CHUNKS,  /* Number of chunks.  */
  IFN_GOACC_LOOP_STEP,    /* Size of each thread's step.  */
  IFN_GOACC_LOOP_OFFSET,  /* Initial iteration value.  */
  IFN_GOACC_LOOP_BOUND    /* Limit of iteration value.  */
};

/* Initialize internal function tables.  */

extern void init_internal_fns ();

/* Return the name of internal function FN.  The name is only meaningful
   for dumps; it has no linkage.  */

extern const char *const internal_fn_name_array[];

static inline const char *
internal_fn_name (enum internal_fn fn)
{
  return internal_fn_name_array[(int) fn];
}

/* Return the ECF_* flags for function FN.  */

extern const int internal_fn_flags_array[];

static inline int
internal_fn_flags (enum internal_fn fn)
{
  return internal_fn_flags_array[(int) fn];
}

/* Return fnspec for function FN.  */

extern GTY(()) const_tree internal_fn_fnspec_array[IFN_LAST + 1];

static inline const_tree
internal_fn_fnspec (enum internal_fn fn)
{
  return internal_fn_fnspec_array[(int) fn];
}

extern void expand_internal_call (gcall *);

#endif