File tree Expand file tree Collapse file tree 1 file changed +4
-4
lines changed Expand file tree Collapse file tree 1 file changed +4
-4
lines changed Original file line number Diff line number Diff line change @@ -165,13 +165,13 @@ alex_scan_tkn user__ orig_input len input__ s last_acc =
165
165
case fromIntegral c of { IBOX (ord_c) ->
166
166
let
167
167
ALEX_IF_GHC_GT_901
168
- base = extendInt32 # (alexIndexInt32OffAddr alex_base s)
168
+ base = int32ToInt # (alexIndexInt32OffAddr alex_base s)
169
169
offset = PLUS (base,ord_c)
170
- check = extendInt16 # (alexIndexInt16OffAddr alex_check offset)
170
+ check = int16ToInt # (alexIndexInt16OffAddr alex_check offset)
171
171
172
172
new_s = if GTE (offset,ILIT (0 )) && EQ (check,ord_c)
173
- then extendInt16 # (alexIndexInt16OffAddr alex_table offset)
174
- else extendInt16 # (alexIndexInt16OffAddr alex_deflt s)
173
+ then int16ToInt # (alexIndexInt16OffAddr alex_table offset)
174
+ else int16ToInt # (alexIndexInt16OffAddr alex_deflt s)
175
175
ALEX_ELSE
176
176
base = alexIndexInt32OffAddr alex_base s
177
177
offset = PLUS (base,ord_c)
You can’t perform that action at this time.
0 commit comments