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