| 1 | /* |
|---|
| 2 | * Copyright 2011 Sven Verdoolaege |
|---|
| 3 | * |
|---|
| 4 | * Use of this software is governed by the MIT license |
|---|
| 5 | * |
|---|
| 6 | * Written by Sven Verdoolaege |
|---|
| 7 | */ |
|---|
| 8 | |
|---|
| 9 | #define xFN(TYPE,NAME) TYPE ## _ ## NAME |
|---|
| 10 | #define FN(TYPE,NAME) xFN(TYPE,NAME) |
|---|
| 11 | |
|---|
| 12 | /* Align the parameters of the two arguments of type ARG1 and ARG2 |
|---|
| 13 | * (if needed). |
|---|
| 14 | */ |
|---|
| 15 | isl_stat FN(FN(ARG1,align_params),SUFFIX)(__isl_keep ARG1 **obj1, |
|---|
| 16 | __isl_keep ARG2 **obj2) |
|---|
| 17 | { |
|---|
| 18 | isl_space *space1, *space2; |
|---|
| 19 | isl_bool equal_params; |
|---|
| 20 | |
|---|
| 21 | space1 = FN(ARG1,peek_space)(pw: *obj1); |
|---|
| 22 | space2 = FN(ARG2,peek_space)(pw: *obj2); |
|---|
| 23 | equal_params = isl_space_has_equal_params(space1, space2); |
|---|
| 24 | if (equal_params < 0) |
|---|
| 25 | goto error; |
|---|
| 26 | if (equal_params) |
|---|
| 27 | return isl_stat_ok; |
|---|
| 28 | if (FN(ARG1,check_named_params)(obj: *obj1) < 0 || |
|---|
| 29 | FN(ARG2,check_named_params)(obj: *obj2) < 0) |
|---|
| 30 | goto error; |
|---|
| 31 | *obj1 = FN(ARG1,align_params)(pw: *obj1, FN(ARG2,get_space)(pw: *obj2)); |
|---|
| 32 | *obj2 = FN(ARG2,align_params)(pw: *obj2, FN(ARG1,get_space)(pw: *obj1)); |
|---|
| 33 | if (!*obj1 || !*obj2) |
|---|
| 34 | goto error; |
|---|
| 35 | return isl_stat_ok; |
|---|
| 36 | error: |
|---|
| 37 | *obj1 = FN(ARG1,free)(pw: *obj1); |
|---|
| 38 | *obj2 = FN(ARG2,free)(pw: *obj2); |
|---|
| 39 | return isl_stat_error; |
|---|
| 40 | } |
|---|
| 41 | |
|---|
