Skip to content
Snippets Groups Projects
Commit 2c22795d authored by dtc's avatar dtc
Browse files

Fix a few typos in the prior fash-ash commit.

parent e420c35c
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/arith.lisp,v 1.18 2000/01/16 20:12:12 dtc Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/arith.lisp,v 1.19 2000/01/17 18:08:19 dtc Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -209,7 +209,7 @@ ...@@ -209,7 +209,7 @@
(:args (number :scs (unsigned-reg) :to :save) (:args (number :scs (unsigned-reg) :to :save)
(amount :scs (signed-reg immediate))) (amount :scs (signed-reg immediate)))
(:arg-types unsigned-num signed-num) (:arg-types unsigned-num signed-num)
(:results (result :scs unsigned-reg)) (:results (result :scs (unsigned-reg)))
(:result-types unsigned-num) (:result-types unsigned-num)
(:translate ash) (:translate ash)
(:policy :fast-safe) (:policy :fast-safe)
...@@ -243,10 +243,10 @@ ...@@ -243,10 +243,10 @@
(define-vop (fast-ash/signed=>signed) (define-vop (fast-ash/signed=>signed)
(:note "inline ASH") (:note "inline ASH")
(:args (number :scs signed-reg :to :save) (:args (number :scs (signed-reg) :to :save)
(amount :scs (signed-reg immediate))) (amount :scs (signed-reg immediate)))
(:arg-types signed-num signed-num) (:arg-types signed-num signed-num)
(:results (result :scs signed-reg)) (:results (result :scs (signed-reg)))
(:result-types signed-num) (:result-types signed-num)
(:translate ash) (:translate ash)
(:policy :fast-safe) (:policy :fast-safe)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment