polly/lib/External/isl/isl_options.c

   1 /*
   2  * Copyright 2008-2009 Katholieke Universiteit Leuven
   3  *
   4  * Use of this software is governed by the MIT license
   5  *
   6  * Written by Sven Verdoolaege, K.U.Leuven, Departement
   7  * Computerwetenschappen, Celestijnenlaan 200A, B-3001 Leuven, Belgium
   8  */
   9
  10 #include <stdio.h>
  11 #include <stdlib.h>
  12 #include <string.h>
  13
  14 #include <isl/ctx.h>
  15 #include <isl_options_private.h>
  16 #include <isl/ast_build.h>
  17 #include <isl/schedule.h>
  18 #include <isl/version.h>
  19
  20 struct isl_arg_choice isl_pip_context_choice[] = {
  21         {"gbr",         ISL_CONTEXT_GBR},
  22         {"lexmin",      ISL_CONTEXT_LEXMIN},
  23         {0}
  24 };
  25
  26 struct isl_arg_choice isl_gbr_choice[] = {
  27         {"never",       ISL_GBR_NEVER},
  28         {"once",        ISL_GBR_ONCE},
  29         {"always",      ISL_GBR_ALWAYS},
  30         {0}
  31 };
  32
  33 struct isl_arg_choice isl_closure_choice[] = {
  34         {"isl",         ISL_CLOSURE_ISL},
  35         {"box",         ISL_CLOSURE_BOX},
  36         {0}
  37 };
  38
  39 static struct isl_arg_choice bound[] = {
  40         {"bernstein",   ISL_BOUND_BERNSTEIN},
  41         {"range",       ISL_BOUND_RANGE},
  42         {0}
  43 };
  44
  45 static struct isl_arg_choice on_error[] = {
  46         {"warn",        ISL_ON_ERROR_WARN},
  47         {"continue",    ISL_ON_ERROR_CONTINUE},
  48         {"abort",       ISL_ON_ERROR_ABORT},
  49         {0}
  50 };
  51
  52 static struct isl_arg_choice isl_schedule_algorithm_choice[] = {
  53         {"isl",         ISL_SCHEDULE_ALGORITHM_ISL},
  54         {"feautrier",   ISL_SCHEDULE_ALGORITHM_FEAUTRIER},
  55         {0}
  56 };
  57
  58 static struct isl_arg_flags bernstein_recurse[] = {
  59         {"none",        ISL_BERNSTEIN_FACTORS | ISL_BERNSTEIN_INTERVALS, 0},
  60         {"factors",     ISL_BERNSTEIN_FACTORS | ISL_BERNSTEIN_INTERVALS,
  61                         ISL_BERNSTEIN_FACTORS},
  62         {"intervals",   ISL_BERNSTEIN_FACTORS | ISL_BERNSTEIN_INTERVALS,
  63                         ISL_BERNSTEIN_INTERVALS},
  64         {"full",        ISL_BERNSTEIN_FACTORS | ISL_BERNSTEIN_INTERVALS,
  65                         ISL_BERNSTEIN_FACTORS | ISL_BERNSTEIN_INTERVALS},
  66         {0}
  67 };
  68
  69 static struct isl_arg_choice convex[] = {
  70         {"wrap",        ISL_CONVEX_HULL_WRAP},
  71         {"fm",          ISL_CONVEX_HULL_FM},
  72         {0}
  73 };
  74
  75 #define         ISL_SCHEDULE_FUSE_MAX                   0
  76 #define         ISL_SCHEDULE_FUSE_MIN                   1
  77
  78 static struct isl_arg_choice fuse[] = {
  79         {"max",         ISL_SCHEDULE_FUSE_MAX},
  80         {"min",         ISL_SCHEDULE_FUSE_MIN},
  81         {0}
  82 };
  83
  84 /* Callback for setting the "schedule-fuse" option.
  85  * This (now hidden) option tries to mimic an option that was
  86  * replaced by the schedule-serialize-sccs option.
  87  * Setting the old option to ISL_SCHEDULE_FUSE_MIN is now
  88  * expressed by turning on the schedule-serialize-sccs option.
  89  */
  90 static int set_fuse(void *opt, unsigned val)
  91 {
  92         struct isl_options *options = opt;
  93
  94         options->schedule_serialize_sccs = (val == ISL_SCHEDULE_FUSE_MIN);
  95
  96         return 0;
  97 }
  98
  99 static struct isl_arg_choice separation_bounds[] = {
 100         {"explicit",    ISL_AST_BUILD_SEPARATION_BOUNDS_EXPLICIT},
 101         {"implicit",    ISL_AST_BUILD_SEPARATION_BOUNDS_IMPLICIT},
 102         {0}
 103 };
 104
 105 static void print_version(void)
 106 {
 107         printf("%s", isl_version());
 108 }
 109
 110 ISL_ARGS_START(struct isl_options, isl_options_args)
 111 ISL_ARG_CHOICE(struct isl_options, context, 0, "context", \
 112         isl_pip_context_choice, ISL_CONTEXT_GBR,
 113         "how to handle the pip context tableau")
 114 ISL_ARG_CHOICE(struct isl_options, gbr, 0, "gbr", \
 115         isl_gbr_choice, ISL_GBR_ALWAYS,
 116         "how often to use generalized basis reduction")
 117 ISL_ARG_CHOICE(struct isl_options, closure, 0, "closure", \
 118         isl_closure_choice,     ISL_CLOSURE_ISL,
 119         "closure operation to use")
 120 ISL_ARG_BOOL(struct isl_options, gbr_only_first, 0, "gbr-only-first", 0,
 121         "only perform basis reduction in first direction")
 122 ISL_ARG_CHOICE(struct isl_options, bound, 0, "bound", bound,
 123         ISL_BOUND_BERNSTEIN, "algorithm to use for computing bounds")
 124 ISL_ARG_CHOICE(struct isl_options, on_error, 0, "on-error", on_error,
 125         ISL_ON_ERROR_WARN, "how to react if an error is detected")
 126 ISL_ARG_FLAGS(struct isl_options, bernstein_recurse, 0,
 127         "bernstein-recurse", bernstein_recurse, ISL_BERNSTEIN_FACTORS, NULL)
 128 ISL_ARG_BOOL(struct isl_options, bernstein_triangulate, 0,
 129         "bernstein-triangulate", 1,
 130         "triangulate domains during Bernstein expansion")
 131 ISL_ARG_BOOL(struct isl_options, pip_symmetry, 0, "pip-symmetry", 1,
 132         "detect simple symmetries in PIP input")
 133 ISL_ARG_CHOICE(struct isl_options, convex, 0, "convex-hull", \
 134         convex, ISL_CONVEX_HULL_WRAP, "convex hull algorithm to use")
 135 ISL_ARG_BOOL(struct isl_options, coalesce_bounded_wrapping, 0,
 136         "coalesce-bounded-wrapping", 1, "bound wrapping during coalescing")
 137 ISL_ARG_BOOL(struct isl_options, coalesce_preserve_locals, 0,
 138         "coalesce-preserve-locals", 0,
 139         "preserve local variables during coalescing")
 140 ISL_ARG_INT(struct isl_options, schedule_max_coefficient, 0,
 141         "schedule-max-coefficient", "limit", -1, "Only consider schedules "
 142         "where the coefficients of the variable and parameter dimensions "
 143         "do not exceed <limit>. A value of -1 allows arbitrary coefficients.")
 144 ISL_ARG_INT(struct isl_options, schedule_max_constant_term, 0,
 145         "schedule-max-constant-term", "limit", -1, "Only consider schedules "
 146         "where the coefficients of the constant dimension do not exceed "
 147         "<limit>. A value of -1 allows arbitrary coefficients.")
 148 ISL_ARG_BOOL(struct isl_options, schedule_parametric, 0,
 149         "schedule-parametric", 1, "construct possibly parametric schedules")
 150 ISL_ARG_BOOL(struct isl_options, schedule_outer_coincidence, 0,
 151         "schedule-outer-coincidence", 0,
 152         "try to construct schedules where the outer member of each band "
 153         "satisfies the coincidence constraints")
 154 ISL_ARG_BOOL(struct isl_options, schedule_maximize_band_depth, 0,
 155         "schedule-maximize-band-depth", 0,
 156         "maximize the number of scheduling dimensions in a band")
 157 ISL_ARG_BOOL(struct isl_options, schedule_maximize_coincidence, 0,
 158         "schedule-maximize-coincidence", 0,
 159         "maximize the number of coincident dimensions in a band")
 160 ISL_ARG_BOOL(struct isl_options, schedule_split_scaled, 0,
 161         "schedule-split-scaled", 1,
 162         "split non-tilable bands with scaled schedules")
 163 ISL_ARG_BOOL(struct isl_options, schedule_treat_coalescing, 0,
 164         "schedule-treat-coalescing", 1,
 165         "try and prevent or adjust schedules that perform loop coalescing")
 166 ISL_ARG_BOOL(struct isl_options, schedule_separate_components, 0,
 167         "schedule-separate-components", 1,
 168         "separate components in dependence graph")
 169 ISL_ARG_BOOL(struct isl_options, schedule_whole_component, 0,
 170         "schedule-whole-component", 0,
 171         "try and compute schedule for entire component first")
 172 ISL_ARG_CHOICE(struct isl_options, schedule_algorithm, 0,
 173         "schedule-algorithm", isl_schedule_algorithm_choice,
 174         ISL_SCHEDULE_ALGORITHM_ISL, "scheduling algorithm to use")
 175 ISL_ARG_BOOL(struct isl_options, schedule_carry_self_first, 0,
 176         "schedule-carry-self-first", 1, "try and carry self-dependences first")
 177 ISL_ARG_BOOL(struct isl_options, schedule_serialize_sccs, 0,
 178         "schedule-serialize-sccs", 0,
 179         "serialize strongly connected components in dependence graph")
 180 ISL_ARG_PHANTOM_USER_CHOICE_F(0, "schedule-fuse", fuse, &set_fuse,
 181         ISL_SCHEDULE_FUSE_MAX, "level of fusion during scheduling",
 182         ISL_ARG_HIDDEN)
 183 ISL_ARG_BOOL(struct isl_options, tile_scale_tile_loops, 0,
 184         "tile-scale-tile-loops", 1, "scale tile loops")
 185 ISL_ARG_BOOL(struct isl_options, tile_shift_point_loops, 0,
 186         "tile-shift-point-loops", 1, "shift point loops to start at zero")
 187 ISL_ARG_STR(struct isl_options, ast_iterator_type, 0,
 188         "ast-iterator-type", "type", "int",
 189         "type used for iterators during printing of AST")
 190 ISL_ARG_BOOL(struct isl_options, ast_always_print_block, 0,
 191         "ast-always-print-block", 0, "print for and if bodies as a block "
 192         "regardless of the number of statements in the body")
 193 ISL_ARG_BOOL(struct isl_options, ast_print_outermost_block, 0,
 194         "ast-print-outermost-block", 1, "print outermost block node as a block")
 195 ISL_ARG_BOOL(struct isl_options, ast_print_macro_once, 0,
 196         "ast-print-macro-once", 0, "only print macro definitions once")
 197 ISL_ARG_BOOL(struct isl_options, ast_build_atomic_upper_bound, 0,
 198         "ast-build-atomic-upper-bound", 1, "generate atomic upper bounds")
 199 ISL_ARG_BOOL(struct isl_options, ast_build_prefer_pdiv, 0,
 200         "ast-build-prefer-pdiv", 1, "prefer pdiv operation over fdiv")
 201 ISL_ARG_BOOL(struct isl_options, ast_build_detect_min_max, 0,
 202         "ast-build-detect-min-max", 0, "detect min/max expressions")
 203 ISL_ARG_BOOL(struct isl_options, ast_build_exploit_nested_bounds, 0,
 204         "ast-build-exploit-nested-bounds", 1,
 205         "simplify conditions based on bounds of nested for loops")
 206 ISL_ARG_BOOL(struct isl_options, ast_build_group_coscheduled, 0,
 207         "ast-build-group-coscheduled", 0,
 208         "keep coscheduled domain elements together")
 209 ISL_ARG_CHOICE(struct isl_options, ast_build_separation_bounds, 0,
 210         "ast-build-separation-bounds", separation_bounds,
 211         ISL_AST_BUILD_SEPARATION_BOUNDS_EXPLICIT,
 212         "bounds to use during separation")
 213 ISL_ARG_BOOL(struct isl_options, ast_build_scale_strides, 0,
 214         "ast-build-scale-strides", 1,
 215         "allow iterators of strided loops to be scaled down")
 216 ISL_ARG_BOOL(struct isl_options, ast_build_allow_else, 0,
 217         "ast-build-allow-else", 1, "generate if statements with else branches")
 218 ISL_ARG_BOOL(struct isl_options, ast_build_allow_or, 0,
 219         "ast-build-allow-or", 1, "generate if conditions with disjunctions")
 220 ISL_ARG_BOOL(struct isl_options, print_stats, 0, "print-stats", 0,
 221         "print statistics for every isl_ctx")
 222 ISL_ARG_ULONG(struct isl_options, max_operations, 0,
 223         "max-operations", 0, "default number of maximal operations per isl_ctx")
 224 ISL_ARG_VERSION(print_version)
 225 ISL_ARGS_END
 226
 227 ISL_ARG_DEF(isl_options, struct isl_options, isl_options_args)
 228
 229 ISL_ARG_CTX_DEF(isl_options, struct isl_options, isl_options_args)
 230
 231 ISL_CTX_SET_CHOICE_DEF(isl_options, struct isl_options, isl_options_args, bound)
 232 ISL_CTX_GET_CHOICE_DEF(isl_options, struct isl_options, isl_options_args, bound)
 233
 234 ISL_CTX_SET_CHOICE_DEF(isl_options, struct isl_options, isl_options_args,
 235         on_error)
 236 ISL_CTX_GET_CHOICE_DEF(isl_options, struct isl_options, isl_options_args,
 237         on_error)
 238
 239 ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 240         pip_symmetry)
 241 ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 242         pip_symmetry)
 243
 244 ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 245         coalesce_bounded_wrapping)
 246 ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 247         coalesce_bounded_wrapping)
 248
 249 ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 250         coalesce_preserve_locals)
 251 ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 252         coalesce_preserve_locals)
 253
 254 ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 255         gbr_only_first)
 256 ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 257         gbr_only_first)
 258
 259 ISL_CTX_SET_INT_DEF(isl_options, struct isl_options, isl_options_args,
 260         schedule_max_coefficient)
 261 ISL_CTX_GET_INT_DEF(isl_options, struct isl_options, isl_options_args,
 262         schedule_max_coefficient)
 263
 264 ISL_CTX_SET_INT_DEF(isl_options, struct isl_options, isl_options_args,
 265         schedule_max_constant_term)
 266 ISL_CTX_GET_INT_DEF(isl_options, struct isl_options, isl_options_args,
 267         schedule_max_constant_term)
 268
 269 ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 270         schedule_maximize_band_depth)
 271 ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 272         schedule_maximize_band_depth)
 273
 274 ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 275         schedule_maximize_coincidence)
 276 ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 277         schedule_maximize_coincidence)
 278
 279 ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 280         schedule_split_scaled)
 281 ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 282         schedule_split_scaled)
 283
 284 ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 285         schedule_treat_coalescing)
 286 ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 287         schedule_treat_coalescing)
 288
 289 ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 290         schedule_separate_components)
 291 ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 292         schedule_separate_components)
 293
 294 ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 295         schedule_whole_component)
 296 ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 297         schedule_whole_component)
 298
 299 ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 300         schedule_outer_coincidence)
 301 ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 302         schedule_outer_coincidence)
 303
 304 ISL_CTX_SET_CHOICE_DEF(isl_options, struct isl_options, isl_options_args,
 305         schedule_algorithm)
 306 ISL_CTX_GET_CHOICE_DEF(isl_options, struct isl_options, isl_options_args,
 307         schedule_algorithm)
 308
 309 ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 310         schedule_carry_self_first)
 311 ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 312         schedule_carry_self_first)
 313
 314 ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 315         schedule_serialize_sccs)
 316 ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 317         schedule_serialize_sccs)
 318
 319 ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 320         tile_scale_tile_loops)
 321 ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 322         tile_scale_tile_loops)
 323
 324 ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 325         tile_shift_point_loops)
 326 ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 327         tile_shift_point_loops)
 328
 329 ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 330         ast_build_atomic_upper_bound)
 331 ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 332         ast_build_atomic_upper_bound)
 333
 334 ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 335         ast_build_prefer_pdiv)
 336 ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 337         ast_build_prefer_pdiv)
 338
 339 ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 340         ast_build_detect_min_max)
 341 ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 342         ast_build_detect_min_max)
 343
 344 ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 345         ast_build_exploit_nested_bounds)
 346 ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 347         ast_build_exploit_nested_bounds)
 348
 349 ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 350         ast_build_group_coscheduled)
 351 ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 352         ast_build_group_coscheduled)
 353
 354 ISL_CTX_SET_STR_DEF(isl_options, struct isl_options, isl_options_args,
 355         ast_iterator_type)
 356 ISL_CTX_GET_STR_DEF(isl_options, struct isl_options, isl_options_args,
 357         ast_iterator_type)
 358
 359 ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 360         ast_always_print_block)
 361 ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 362         ast_always_print_block)
 363
 364 ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 365         ast_print_outermost_block)
 366 ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 367         ast_print_outermost_block)
 368
 369 ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 370         ast_print_macro_once)
 371 ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 372         ast_print_macro_once)
 373
 374 ISL_CTX_SET_CHOICE_DEF(isl_options, struct isl_options, isl_options_args,
 375         ast_build_separation_bounds)
 376 ISL_CTX_GET_CHOICE_DEF(isl_options, struct isl_options, isl_options_args,
 377         ast_build_separation_bounds)
 378
 379 ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 380         ast_build_scale_strides)
 381 ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 382         ast_build_scale_strides)
 383
 384 ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 385         ast_build_allow_else)
 386 ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 387         ast_build_allow_else)
 388
 389 ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 390         ast_build_allow_or)
 391 ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args,
 392         ast_build_allow_or)