summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-02-03 22:57:58 +0100
committerLudovic Courtès <ludo@gnu.org>2013-02-04 08:58:47 +0100
commit238e43b9faa45c88fc2581e3d6d3a87187f3ec33 (patch)
treee807582e7035add3ab5b06dd6817830d2dc2403b
parent9c63fe6c1f855a09a62d6d74739ce6eced6fdef8 (diff)
store: Write string length as a 32-bit integer.
* guix/store.scm (write-string): Write L as a 32-bit integer. Bug introduced in 82c38fe64c84fc3febcc5c5aa7fe86454ccaf456 ("store: Micro-optimize `write-string'.")
-rw-r--r--guix/store.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/store.scm b/guix/store.scm
index 560e5675ec..4bb2270a59 100644
--- a/guix/store.scm
+++ b/guix/store.scm
@@ -162,7 +162,7 @@
(l (bytevector-length s))
(m (modulo l 8))
(b (make-bytevector (+ 8 l (if (zero? m) 0 (- 8 m))))))
- (bytevector-u64-native-set! b 0 l)
+ (bytevector-u32-set! b 0 l (endianness little))
(bytevector-copy! s 0 b 8 l)
(put-bytevector p b)))