From b0f6f29e575ec25acd62aa7a9c742d60c9f5c35b Mon Sep 17 00:00:00 2001
From: toy <toy>
Date: Mon, 31 Mar 2003 17:48:28 +0000
Subject: [PATCH] Fix typo.  It's umul, not mul.

---
 compiler/sparc/arith.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/sparc/arith.lisp b/compiler/sparc/arith.lisp
index 155218326..84ffa8578 100644
--- a/compiler/sparc/arith.lisp
+++ b/compiler/sparc/arith.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/arith.lisp,v 1.31 2003/03/25 14:53:47 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/arith.lisp,v 1.32 2003/03/31 17:48:28 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -733,7 +733,7 @@
 	      (and (backend-featurep :sparc-v9)
 		   (not (backend-featurep :sparc-64)))))
   (:generator 1
-    (inst mul r x y)))
+    (inst umul r x y)))
 
 (define-vop (fast-v8-*-c/signed=>signed fast-signed-binop-c)
   (:translate *)
-- 
GitLab