Backport changes for GHC 9.2 on 3.2.5

Because CI is currently broken, and there is no straightforward way to
test GHC prior to release, I want to do as bare-minimal a release as
possible.

Author: Ericson2314

CHANGELOG.md

@@ -1,3 +1,20 @@
+## Changes in 3.2.6:
+
+ * Support for the GHC 9.2.
+
+   The array access primops now read/write with the fixed-sized numeric
+   type corresponding to the width of the data accessed. Additionally,
+   the primops to convert to and from fixed-sized numeric types have
+   been given new names.
+
+   9.2 isn't cut yet, so these changes are somewhat speculative, but
+   unfortunately GHC must used a released version of Alex (and Happy) at
+   all times until further changes have been made, so we must make the
+   release to actually implement these changes in GHC.
+
+   If the final GHC 9.2 ends up being different, this release will be
+   marked broken to make it less likely people use it by accident.
+
 ## Changes in 3.2.5:
 
  * Build fixes for GHC 8.8.x

alex.cabal

@@ -1,6 +1,6 @@
 cabal-version: >= 1.8
 name: alex
-version: 3.2.5
+version: 3.2.6
 -- don't forget updating changelog.md!
 license: BSD3
 license-file: LICENSE

templates/GenericTemplate.hs

@@ -12,6 +12,7 @@
 #define ALEX_IF_GHC_GT_500 #if __GLASGOW_HASKELL__ > 500
 #define ALEX_IF_GHC_LT_503 #if __GLASGOW_HASKELL__ < 503
 #define ALEX_IF_GHC_GT_706 #if __GLASGOW_HASKELL__ > 706
+#define ALEX_IF_GHC_GT_901 #if __GLASGOW_HASKELL__ > 901
 #define ALEX_ELIF_GHC_500 #elif __GLASGOW_HASKELL__ == 500
 #define ALEX_IF_BIGENDIAN #ifdef WORDS_BIGENDIAN
 #define ALEX_ELSE #else
@@ -57,9 +58,14 @@ uncheckedShiftL# = shiftL#
 ALEX_ENDIF
 
 {-# INLINE alexIndexInt16OffAddr #-}
+alexIndexInt16OffAddr :: AlexAddr -> Int# -> Int#
 alexIndexInt16OffAddr (AlexA# arr) off =
 ALEX_IF_BIGENDIAN
+ALEX_IF_GHC_GT_901
   narrow16Int# i
+ALEX_ELSE
+  int16ToInt# i
+ALEX_ENDIF
   where
         i    = word2Int# ((high `uncheckedShiftL#` 8#) `or#` low)
         high = int2Word# (ord# (indexCharOffAddr# arr (off' +# 1#)))
@@ -74,9 +80,14 @@ alexIndexInt16OffAddr arr off = arr ! off
 
 #ifdef ALEX_GHC
 {-# INLINE alexIndexInt32OffAddr #-}
+alexIndexInt32OffAddr :: AlexAddr -> Int# -> Int#
 alexIndexInt32OffAddr (AlexA# arr) off =
 ALEX_IF_BIGENDIAN
+ALEX_IF_GHC_GT_901
   narrow32Int# i
+ALEX_ELSE
+  int32ToInt# i
+ALEX_ENDIF
   where
    i    = word2Int# ((b3 `uncheckedShiftL#` 24#) `or#`
                      (b2 `uncheckedShiftL#` 16#) `or#`