Skip to content
Snippets Groups Projects
Commit ed83189f authored by wlott's avatar wlott
Browse files

Need to (fixnum x) the immediates for fixnum vops.

parent 629035d3
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/arith.lisp,v 1.4 1990/12/15 20:26:00 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/arith.lisp,v 1.5 1990/12/16 14:17:53 wlott Exp $
;;; ;;;
;;; This file contains the VM definition arithmetic VOPs for the MIPS. ;;; This file contains the VM definition arithmetic VOPs for the MIPS.
;;; ;;;
...@@ -182,7 +182,7 @@ ...@@ -182,7 +182,7 @@
(:result-types *) (:result-types *)
(:note nil) (:note nil)
(:generator 3 (:generator 3
(inst taddcctv r x y))) (inst taddcctv r x (fixnum y))))
(define-vop (fast--/fixnum fast--/fixnum=>fixnum) (define-vop (fast--/fixnum fast--/fixnum=>fixnum)
(:results (r :scs (any-reg descriptor-reg))) (:results (r :scs (any-reg descriptor-reg)))
...@@ -196,7 +196,7 @@ ...@@ -196,7 +196,7 @@
(:result-types *) (:result-types *)
(:note nil) (:note nil)
(:generator 3 (:generator 3
(inst tsubcctv r x y))) (inst tsubcctv r x (fixnum y))))
;;; Shifting ;;; Shifting
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment