gcc/graphite-cloog-compat.h

   1 /* Compatibility layer for using upstream CLooG versions with
   2    CLooG legacy code.
   3    Copyright (C) 2010 Free Software Foundation, Inc.
   4    Contributed by Andreas Simbuerger <simbuerg@fim.uni-passau.de>.
   5
   6 This file is part of GCC.
   7
   8 GCC is free software; you can redistribute it and/or modify
   9 it under the terms of the GNU General Public License as published by
  10 the Free Software Foundation; either version 3, or (at your option)
  11 any later version.
  12
  13 GCC is distributed in the hope that it will be useful,
  14 but WITHOUT ANY WARRANTY; without even the implied warranty of
  15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16 GNU General Public License for more details.
  17
  18 You should have received a copy of the GNU General Public License
  19 along with GCC; see the file COPYING3.  If not see
  20 <http://www.gnu.org/licenses/>.  */
  21
  22 #ifndef GRAPHITE_CLOOG_COMPAT_H
  23 #define GRAPHITE_CLOOG_COMPAT_H
  24
  25 /* Restore compatibility to CLooG Legacy.  */
  26 #ifdef CLOOG_ORG
  27 typedef const struct clast_expr *clast_name_p;
  28 #else
  29 typedef const char *clast_name_p;
  30 #endif
  31
  32 #ifdef CLOOG_ORG
  33 #define cloog_initialize()
  34 #define cloog_finalize()
  35 #endif
  36
  37 #ifndef CLOOG_ORG
  38
  39 /* CloogOptions compatibility.  */
  40 #define build_cloog_prog(SCOP, PROG, OPT, STATE)\
  41   build_cloog_prog (SCOP, PROG, STATE)
  42 #define cloog_program_extract_scalars(PROG, SCATT, OPT)\
  43   cloog_program_extract_scalars (PROG, SCATT)
  44 #define cloog_program_scatter(PROG, SCATT, OPT)\
  45   cloog_program_scatter (PROG, SCATT)
  46
  47 /* CLAST compatibility.  */
  48 #define clast_expr_term expr_term
  49 #define clast_expr_red expr_red
  50 #define clast_expr_bin expr_bin
  51 #define clast_pprint pprint
  52
  53 /* CloogState compatibility.  */
  54 #define CloogState void
  55 #define cloog_state_malloc() NULL
  56 #define cloog_state_free(STATE)
  57 #define cloog_loop_malloc(STATE) cloog_loop_malloc ()
  58 #define cloog_options_malloc(STATE) cloog_options_malloc ()
  59 #define cloog_statement_alloc(STATE, INDEX) cloog_statement_alloc (INDEX)
  60 #define new_Cloog_Domain_from_ppl_Pointset_Powerset(PSPS, NB, STATE)\
  61   new_Cloog_Domain_from_ppl_Pointset_Powerset (PSPS)
  62 #define new_Cloog_Domain_from_ppl_Polyhedron(POLY, NB, STATE)\
  63   new_Cloog_Domain_from_ppl_Polyhedron (POLY)
  64 #define cloog_domain_from_cloog_matrix(STATE, MAT, NB)\
  65   cloog_domain_matrix2domain (MAT)
  66
  67 /* CloogScatteringList compatibility.  */
  68 #define CloogScatteringList CloogDomainList
  69 #define CloogScattering CloogDomain
  70 #define cloog_set_next_scattering cloog_set_next_domain
  71 #define cloog_set_scattering cloog_set_domain
  72 #define cloog_scattering cloog_domain
  73 #define cloog_next_scattering cloog_next_domain
  74 #define cloog_scattering_free cloog_domain_free
  75
  76 #endif
  77
  78 /* Adapt CLooG accessors from CLooG legacy to
  79    newer CLooG versions.  */
  80
  81 #ifdef CLOOG_ORG
  82
  83 static inline void *
  84 cloog_statement_usr (CloogStatement *cs)
  85 {
  86   return cs->usr;
  87 }
  88
  89 static inline CloogScattering *
  90 cloog_scattering (CloogScatteringList *sl)
  91 {
  92   return sl->scatt;
  93 }
  94
  95 static inline void
  96 cloog_set_scattering (CloogScatteringList *sl, CloogScattering *scatt)
  97 {
  98   sl->scatt = scatt;
  99 }
 100
 101 static inline CloogScatteringList *
 102 cloog_next_scattering (CloogScatteringList *sl)
 103 {
 104   return sl->next;
 105 }
 106
 107 static inline void
 108 cloog_set_next_scattering (CloogScatteringList *sl, CloogScatteringList *next)
 109 {
 110   sl->next = next;
 111 }
 112
 113 static inline int
 114 cloog_program_nb_scattdims (CloogProgram *prog)
 115 {
 116   return prog->nb_scattdims;
 117 }
 118
 119 static inline void
 120 cloog_program_set_nb_scattdims (CloogProgram *prog, int nb_scattdims)
 121 {
 122   prog->nb_scattdims = nb_scattdims;
 123 }
 124
 125 static inline CloogNames *
 126 cloog_program_names (CloogProgram *prog)
 127 {
 128   return prog->names;
 129 }
 130
 131 static inline void
 132 cloog_program_set_names (CloogProgram *prog, CloogNames *names)
 133 {
 134   prog->names = names;
 135 }
 136
 137 static inline void
 138 cloog_program_set_context (CloogProgram *prog, CloogDomain *domain)
 139 {
 140   prog->context = domain;
 141 }
 142
 143 static inline void
 144 cloog_program_set_loop (CloogProgram *prog, CloogLoop *loop)
 145 {
 146   prog->loop = loop;
 147 }
 148
 149 static inline CloogBlockList *
 150 cloog_program_blocklist (CloogProgram *prog)
 151 {
 152   return prog->blocklist;
 153 }
 154
 155 static inline void
 156 cloog_program_set_blocklist (CloogProgram *prog, CloogBlockList *bl)
 157 {
 158   prog->blocklist = bl;
 159 }
 160
 161 static inline int *
 162 cloog_program_scaldims (CloogProgram *prog)
 163 {
 164   return prog->scaldims;
 165 }
 166
 167 static inline void
 168 cloog_program_set_scaldims (CloogProgram *prog, int *s)
 169 {
 170   prog->scaldims = s;
 171 }
 172
 173 static inline int
 174 cloog_names_nb_parameters (CloogNames *names)
 175 {
 176   return names->nb_parameters;
 177 }
 178
 179 static inline void
 180 cloog_names_set_nb_parameters (CloogNames *names, int nb_parameters)
 181 {
 182   names->nb_parameters = nb_parameters;
 183 }
 184
 185 static inline char **
 186 cloog_names_parameters (CloogNames *names)
 187 {
 188   return names->parameters;
 189 }
 190
 191 static inline void
 192 cloog_names_set_parameters (CloogNames *names, char **parameters)
 193 {
 194   names->parameters = parameters;
 195 }
 196
 197 static inline void
 198 cloog_names_set_nb_iterators (CloogNames *names, int nb_iterators)
 199 {
 200   names->nb_iterators = nb_iterators;
 201 }
 202
 203 static inline void
 204 cloog_names_set_iterators (CloogNames *names, char **iterators)
 205 {
 206   names->iterators = iterators;
 207 }
 208
 209 static inline void
 210 cloog_names_set_nb_scattering (CloogNames *names, int nb_scattering)
 211 {
 212   names->nb_scattering = nb_scattering;
 213 }
 214
 215 static inline void
 216 cloog_names_set_scattering (CloogNames *names, char **scattering)
 217 {
 218   names->scattering = scattering;
 219 }
 220
 221 static inline void
 222 cloog_statement_set_usr (CloogStatement *cs, void *u)
 223 {
 224   cs->usr = u;
 225 }
 226
 227 static inline void
 228 cloog_loop_set_next (CloogLoop *loop, CloogLoop *next)
 229 {
 230   loop->next = next;
 231 }
 232
 233 static inline void
 234 cloog_loop_set_domain (CloogLoop *loop, CloogDomain *domain)
 235 {
 236   loop->domain = domain;
 237 }
 238
 239 static inline void
 240 cloog_loop_set_block (CloogLoop *loop, CloogBlock *block)
 241 {
 242   loop->block = block;
 243 }
 244
 245 static inline CloogBlockList *
 246 cloog_block_list_next (CloogBlockList *bl)
 247 {
 248   return bl->next;
 249 }
 250
 251 static inline void
 252 cloog_block_list_set_next (CloogBlockList *bl, CloogBlockList *next)
 253 {
 254   bl->next = next;
 255 }
 256
 257 static inline void
 258 cloog_block_list_set_block (CloogBlockList *bl, CloogBlock *block)
 259 {
 260   bl->block = block;
 261 }
 262 #endif /* CLOOG_ORG  */
 263 #endif /* GRAPHITE_CLOOG_COMPAT_H  */