diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-02-03 22:57:58 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-02-04 08:58:47 +0100 |
| commit | 238e43b9faa45c88fc2581e3d6d3a87187f3ec33 (patch) | |
| tree | e807582e7035add3ab5b06dd6817830d2dc2403b | |
| parent | 9c63fe6c1f855a09a62d6d74739ce6eced6fdef8 (diff) | |
| download | guix-238e43b9faa45c88fc2581e3d6d3a87187f3ec33.tar guix-238e43b9faa45c88fc2581e3d6d3a87187f3ec33.tar.gz | |
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.scm | 2 |
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))) |