Unverified Commit 23ca3cb3 authored by Oleg Grenrus's avatar Oleg Grenrus Committed by GitHub
Browse files

Merge pull request #7205 from phadej/alex-3.2.6

Use alex-3.2.6
parents 6a9e6266 01b930cb
......@@ -35,7 +35,7 @@ jobs:
- name: Update Hackage index
run: cabal v2-update
- name: Install alex
run: cabal v2-install alex
run: cabal v2-install alex --constraint='alex ==3.2.6'
- uses: actions/checkout@v2
- name: Regenerate files
run: |
......
......@@ -372,6 +372,7 @@ uncheckedShiftL# = shiftL#
#endif
{-# INLINE alexIndexInt16OffAddr #-}
alexIndexInt16OffAddr :: AlexAddr -> Int# -> Int#
alexIndexInt16OffAddr (AlexA# arr) off =
#ifdef WORDS_BIGENDIAN
narrow16Int# i
......@@ -381,10 +382,14 @@ alexIndexInt16OffAddr (AlexA# arr) off =
low = int2Word# (ord# (indexCharOffAddr# arr off'))
off' = off *# 2#
#else
indexInt16OffAddr# arr off
#if __GLASGOW_HASKELL__ >= 901
int16ToInt#
#endif
(indexInt16OffAddr# arr off)
#endif
{-# INLINE alexIndexInt32OffAddr #-}
alexIndexInt32OffAddr :: AlexAddr -> Int# -> Int#
alexIndexInt32OffAddr (AlexA# arr) off =
#ifdef WORDS_BIGENDIAN
narrow32Int# i
......@@ -398,7 +403,10 @@ alexIndexInt32OffAddr (AlexA# arr) off =
b0 = int2Word# (ord# (indexCharOffAddr# arr off'))
off' = off *# 4#
#else
indexInt32OffAddr# arr off
#if __GLASGOW_HASKELL__ >= 901
int32ToInt#
#endif
(indexInt32OffAddr# arr off)
#endif
#if __GLASGOW_HASKELL__ < 503
......
......@@ -35,7 +35,7 @@ jobs:
- name: Update Hackage index
run: cabal v2-update
- name: Install alex
run: cabal v2-install alex
run: cabal v2-install alex --constraint='alex ==3.2.6'
- uses: actions/checkout@v2
- name: Regenerate files
run: |
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment