From 5151e4a99c47f2661fe95f350f2222e42fe6b841 Mon Sep 17 00:00:00 2001 From: ch <ch> Date: Tue, 6 Feb 1990 12:33:14 +0000 Subject: [PATCH] I'm a bogon. Removed li macro since loadi does the same and more. --- compiler/mips/macros.lisp | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) diff --git a/compiler/mips/macros.lisp b/compiler/mips/macros.lisp index 5ab579827..399b70d02 100644 --- a/compiler/mips/macros.lisp +++ b/compiler/mips/macros.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/macros.lisp,v 1.4 1990/02/06 02:49:14 ch Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/macros.lisp,v 1.5 1990/02/06 12:33:14 ch Exp $ ;;; ;;; This file contains various useful macros for generating MIPS code. ;;; @@ -27,13 +27,6 @@ `(unless (location= ,n-dst ,n-src) (inst or ,n-dst ,n-src zero-tn)))) -(defmacro li (dst immed) - "Load Immediate" - (cond ((minusp immed) - `(inst addi ,dst zero-tn ,immed)) - (t - `(inst addiu ,dst zero-tn ,immed)))) - (defmacro b (label) "Unconditional branch" `(inst beq zero-tn zero-tn ,label)) -- GitLab