Skip to content
Snippets Groups Projects
Commit 67750b4d authored by ram's avatar ram
Browse files

Fixed computation of i-vector access code in fop-int-vector.

parent dba1a213
No related branches found
No related tags found
No related merge requests found
...@@ -996,7 +996,7 @@ ...@@ -996,7 +996,7 @@
(prepare-for-fast-read-byte *fasl-file* (prepare-for-fast-read-byte *fasl-file*
(let* ((len (fast-read-u-integer 4)) (let* ((len (fast-read-u-integer 4))
(size (fast-read-byte)) (size (fast-read-byte))
(ac (integer-length size)) (ac (1- (integer-length size)))
(res (%primitive alloc-i-vector len ac))) (res (%primitive alloc-i-vector len ac)))
(done-with-fast-read-byte) (done-with-fast-read-byte)
(unless (and (<= ac 5) (= size (ash 1 ac))) (unless (and (<= ac 5) (= size (ash 1 ac)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment