diff --git a/compiler/sparc/float.lisp b/compiler/sparc/float.lisp index 5d347261f1a89e766271bf1cb280d3891a1d69b2..f699733188a5972c0e654ee32cbedec54426107b 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.7 1992/01/14 16:00:10 ram Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/float.lisp,v 1.8 1992/01/16 16:34:24 ram Exp $ ;;; ;;; This file contains floating point support for the MIPS. ;;; @@ -52,7 +52,7 @@ :load-if (not (location= x y)))) (:results (y :scs (,sc) :load-if (not (location= x y)))) - (:node "float move") + (:note "float move") (:generator 0 (unless (location= y x) (inst fmovs y x)