File tree Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Original file line number Diff line number Diff line change 12
12
#define ALEX_IF_GHC_GT_500 #if __GLASGOW_HASKELL__ > 500
13
13
#define ALEX_IF_GHC_LT_503 #if __GLASGOW_HASKELL__ < 503
14
14
#define ALEX_IF_GHC_GT_706 #if __GLASGOW_HASKELL__ > 706
15
- #define ALEX_IF_GHC_GT_901 #if __GLASGOW_HASKELL__ > 901
15
+ #define ALEX_IF_GHC_GE_901 #if __GLASGOW_HASKELL__ >= 901
16
16
#define ALEX_ELIF_GHC_500 #elif __GLASGOW_HASKELL__ == 500
17
17
#define ALEX_IF_BIGENDIAN #ifdef WORDS_BIGENDIAN
18
18
#define ALEX_ELSE #else
@@ -68,7 +68,7 @@ ALEX_IF_BIGENDIAN
68
68
low = int2Word# (ord# (indexCharOffAddr# arr off'))
69
69
off' = off *# 2 #
70
70
ALEX_ELSE
71
- ALEX_IF_GHC_GT_901
71
+ ALEX_IF_GHC_GE_901
72
72
int16ToInt#
73
73
ALEX_ENDIF
74
74
(indexInt16OffAddr# arr off)
@@ -93,7 +93,7 @@ ALEX_IF_BIGENDIAN
93
93
b0 = int2Word# (ord# (indexCharOffAddr# arr off'))
94
94
off' = off *# 4 #
95
95
ALEX_ELSE
96
- ALEX_IF_GHC_GT_901
96
+ ALEX_IF_GHC_GE_901
97
97
int32ToInt#
98
98
ALEX_ENDIF
99
99
(indexInt32OffAddr# arr off)
You can’t perform that action at this time.
0 commit comments