~ruther/guix-local

238e43b9faa45c88fc2581e3d6d3a87187f3ec33 — Ludovic Courtès 13 years ago 9c63fe6
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'.")
1 files changed, 1 insertions(+), 1 deletions(-)

M guix/store.scm
M guix/store.scm => guix/store.scm +1 -1
@@ 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)))