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