diff --git a/compiler/mips/macros.lisp b/compiler/mips/macros.lisp index 2c324e6a2d7b09a54fbfe5064d2611936667f6c9..93ac5f193dd29c6f25cdac34a4582410a1c4a886 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.42 1990/11/26 15:19:18 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/macros.lisp,v 1.43 1991/02/11 17:32:43 ram Exp $ ;;; ;;; This file contains various useful macros for generating MIPS code. ;;; @@ -522,33 +522,3 @@ (emit-label ,label)))) - -;;;; Other random macros. - -(defmacro pad-data-block (words) - `(logandc2 (+ (ash ,words vm:word-shift) lowtag-mask) lowtag-mask)) - - -(defmacro defenum ((&key (prefix "") (suffix "") (start 0) (step 1)) - &rest identifiers) - (let ((results nil) - (index 0) - (start (eval start)) - (step (eval step))) - (dolist (id identifiers) - (when id - (multiple-value-bind - (root docs) - (if (consp id) - (values (car id) (cdr id)) - (values id nil)) - (push `(defconstant ,(intern (concatenate 'simple-string - (string prefix) - (string root) - (string suffix))) - ,(+ start (* step index)) - ,@docs) - results))) - (incf index)) - `(eval-when (compile load eval) - ,@(nreverse results)))) diff --git a/compiler/mips/parms.lisp b/compiler/mips/parms.lisp index 70e4d2260324beea6389b4c485cec4824b067d42..ad3bd2cf61edaf1ecae9737e9011ac98dd583ede 100644 --- a/compiler/mips/parms.lisp +++ b/compiler/mips/parms.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/parms.lisp,v 1.87 1991/01/09 02:07:15 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/parms.lisp,v 1.88 1991/02/11 17:33:08 ram Exp $ ;;; ;;; This file contains some parameterizations of various VM ;;; attributes for the MIPS. This file is separate from other stuff so @@ -179,16 +179,3 @@ (defparameter exported-static-symbols (subseq static-symbols 0 (position 'two-arg-+ static-symbols))) - - - -;;;; Assembler parameters: - -;;; The number of bits per element in the assemblers code vector. -;;; -(defparameter *assembly-unit-length* 8) - - - -;;;; Other parameters: -