File tree Expand file tree Collapse file tree 1 file changed +1
-3
lines changed
plutus-core/plutus-core/src/PlutusCore/Evaluation/Machine Expand file tree Collapse file tree 1 file changed +1
-3
lines changed Original file line number Diff line number Diff line change @@ -260,9 +260,7 @@ memoryUsageBytes :: Integer -> CostingInteger
260
260
-- integerLog2# is unspecified for 0 (but in practice returns -1)
261
261
-- ^ This changed with GHC 9.2: it now returns 0. It's probably safest if we
262
262
-- keep this special case for the time being though.
263
- memoryUsageBytes 0 = 1
264
- memoryUsageBytes i = fromIntegral $ I # (integerLog2# (abs i) `quotInt# ` integerToInt 8 )+ 1
265
- -- memoryUsageBits i = fromIntegral $ I# (integerLog2# (abs i) `quotInt#` integerToInt 64) + 1
263
+ memoryUsageBytes = memoryUsageInteger
266
264
-- So that the produced GHC Core doesn't explode in size, we don't win anything by inlining this
267
265
-- function anyway.
268
266
{-# OPAQUE memoryUsageBytes #-}
You can’t perform that action at this time.
0 commit comments