Skip to content

Commit 6e2ae91

Browse files
authored
Use upcomming renamed primops for GHC 9.2 branch
This change corresponds to https://gitlab.haskell.org/ghc/ghc/-/merge_requests/4492
1 parent aaa5992 commit 6e2ae91

File tree

1 file changed

+4
-4
lines changed

1 file changed

+4
-4
lines changed

templates/GenericTemplate.hs

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -165,13 +165,13 @@ alex_scan_tkn user__ orig_input len input__ s last_acc =
165165
case fromIntegral c of { IBOX(ord_c) ->
166166
let
167167
ALEX_IF_GHC_GT_901
168-
base = extendInt32# (alexIndexInt32OffAddr alex_base s)
168+
base = int32ToInt# (alexIndexInt32OffAddr alex_base s)
169169
offset = PLUS(base,ord_c)
170-
check = extendInt16# (alexIndexInt16OffAddr alex_check offset)
170+
check = int16ToInt# (alexIndexInt16OffAddr alex_check offset)
171171

172172
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)
175175
ALEX_ELSE
176176
base = alexIndexInt32OffAddr alex_base s
177177
offset = PLUS(base,ord_c)

0 commit comments

Comments
 (0)