From 8c5a0bc644eeaa28f63ef0f793c07a1ea52f5bbe Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Mon, 11 Feb 1991 17:33:08 +0000 Subject: [PATCH] Moved some stuff to vm-macs. --- compiler/mips/macros.lisp | 32 +------------------------------- compiler/mips/parms.lisp | 15 +-------------- 2 files changed, 2 insertions(+), 45 deletions(-) diff --git a/compiler/mips/macros.lisp b/compiler/mips/macros.lisp index 2c324e6a2..93ac5f193 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 70e4d2260..ad3bd2cf6 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: - -- GitLab