fixed

commit 5528a92eec3314ed8d287223e137382db9002c61
parent bf231ae5395bf9251f790f304368c5384097ff8b
Author: Jared Tobin <jared@jtobin.io>
Date:   Thu, 23 Jan 2025 22:40:09 +0400

lib: little endian

Diffstat:
M
lib/Data/Word/Extended.hs
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lib/Data/Word/Extended.hs b/lib/Data/Word/Extended.hs
@@ -535,10 +535,10 @@ quotrem quo u d mr = do
         case mr of
           Nothing  -> pure ()
           Just !re -> do
-            PA.writePrimArray re 0 0
+            PA.writePrimArray re 0 (r .>>. shift)
             PA.writePrimArray re 1 0
             PA.writePrimArray re 2 0
-            PA.writePrimArray re 3 (r .>>. shift)
+            PA.writePrimArray re 3 0
       else do
         dnf <- PA.unsafeFreezePrimArray dn
         quotrem_knuth quo un dnf