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

Allow the args and results to be in either descriptor-reg or any-reg.

parent 9323959e
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/assembly/mips/arith.lisp,v 1.2 1990/10/28 06:40:37 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/arith.lisp,v 1.3 1990/10/28 08:21:54 wlott Exp $
;;; ;;;
;;; Stuff to handle simple cases for generic arithmetic. ;;; Stuff to handle simple cases for generic arithmetic.
;;; ;;;
...@@ -23,10 +23,10 @@ ...@@ -23,10 +23,10 @@
(:translate +) (:translate +)
(:policy :safe) (:policy :safe)
(:save-p t)) (:save-p t))
((:arg x descriptor-reg a0-offset) ((:arg x (descriptor-reg any-reg) a0-offset)
(:arg y descriptor-reg a1-offset) (:arg y (descriptor-reg any-reg) a1-offset)
(:res res descriptor-reg a0-offset) (:res res (descriptor-reg any-reg) a0-offset)
(:temp temp non-descriptor-reg nl0-offset) (:temp temp non-descriptor-reg nl0-offset)
(:temp lip interior-reg lip-offset) (:temp lip interior-reg lip-offset)
...@@ -59,10 +59,10 @@ ...@@ -59,10 +59,10 @@
(:translate -) (:translate -)
(:policy :safe) (:policy :safe)
(:save-p t)) (:save-p t))
((:arg x descriptor-reg a0-offset) ((:arg x (descriptor-reg any-reg) a0-offset)
(:arg y descriptor-reg a1-offset) (:arg y (descriptor-reg any-reg) a1-offset)
(:res res descriptor-reg a0-offset) (:res res (descriptor-reg any-reg) a0-offset)
(:temp temp non-descriptor-reg nl0-offset) (:temp temp non-descriptor-reg nl0-offset)
(:temp lip interior-reg lip-offset) (:temp lip interior-reg lip-offset)
...@@ -95,10 +95,10 @@ ...@@ -95,10 +95,10 @@
(:translate *) (:translate *)
(:policy :safe) (:policy :safe)
(:save-p t)) (:save-p t))
((:arg x descriptor-reg a0-offset) ((:arg x (descriptor-reg any-reg) a0-offset)
(:arg y descriptor-reg a1-offset) (:arg y (descriptor-reg any-reg) a1-offset)
(:res res descriptor-reg a0-offset) (:res res (descriptor-reg any-reg) a0-offset)
(:temp temp non-descriptor-reg nl0-offset) (:temp temp non-descriptor-reg nl0-offset)
(:temp lo non-descriptor-reg nl1-offset) (:temp lo non-descriptor-reg nl1-offset)
......
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