00001
00037
00038
00039
00040
00041
00042 #ifndef CANDL_H
00043 # define CANDL_H
00044
00045 # define CANDL_RELEASE "0.5.0"
00046 # define CANDL_VERSION "64"
00047 # define CANDL_SUPPORTS_SCOPLIB
00048 # define CANDL_SUPPORTS_ISL
00049
00050
00051 # include <piplib/piplib64.h>
00052 # include <candl/options.h>
00053 # include <candl/matrix.h>
00054 # include <candl/statement.h>
00055 # include <candl/program.h>
00056 # include <candl/dependence.h>
00057 # include <candl/violation.h>
00058
00059 # define CANDL_UNSET -1
00060
00061
00062
00063 # define CANDL_RAW 1
00064 # define CANDL_WAR 2
00065 # define CANDL_WAW 3
00066 # define CANDL_RAR 4
00067
00068 # define CANDL_ASSIGNMENT 1
00069 # define CANDL_P_REDUCTION 2
00070 # define CANDL_M_REDUCTION 3
00071 # define CANDL_T_REDUCTION 4
00072
00073 # define CANDL_EQUAL 1
00074 # define CANDL_POSIT 2
00075 # define CANDL_LATER 3
00076 # define CANDL_NEVER 4
00077
00078 # define CANDL_NB_INFOS 3
00079
00080 # define CANDL_MAX_STRING 2048
00081 # define CANDL_TEMP_OUTPUT "candl.temp"
00082
00083
00084 # define CANDL_max(x,y) ((x) > (y)? (x) : (y))
00085 # define CANDL_min(x,y) ((x) < (y)? (x) : (y))
00086
00087 # define CANDL_FAIL(msg) { fprintf(stderr, "[Candl] " msg "\n"); exit(1); }
00088
00089
00090
00091
00092 #if defined(LINEAR_VALUE_IS_LONGLONG)
00093 #define CANDL_FMT "%4lld "
00094 #elif defined(LINEAR_VALUE_IS_LONG)
00095 #define CANDL_FMT "%4ld "
00096 #else
00097 #define CANDL_FMT "%4s"
00098 #endif
00099
00100
00101
00102
00103 #ifdef LINEAR_VALUE_IS_MP
00104
00105 #define CANDL_init(val) (mpz_init((val)))
00106 #define CANDL_assign(v1,v2) (mpz_set((v1),(v2)))
00107 #define CANDL_set_si(val,i) (mpz_set_si((val),(i)))
00108 #define CANDL_get_si(val) (mpz_get_si((val)))
00109 #define CANDL_clear(val) (mpz_clear((val)))
00110 #define CANDL_print(Dst,fmt,val) { char *str; \
00111 str = mpz_get_str(0,10,(val)); \
00112 fprintf((Dst),(fmt),str); free(str); \
00113 }
00114
00115
00116 #define CANDL_eq(v1,v2) (mpz_cmp((v1),(v2)) == 0)
00117 #define CANDL_ne(v1,v2) (mpz_cmp((v1),(v2)) != 0)
00118
00119
00120 #define CANDL_increment(ref,val) (mpz_add_ui((ref),(val),1))
00121 #define CANDL_decrement(ref,val) (mpz_sub_ui((ref),(val),1))
00122 #define CANDL_subtract(ref,val1,val2) (mpz_sub((ref),(val1),(val2)))
00123 #define CANDL_oppose(ref,val) (mpz_neg((ref),(val)))
00124
00125
00126 #define CANDL_zero_p(val) (mpz_sgn(val) == 0)
00127 #define CANDL_notzero_p(val) (mpz_sgn(val) != 0)
00128
00129
00130
00131
00132 #else
00133
00134 #define CANDL_init(val) ((val) = 0)
00135 #define CANDL_assign(v1,v2) ((v1) = (v2))
00136 #define CANDL_set_si(val,i) ((val) = (Entier)(i))
00137 #define CANDL_get_si(val) ((val))
00138 #define CANDL_clear(val) ((val) = 0)
00139 #define CANDL_print(Dst,fmt,val) (fprintf((Dst),(fmt),(val)))
00140
00141
00142 #define CANDL_eq(v1,v2) ((v1)==(v2))
00143 #define CANDL_ne(v1,v2) ((v1)!=(v2))
00144
00145
00146 #define CANDL_increment(ref,val) ((ref) = (val)+(Entier)(1))
00147 #define CANDL_decrement(ref,val) ((ref) = (val)-(Entier)(1))
00148 #define CANDL_subtract(ref,val1,val2) ((ref) = (val1)-(val2))
00149 #define CANDL_oppose(ref,val) ((ref) = (-(val)))
00150
00151
00152 #define CANDL_zero_p(val) CANDL_eq(val,0)
00153 #define CANDL_notzero_p(val) CANDL_ne(val,0)
00154
00155 #endif
00156
00157 #endif // !CANDL_H