d8473f5640e93c94b94818ad7f8d2193e8f40336
[darcs-mirrors/vector.git] / include / vector.h
1 #define PHASE_STREAM [1]
2 #define PHASE_INNER [0]
3
4 #define INLINE_STREAM INLINE PHASE_STREAM
5 #define INLINE_INNER INLINE PHASE_INNER
6
7 #ifndef NOT_VECTOR_MODULE
8 import qualified Data.Vector.Internal.Check as Ck
9 #endif
10
11 #define ERROR (Ck.error __FILE__ __LINE__)
12 #define INTERNAL_ERROR (Ck.internalError __FILE__ __LINE__)
13
14 #define CHECK(f) (Ck.f __FILE__ __LINE__)
15 #define BOUNDS_CHECK(f) (CHECK(f) Ck.Bounds)
16 #define UNSAFE_CHECK(f) (CHECK(f) Ck.Unsafe)
17 #define INTERNAL_CHECK(f) (CHECK(f) Ck.Internal)
18
19