Skip to content
Snippets Groups Projects
Commit 82b58924 authored by ram's avatar ram
Browse files

Commented out generic <=, >=, since these shouldn't exist after source

transformation.
parent 7b6869cf
Branches
Tags
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.7 1990/11/23 15:23:44 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/arith.lisp,v 1.8 1991/02/01 18:37:47 ram Exp $
;;; ;;;
;;; Stuff to handle simple cases for generic arithmetic. ;;; Stuff to handle simple cases for generic arithmetic.
;;; ;;;
...@@ -211,9 +211,11 @@ ...@@ -211,9 +211,11 @@
DONE))) DONE)))
(define-cond-assem-rtn generic-< < two-arg-< (inst slt temp x y) nil) (define-cond-assem-rtn generic-< < two-arg-< (inst slt temp x y) nil)
(define-cond-assem-rtn generic-<= <= two-arg-<= (inst slt temp y x) t) ; <=, >= should never be emitted.
; (define-cond-assem-rtn generic-<= <= two-arg-<= (inst slt temp y x) t)
(define-cond-assem-rtn generic-> > two-arg-> (inst slt temp y x) nil) (define-cond-assem-rtn generic-> > two-arg-> (inst slt temp y x) nil)
(define-cond-assem-rtn generic->= >= two-arg->= (inst slt temp x y) t)) ; (define-cond-assem-rtn generic->= >= two-arg->= (inst slt temp x y) t)
)
(define-assembly-routine (generic-eql (define-assembly-routine (generic-eql
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment