From f2b019a82663e5c09d17fb98846a8084b98b707c Mon Sep 17 00:00:00 2001 From: toy <toy> Date: Mon, 20 Oct 2003 23:59:32 +0000 Subject: [PATCH] clruw takes at most 2 args, not three. (Left-over typo.) --- compiler/sparc/move.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/compiler/sparc/move.lisp b/compiler/sparc/move.lisp index 6e2db27f0..2d874781a 100644 --- a/compiler/sparc/move.lisp +++ b/compiler/sparc/move.lisp @@ -5,11 +5,11 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/move.lisp,v 1.12 2003/10/20 01:25:01 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/move.lisp,v 1.13 2003/10/20 23:59:32 toy Exp $") ;;; ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/move.lisp,v 1.12 2003/10/20 01:25:01 toy Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/move.lisp,v 1.13 2003/10/20 23:59:32 toy Exp $ ;;; ;;; This file contains the SPARC VM definition of operand loading/saving and ;;; the Move VOP. @@ -476,7 +476,7 @@ (:arg-types unsigned-num) (:generator 1 ;; Zero-extend the 32-bit number - (inst clruw y x 0))) + (inst clruw y x))) (define-move-vop move-to-64bit-word/unsigned :move (unsigned-reg) (signed64-reg unsigned64-reg)) -- GitLab