| /* |
| * Copyright 2008-2009 Katholieke Universiteit Leuven |
| * |
| * Use of this software is governed by the MIT license |
| * |
| * Written by Sven Verdoolaege, K.U.Leuven, Departement |
| * Computerwetenschappen, Celestijnenlaan 200A, B-3001 Leuven, Belgium |
| */ |
| |
| #include <stdio.h> |
| #include <stdlib.h> |
| #include <string.h> |
| |
| #include <isl/ctx.h> |
| #include <isl_options_private.h> |
| #include <isl/ast_build.h> |
| #include <isl/schedule.h> |
| #include <isl/version.h> |
| |
| struct isl_arg_choice isl_pip_context_choice[] = { |
| {"gbr", ISL_CONTEXT_GBR}, |
| {"lexmin", ISL_CONTEXT_LEXMIN}, |
| {0} |
| }; |
| |
| struct isl_arg_choice isl_gbr_choice[] = { |
| {"never", ISL_GBR_NEVER}, |
| {"once", ISL_GBR_ONCE}, |
| {"always", ISL_GBR_ALWAYS}, |
| {0} |
| }; |
| |
| struct isl_arg_choice isl_closure_choice[] = { |
| {"isl", ISL_CLOSURE_ISL}, |
| {"box", ISL_CLOSURE_BOX}, |
| {0} |
| }; |
| |
| static struct isl_arg_choice bound[] = { |
| {"bernstein", ISL_BOUND_BERNSTEIN}, |
| {"range", ISL_BOUND_RANGE}, |
| {0} |
| }; |
| |
| static struct isl_arg_choice on_error[] = { |
| {"warn", ISL_ON_ERROR_WARN}, |
| {"continue", ISL_ON_ERROR_CONTINUE}, |
| {"abort", ISL_ON_ERROR_ABORT}, |
| {0} |
| }; |
| |
| static struct isl_arg_choice isl_schedule_algorithm_choice[] = { |
| {"isl", ISL_SCHEDULE_ALGORITHM_ISL}, |
| {"feautrier", ISL_SCHEDULE_ALGORITHM_FEAUTRIER}, |
| {0} |
| }; |
| |
| static struct isl_arg_flags bernstein_recurse[] = { |
| {"none", ISL_BERNSTEIN_FACTORS | ISL_BERNSTEIN_INTERVALS, 0}, |
| {"factors", ISL_BERNSTEIN_FACTORS | ISL_BERNSTEIN_INTERVALS, |
| ISL_BERNSTEIN_FACTORS}, |
| {"intervals", ISL_BERNSTEIN_FACTORS | ISL_BERNSTEIN_INTERVALS, |
| ISL_BERNSTEIN_INTERVALS}, |
| {"full", ISL_BERNSTEIN_FACTORS | ISL_BERNSTEIN_INTERVALS, |
| ISL_BERNSTEIN_FACTORS | ISL_BERNSTEIN_INTERVALS}, |
| {0} |
| }; |
| |
| static struct isl_arg_choice convex[] = { |
| {"wrap", ISL_CONVEX_HULL_WRAP}, |
| {"fm", ISL_CONVEX_HULL_FM}, |
| {0} |
| }; |
| |
| #define ISL_SCHEDULE_FUSE_MAX 0 |
| #define ISL_SCHEDULE_FUSE_MIN 1 |
| |
| static struct isl_arg_choice fuse[] = { |
| {"max", ISL_SCHEDULE_FUSE_MAX}, |
| {"min", ISL_SCHEDULE_FUSE_MIN}, |
| {0} |
| }; |
| |
| /* Callback for setting the "schedule-fuse" option. |
| * This (now hidden) option tries to mimic an option that was |
| * replaced by the schedule-serialize-sccs option. |
| * Setting the old option to ISL_SCHEDULE_FUSE_MIN is now |
| * expressed by turning on the schedule-serialize-sccs option. |
| */ |
| static int set_fuse(void *opt, unsigned val) |
| { |
| struct isl_options *options = opt; |
| |
| options->schedule_serialize_sccs = (val == ISL_SCHEDULE_FUSE_MIN); |
| |
| return 0; |
| } |
| |
| static struct isl_arg_choice separation_bounds[] = { |
| {"explicit", ISL_AST_BUILD_SEPARATION_BOUNDS_EXPLICIT}, |
| {"implicit", ISL_AST_BUILD_SEPARATION_BOUNDS_IMPLICIT}, |
| {0} |
| }; |
| |
| static void print_version(void) |
| { |
| printf("%s", isl_version()); |
| } |
| |
| ISL_ARGS_START(struct isl_options, isl_options_args) |
| ISL_ARG_CHOICE(struct isl_options, context, 0, "context", \ |
| isl_pip_context_choice, ISL_CONTEXT_GBR, |
| "how to handle the pip context tableau") |
| ISL_ARG_CHOICE(struct isl_options, gbr, 0, "gbr", \ |
| isl_gbr_choice, ISL_GBR_ALWAYS, |
| "how often to use generalized basis reduction") |
| ISL_ARG_CHOICE(struct isl_options, closure, 0, "closure", \ |
| isl_closure_choice, ISL_CLOSURE_ISL, |
| "closure operation to use") |
| ISL_ARG_BOOL(struct isl_options, gbr_only_first, 0, "gbr-only-first", 0, |
| "only perform basis reduction in first direction") |
| ISL_ARG_CHOICE(struct isl_options, bound, 0, "bound", bound, |
| ISL_BOUND_BERNSTEIN, "algorithm to use for computing bounds") |
| ISL_ARG_CHOICE(struct isl_options, on_error, 0, "on-error", on_error, |
| ISL_ON_ERROR_WARN, "how to react if an error is detected") |
| ISL_ARG_FLAGS(struct isl_options, bernstein_recurse, 0, |
| "bernstein-recurse", bernstein_recurse, ISL_BERNSTEIN_FACTORS, NULL) |
| ISL_ARG_BOOL(struct isl_options, bernstein_triangulate, 0, |
| "bernstein-triangulate", 1, |
| "triangulate domains during Bernstein expansion") |
| ISL_ARG_BOOL(struct isl_options, pip_symmetry, 0, "pip-symmetry", 1, |
| "detect simple symmetries in PIP input") |
| ISL_ARG_CHOICE(struct isl_options, convex, 0, "convex-hull", \ |
| convex, ISL_CONVEX_HULL_WRAP, "convex hull algorithm to use") |
| ISL_ARG_BOOL(struct isl_options, coalesce_bounded_wrapping, 0, |
| "coalesce-bounded-wrapping", 1, "bound wrapping during coalescing") |
| ISL_ARG_INT(struct isl_options, schedule_max_coefficient, 0, |
| "schedule-max-coefficient", "limit", -1, "Only consider schedules " |
| "where the coefficients of the variable and parameter dimensions " |
| "do not exceed <limit>. A value of -1 allows arbitrary coefficients.") |
| ISL_ARG_INT(struct isl_options, schedule_max_constant_term, 0, |
| "schedule-max-constant-term", "limit", -1, "Only consider schedules " |
| "where the coefficients of the constant dimension do not exceed " |
| "<limit>. A value of -1 allows arbitrary coefficients.") |
| ISL_ARG_BOOL(struct isl_options, schedule_parametric, 0, |
| "schedule-parametric", 1, "construct possibly parametric schedules") |
| ISL_ARG_BOOL(struct isl_options, schedule_outer_coincidence, 0, |
| "schedule-outer-coincidence", 0, |
| "try to construct schedules where the outer member of each band " |
| "satisfies the coincidence constraints") |
| ISL_ARG_BOOL(struct isl_options, schedule_maximize_band_depth, 0, |
| "schedule-maximize-band-depth", 0, |
| "maximize the number of scheduling dimensions in a band") |
| ISL_ARG_BOOL(struct isl_options, schedule_maximize_coincidence, 0, |
| "schedule-maximize-coincidence", 0, |
| "maximize the number of coincident dimensions in a band") |
| ISL_ARG_BOOL(struct isl_options, schedule_split_scaled, 0, |
| "schedule-split-scaled", 1, |
| "split non-tilable bands with scaled schedules") |
| ISL_ARG_BOOL(struct isl_options, schedule_treat_coalescing, 0, |
| "schedule-treat-coalescing", 1, |
| "try and prevent or adjust schedules that perform loop coalescing") |
| ISL_ARG_BOOL(struct isl_options, schedule_separate_components, 0, |
| "schedule-separate-components", 1, |
| "separate components in dependence graph") |
| ISL_ARG_BOOL(struct isl_options, schedule_whole_component, 0, |
| "schedule-whole-component", 1, |
| "try and compute schedule for entire component first") |
| ISL_ARG_CHOICE(struct isl_options, schedule_algorithm, 0, |
| "schedule-algorithm", isl_schedule_algorithm_choice, |
| ISL_SCHEDULE_ALGORITHM_ISL, "scheduling algorithm to use") |
| ISL_ARG_BOOL(struct isl_options, schedule_carry_self_first, 0, |
| "schedule-carry-self-first", 1, "try and carry self-dependences first") |
| ISL_ARG_BOOL(struct isl_options, schedule_serialize_sccs, 0, |
| "schedule-serialize-sccs", 0, |
| "serialize strongly connected components in dependence graph") |
| ISL_ARG_PHANTOM_USER_CHOICE_F(0, "schedule-fuse", fuse, &set_fuse, |
| ISL_SCHEDULE_FUSE_MAX, "level of fusion during scheduling", |
| ISL_ARG_HIDDEN) |
| ISL_ARG_BOOL(struct isl_options, tile_scale_tile_loops, 0, |
| "tile-scale-tile-loops", 1, "scale tile loops") |
| ISL_ARG_BOOL(struct isl_options, tile_shift_point_loops, 0, |
| "tile-shift-point-loops", 1, "shift point loops to start at zero") |
| ISL_ARG_STR(struct isl_options, ast_iterator_type, 0, |
| "ast-iterator-type", "type", "int", |
| "type used for iterators during printing of AST") |
| ISL_ARG_BOOL(struct isl_options, ast_always_print_block, 0, |
| "ast-always-print-block", 0, "print for and if bodies as a block " |
| "regardless of the number of statements in the body") |
| ISL_ARG_BOOL(struct isl_options, ast_print_macro_once, 0, |
| "ast-print-macro-once", 0, "only print macro definitions once") |
| ISL_ARG_BOOL(struct isl_options, ast_build_atomic_upper_bound, 0, |
| "ast-build-atomic-upper-bound", 1, "generate atomic upper bounds") |
| ISL_ARG_BOOL(struct isl_options, ast_build_prefer_pdiv, 0, |
| "ast-build-prefer-pdiv", 1, "prefer pdiv operation over fdiv") |
| ISL_ARG_BOOL(struct isl_options, ast_build_detect_min_max, 0, |
| "ast-build-detect-min-max", 0, "detect min/max expressions") |
| ISL_ARG_BOOL(struct isl_options, ast_build_exploit_nested_bounds, 0, |
| "ast-build-exploit-nested-bounds", 1, |
| "simplify conditions based on bounds of nested for loops") |
| ISL_ARG_BOOL(struct isl_options, ast_build_group_coscheduled, 0, |
| "ast-build-group-coscheduled", 0, |
| "keep coscheduled domain elements together") |
| ISL_ARG_CHOICE(struct isl_options, ast_build_separation_bounds, 0, |
| "ast-build-separation-bounds", separation_bounds, |
| ISL_AST_BUILD_SEPARATION_BOUNDS_EXPLICIT, |
| "bounds to use during separation") |
| ISL_ARG_BOOL(struct isl_options, ast_build_scale_strides, 0, |
| "ast-build-scale-strides", 1, |
| "allow iterators of strided loops to be scaled down") |
| ISL_ARG_BOOL(struct isl_options, ast_build_allow_else, 0, |
| "ast-build-allow-else", 1, "generate if statements with else branches") |
| ISL_ARG_BOOL(struct isl_options, ast_build_allow_or, 0, |
| "ast-build-allow-or", 1, "generate if conditions with disjunctions") |
| ISL_ARG_BOOL(struct isl_options, print_stats, 0, "print-stats", 0, |
| "print statistics for every isl_ctx") |
| ISL_ARG_ULONG(struct isl_options, max_operations, 0, |
| "max-operations", 0, "default number of maximal operations per isl_ctx") |
| ISL_ARG_VERSION(print_version) |
| ISL_ARGS_END |
| |
| ISL_ARG_DEF(isl_options, struct isl_options, isl_options_args) |
| |
| ISL_ARG_CTX_DEF(isl_options, struct isl_options, isl_options_args) |
| |
| ISL_CTX_SET_CHOICE_DEF(isl_options, struct isl_options, isl_options_args, bound) |
| ISL_CTX_GET_CHOICE_DEF(isl_options, struct isl_options, isl_options_args, bound) |
| |
| ISL_CTX_SET_CHOICE_DEF(isl_options, struct isl_options, isl_options_args, |
| on_error) |
| ISL_CTX_GET_CHOICE_DEF(isl_options, struct isl_options, isl_options_args, |
| on_error) |
| |
| ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| pip_symmetry) |
| ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| pip_symmetry) |
| |
| ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| coalesce_bounded_wrapping) |
| ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| coalesce_bounded_wrapping) |
| |
| ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| gbr_only_first) |
| ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| gbr_only_first) |
| |
| ISL_CTX_SET_INT_DEF(isl_options, struct isl_options, isl_options_args, |
| schedule_max_coefficient) |
| ISL_CTX_GET_INT_DEF(isl_options, struct isl_options, isl_options_args, |
| schedule_max_coefficient) |
| |
| ISL_CTX_SET_INT_DEF(isl_options, struct isl_options, isl_options_args, |
| schedule_max_constant_term) |
| ISL_CTX_GET_INT_DEF(isl_options, struct isl_options, isl_options_args, |
| schedule_max_constant_term) |
| |
| ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| schedule_maximize_band_depth) |
| ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| schedule_maximize_band_depth) |
| |
| ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| schedule_maximize_coincidence) |
| ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| schedule_maximize_coincidence) |
| |
| ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| schedule_split_scaled) |
| ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| schedule_split_scaled) |
| |
| ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| schedule_treat_coalescing) |
| ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| schedule_treat_coalescing) |
| |
| ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| schedule_separate_components) |
| ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| schedule_separate_components) |
| |
| ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| schedule_whole_component) |
| ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| schedule_whole_component) |
| |
| ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| schedule_outer_coincidence) |
| ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| schedule_outer_coincidence) |
| |
| ISL_CTX_SET_CHOICE_DEF(isl_options, struct isl_options, isl_options_args, |
| schedule_algorithm) |
| ISL_CTX_GET_CHOICE_DEF(isl_options, struct isl_options, isl_options_args, |
| schedule_algorithm) |
| |
| ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| schedule_carry_self_first) |
| ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| schedule_carry_self_first) |
| |
| ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| schedule_serialize_sccs) |
| ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| schedule_serialize_sccs) |
| |
| ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| tile_scale_tile_loops) |
| ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| tile_scale_tile_loops) |
| |
| ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| tile_shift_point_loops) |
| ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| tile_shift_point_loops) |
| |
| ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| ast_build_atomic_upper_bound) |
| ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| ast_build_atomic_upper_bound) |
| |
| ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| ast_build_prefer_pdiv) |
| ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| ast_build_prefer_pdiv) |
| |
| ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| ast_build_detect_min_max) |
| ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| ast_build_detect_min_max) |
| |
| ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| ast_build_exploit_nested_bounds) |
| ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| ast_build_exploit_nested_bounds) |
| |
| ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| ast_build_group_coscheduled) |
| ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| ast_build_group_coscheduled) |
| |
| ISL_CTX_SET_STR_DEF(isl_options, struct isl_options, isl_options_args, |
| ast_iterator_type) |
| ISL_CTX_GET_STR_DEF(isl_options, struct isl_options, isl_options_args, |
| ast_iterator_type) |
| |
| ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| ast_always_print_block) |
| ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| ast_always_print_block) |
| |
| ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| ast_print_macro_once) |
| ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| ast_print_macro_once) |
| |
| ISL_CTX_SET_CHOICE_DEF(isl_options, struct isl_options, isl_options_args, |
| ast_build_separation_bounds) |
| ISL_CTX_GET_CHOICE_DEF(isl_options, struct isl_options, isl_options_args, |
| ast_build_separation_bounds) |
| |
| ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| ast_build_scale_strides) |
| ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| ast_build_scale_strides) |
| |
| ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| ast_build_allow_else) |
| ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| ast_build_allow_else) |
| |
| ISL_CTX_SET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| ast_build_allow_or) |
| ISL_CTX_GET_BOOL_DEF(isl_options, struct isl_options, isl_options_args, |
| ast_build_allow_or) |