projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.21.5:
[sbcl.git]
/
src
/
compiler
/
sparc
/
insts.lisp
diff --git
a/src/compiler/sparc/insts.lisp
b/src/compiler/sparc/insts.lisp
index
801be79
..
d0fedf8
100644
(file)
--- a/
src/compiler/sparc/insts.lisp
+++ b/
src/compiler/sparc/insts.lisp
@@
-1183,10
+1183,8
@@
about function addresses and register values.")
(cond (length-only
(values 0 (1+ length) nil nil))
(t
(cond (length-only
(values 0 (1+ length) nil nil))
(t
- (sb!kernel:copy-from-system-area sap (* n-byte-bits (1+ offset))
- vector (* n-word-bits
- vector-data-offset)
- (* length n-byte-bits))
+ (sb!kernel:copy-ub8-from-system-area sap (1+ offset)
+ vector 0 length)
(collect ((sc-offsets)
(lengths))
(lengths 1) ; the length byte
(collect ((sc-offsets)
(lengths))
(lengths 1) ; the length byte