]> gitweb.factorcode.org Git - factor.git/commitdiff
checksums: fix ambiguity.
authorJohn Benediktsson <mrjbq7@gmail.com>
Thu, 30 Dec 2021 05:38:30 +0000 (21:38 -0800)
committerJohn Benediktsson <mrjbq7@gmail.com>
Thu, 30 Dec 2021 05:38:30 +0000 (21:38 -0800)
basis/checksums/metrohash/metrohash.factor
basis/checksums/murmur/murmur.factor
basis/checksums/superfast/superfast.factor
basis/checksums/wyhash/wyhash.factor
basis/checksums/xxhash/xxhash.factor

index d9f2620c344c14126d7ecf5728cf059e11902ba8..7713088cd85ad97b258cde43334cbc32f3c50b43 100644 (file)
@@ -17,7 +17,7 @@ C: <metrohash-64> metrohash-64
 
 :: native-mapper ( from to bytes c-type -- seq )
     from to bytes <slice>
-    bytes byte-array? little-endian? and
+    bytes byte-array? alien.data:little-endian? and
     [ c-type cast-array ]
     [ c-type heap-size <groups> [ le> ] map ] if ; inline
 
index 4a0955442c1dccddddd364ffead019649ec3f935..28576cf50bb91c252c57e9491dcc13325fb71f53 100644 (file)
@@ -27,7 +27,7 @@ CONSTANT: n 0xe6546b64
     (hash-chunk) bitxor r2 bitroll-32 m w* n w+ ; inline
 
 : main-loop ( seq hash -- seq hash' )
-    over byte-array? little-endian? and [
+    over byte-array? alien.data:little-endian? and [
         [ 0 over length 4 - 4 <range> ] dip
         [ pick <displaced-alien> int deref hash-chunk ] reduce
     ] [
index e9491a0fb4dda6d7acb25d479e658e0889e13119..518ca303aba2b347db067bed1f5c9507a714eddd 100644 (file)
@@ -19,7 +19,7 @@ C: <superfast> superfast
     [ -11 shift ] [ + ] bi ; inline
 
 : main-loop ( seq hash -- seq hash' )
-    over byte-array? little-endian? and [
+    over byte-array? alien.data:little-endian? and [
         [ 0 over length 4 - 4 <range> ] dip
         [ pick <displaced-alien> int deref (main-loop) ] reduce
     ] [
index 2035a9b7e826c2d0cbb1368cf20034a0c2e16e1d..0b67654a87652ac7c54d841e70b62de162c5f2dc 100644 (file)
@@ -51,7 +51,7 @@ CONSTANT: P3 0x589965cc75374cc3
 
 :: native-mapper ( from to bytes c-type -- seq )
     from to bytes <slice>
-    bytes byte-array? little-endian? and
+    bytes byte-array? alien.data:little-endian? and
     [ c-type cast-array ]
     [ c-type heap-size <groups> [ le> ] map ] if ; inline
 
index 021cf34f74c16a5cfb40db6368d90d20512ff4a5..683afee52037d6efdfeec2604044892996569b1e 100644 (file)
@@ -23,7 +23,7 @@ C: <xxhash> xxhash
 
 :: native-mapper ( from to bytes c-type -- seq )
     from to bytes <slice>
-    bytes byte-array? little-endian? and
+    bytes byte-array? alien.data:little-endian? and
     [ c-type cast-array ]
     [ c-type heap-size <groups> [ le> ] map ] if ; inline