diff --git a/compiler/sparc/float.lisp b/compiler/sparc/float.lisp index ff0eedf3aaf4945c59e6b6e6f7b19089101a5d62..ed88f490b295f995a4f5622aae3ea885d08db377 100644 --- a/compiler/sparc/float.lisp +++ b/compiler/sparc/float.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/float.lisp,v 1.5 1991/07/19 16:54:13 ram Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/float.lisp,v 1.6 1991/10/24 16:01:34 ram Exp $ ;;; ;;; This file contains floating point support for the MIPS. ;;; @@ -467,7 +467,7 @@ (* (tn-offset stack-temp) vm:word-bytes))) (double-stack (inst ld lo-bits (current-nfp-tn vop) - (* (tn-offset float) vm:word-bytes))) + (* (1+ (tn-offset float)) vm:word-bytes))) (descriptor-reg (loadw lo-bits float (1+ vm:double-float-value-slot) vm:other-pointer-type))))