Skip to content
Snippets Groups Projects
Commit 6d374be2 authored by toy's avatar toy
Browse files

Fix typo in double-float-bits where the wrong offset was used to get

the hi part of a double from the double-stack.
parent c641c558
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/float.lisp,v 1.39 2003/07/02 21:45:34 toy Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/float.lisp,v 1.40 2003/07/09 13:50:41 toy Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -1201,7 +1201,7 @@ ...@@ -1201,7 +1201,7 @@
(* (1+ (tn-offset stack-temp)) vm:word-bytes))) (* (1+ (tn-offset stack-temp)) vm:word-bytes)))
(double-stack (double-stack
(inst ld hi-bits (current-nfp-tn vop) (inst ld hi-bits (current-nfp-tn vop)
(* (tn-offset stack-temp) vm:word-bytes)) (* (tn-offset float) vm:word-bytes))
(inst ld lo-bits (current-nfp-tn vop) (inst ld lo-bits (current-nfp-tn vop)
(* (1+ (tn-offset float)) vm:word-bytes))) (* (1+ (tn-offset float)) vm:word-bytes)))
(descriptor-reg (descriptor-reg
......
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