diff --git a/compiler/mips/float.lisp b/compiler/mips/float.lisp index a0d6b5ad9376f1bf70f41c6193c0eb6c94d65252..58f7299e3eb1c25326e168ae222fe582682a23f1 100644 --- a/compiler/mips/float.lisp +++ b/compiler/mips/float.lisp @@ -7,12 +7,10 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/float.lisp,v 1.12 1991/02/20 15:14:35 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/float.lisp,v 1.13 1991/05/23 15:36:55 ram Exp $") ;;; ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/float.lisp,v 1.12 1991/02/20 15:14:35 ram Exp $ -;;; ;;; This file contains floating point support for the MIPS. ;;; ;;; Written by Rob MacLachlan @@ -322,7 +320,12 @@ (inst and new-status status-save) (inst or new-status float-round-to-zero) (inst ctc1 new-status 31) + + ;; These instructions seem to be necessary to ensure that + ;; the new modes affect the fcvt instruction. (inst nop) + (inst cfc1 new-status 31) + (note-this-location vop :internal-error) (inst fcvt :word ,from-format temp x) (inst mfc1 y temp)