fixed

Pure Haskell large fixed-width integers.
git clone git://git.ppad.tech/fixed.git
Log | Files | Refs | README | LICENSE

commit 5145ed6597dfdac8ffa3d52f2ed892f69831315b
parent 4df9f511b7baf73524a8e8cca6a71015ce82e754
Author: Jared Tobin <jared@jtobin.io>
Date:   Sat, 22 Nov 2025 16:54:40 +0400

lib: NOINLINE sqr# for now

Diffstat:
Mlib/Numeric/Montgomery/Secp256k1/Curve.hs | 2+-
Mlib/Numeric/Montgomery/Secp256k1/Scalar.hs | 2+-
2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/Numeric/Montgomery/Secp256k1/Curve.hs b/lib/Numeric/Montgomery/Secp256k1/Curve.hs @@ -374,7 +374,7 @@ neg (Montgomery a) = Montgomery (neg# a) sqr# :: (# Word#, Word#, Word#, Word# #) -> (# Word#, Word#, Word#, Word# #) sqr# a = mul# a a -{-# INLINE sqr# #-} +{-# NOINLINE sqr# #-} sqr :: Montgomery -> Montgomery sqr (Montgomery a) = Montgomery (mul# a a) diff --git a/lib/Numeric/Montgomery/Secp256k1/Scalar.hs b/lib/Numeric/Montgomery/Secp256k1/Scalar.hs @@ -375,7 +375,7 @@ neg (Montgomery a) = Montgomery (neg# a) sqr# :: (# Word#, Word#, Word#, Word# #) -> (# Word#, Word#, Word#, Word# #) sqr# a = mul# a a -{-# INLINE sqr# #-} +{-# NOINLINE sqr# #-} sqr :: Montgomery -> Montgomery sqr (Montgomery a) = Montgomery (mul# a a)