Skip to content
Snippets Groups Projects
Commit 5151e4a9 authored by ch's avatar ch
Browse files

I'm a bogon. Removed li macro since loadi does the same and more.

parent 057245a3
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/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. ;;; This file contains various useful macros for generating MIPS code.
;;; ;;;
...@@ -27,13 +27,6 @@ ...@@ -27,13 +27,6 @@
`(unless (location= ,n-dst ,n-src) `(unless (location= ,n-dst ,n-src)
(inst or ,n-dst ,n-src zero-tn)))) (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) (defmacro b (label)
"Unconditional branch" "Unconditional branch"
`(inst beq zero-tn zero-tn ,label)) `(inst beq zero-tn zero-tn ,label))
......
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