vegowotenks/java-classfile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix: Hopefully fixed the weird last ConstantPool entry

Browse source
This commit is contained in:
vegowotenks 2025-07-11 23:12:41 +02:00
parent 7da2a30cbb
commit 0f44368c35
2 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/Language/Java/Classfile/Extractable.hs
View file

@ -65,8 +65,8 @@ instance (Extractable index, Extractable element, Ix index, Integral index) => E
extract :: Extract (Array index element) extract :: Extract (Array index element)
extract = do extract = do
count <- extract count <- extract
elements <- forM [1..fromIntegral count] $ \ i -> traceIndex i extract elements <- forM [1..fromIntegral count - 1] $ \ i -> traceIndex i extract
pure $ listArray (1, count) elements pure $ listArray (1, count - 1) elements
deriving via Generically () instance Extractable () deriving via Generically () instance Extractable ()
deriving via Generically (a, b) instance (Extractable a, Extractable b) => Extractable (a, b) deriving via Generically (a, b) instance (Extractable a, Extractable b) => Extractable (a, b)

1
src/Language/Java/Classfile/FromBigEndian.hs
View file

@ -3,7 +3,6 @@ module Language.Java.Classfile.FromBigEndian (FromBigEndian(fromBigEndian)) wher
import Data.Word (Word16, byteSwap16, Word32, byteSwap32) import Data.Word (Word16, byteSwap16, Word32, byteSwap32)
import GHC.ByteOrder (ByteOrder(..)) import GHC.ByteOrder (ByteOrder(..))
import qualified GHC.ByteOrder as GHC import qualified GHC.ByteOrder as GHC
import Data.Int (Int32)
class FromBigEndian a where class FromBigEndian a where
fromBigEndian :: a -> a fromBigEndian :: a -> a