projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.2.7:
[sbcl.git]
/
src
/
compiler
/
sparc
/
float.lisp
diff --git
a/src/compiler/sparc/float.lisp
b/src/compiler/sparc/float.lisp
index
329d8be
..
f472a82
100644
(file)
--- a/
src/compiler/sparc/float.lisp
+++ b/
src/compiler/sparc/float.lisp
@@
-118,7
+118,7
@@
(defun move-long-reg (dst src)
(cond
((member :sparc-v9 *backend-subfeatures*)
(defun move-long-reg (dst src)
(cond
((member :sparc-v9 *backend-subfeatures*)
- (inst fmovq dst src)
+ (inst fmovq dst src))
(t
(dotimes (i 4)
(let ((dst (make-random-tn :kind :normal
(t
(dotimes (i 4)
(let ((dst (make-random-tn :kind :normal
@@
-127,7
+127,7
@@
(src (make-random-tn :kind :normal
:sc (sc-or-lose 'single-reg)
:offset (+ i (tn-offset src)))))
(src (make-random-tn :kind :normal
:sc (sc-or-lose 'single-reg)
:offset (+ i (tn-offset src)))))
- (inst fmovs dst src)))))))
+ (inst fmovs dst src))))))
(macrolet ((frob (vop sc format)
`(progn
(macrolet ((frob (vop sc format)
`(progn