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 */
set_fuse(void * opt,unsigned val)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
print_version(void)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)
393