From 82b589248c548eb5f5c9a4f2ad4930c4ac6339f5 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Fri, 1 Feb 1991 18:37:47 +0000
Subject: [PATCH] Commented out generic <=, >=, since these shouldn't exist
 after source transformation.

---
 assembly/mips/arith.lisp | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/assembly/mips/arith.lisp b/assembly/mips/arith.lisp
index 8ae5d79c7..00807df19 100644
--- a/assembly/mips/arith.lisp
+++ b/assembly/mips/arith.lisp
@@ -7,7 +7,7 @@
 ;;; 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.
 ;;;
@@ -211,9 +211,11 @@
 	  DONE)))
 
   (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 x y) t))
+;  (define-cond-assem-rtn generic->= >= two-arg->= (inst slt temp x y) t)
+  )
 
 
 (define-assembly-routine (generic-eql
-- 
GitLab