Make some helpers INLINEABLE

IntersectMBO · Jul 20, 2024 · 72b4228 · 72b4228
1 parent ac9a27c
commit 72b4228
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/plutus-core/plutus-core/src/PlutusCore/Bitwise.hs b/plutus-core/plutus-core/src/PlutusCore/Bitwise.hs
@@ -578,6 +578,8 @@ writeBits bs ixs bits = case unsafeDupablePerformIO . try $ go of
       where go2 :: (a -> b -> IO()) -> [a] -> [b] -> IO ()
             go2 f (i:is) (v:vs) = f i v *> go2 f is vs
             go2 _ _ _           = pure ()
+            {-# INLINEABLE go2 #-}
+    {-# INLINEABLE go #-}
     len :: Int
     len = BS.length bs
     bitLen :: Integer
@@ -594,6 +596,7 @@ writeBits bs ixs bits = case unsafeDupablePerformIO . try $ go of
                         then Bits.setBit w8 . fromIntegral $ littleIx
                         else Bits.clearBit w8 . fromIntegral $ littleIx
           pokeByteOff ptr flipIx toWrite
+    {-# INLINEABLE setAtIx #-}
 
 -- | Byte replication, as per [CIP-122](https://github.com/cardano-foundation/CIPs/tree/master/CIP-0122)
 -- We want to cautious about the allocation of huge amounts of memory so we