From 366b6400a93977ed5936230a334579aaf693b87b Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Wed, 14 Feb 1990 21:58:48 +0000
Subject: [PATCH] Moved CONVERT-BYTE-LIST into assembler.lisp because neither
 Chris nor I could figure out why it should change for different architectures
 despite the comment claiming that.

---
 compiler/mips/parms.lisp | 32 +++++++++-----------------------
 1 file changed, 9 insertions(+), 23 deletions(-)

diff --git a/compiler/mips/parms.lisp b/compiler/mips/parms.lisp
index aadbeb026..320c060c7 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.4 1990/02/14 21:53:39 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/parms.lisp,v 1.5 1990/02/14 21:58:48 wlott Exp $
 ;;;
 ;;;    This file contains some parameterizations of various VM attributes for
 ;;; the MIPS.  This file is separate from other stuff so that it can be compiled
@@ -22,14 +22,13 @@
 
 
 (export '(sc-number-limit most-positive-cost word-bits byte-bits word-shift
-	  word-bytes target-byte-order register-names lowtag-bits
-	  lowtag-mask type-bits type-mask even-fixnum-type
-	  function-pointer-type other-immediate-type list-pointer-type
-	  odd-fixnum-type structure-pointer-type other-pointer-type
-	  bignum-type ratio-type single-float-type double-float-type
-	  complex-type simple-array-type simple-string-type
-	  simple-bit-vector-type simple-vector-type
-	  simple-array-unsigned-byte-2-type
+	  word-bytes target-byte-order lowtag-bits lowtag-mask type-bits
+	  type-mask even-fixnum-type function-pointer-type
+	  other-immediate-type list-pointer-type odd-fixnum-type
+	  structure-pointer-type other-pointer-type bignum-type ratio-type
+	  single-float-type double-float-type complex-type
+	  simple-array-type simple-string-type simple-bit-vector-type
+	  simple-vector-type simple-array-unsigned-byte-2-type
 	  simple-array-unsigned-byte-4-type
 	  simple-array-unsigned-byte-8-type
 	  simple-array-unsigned-byte-16-type
@@ -39,7 +38,7 @@
 	  code-header-type function-header-type return-pc-header-type
 	  closure-header-type symbol-header-type character-type SAP-type
 	  unbound-marker-type fixnum *assembly-unit-length*
-	  convert-byte-list target-fasl-code-format vm-version))
+	  target-fasl-code-format vm-version))
 	  
 
 (eval-when (compile load eval)
@@ -196,19 +195,6 @@
 ;;;
 (defparameter *assembly-unit-length* 8)
 
-;;; Convert-Byte-List  --  Internal
-;;; 
-;;; Convert-Byte-List take a list of byte specifiers that define a field
-;;; and returns a list of byte specifiers that can be used to take apart
-;;; the value to be placed in that field.  This is somewhat architecture
-;;; dependent because of differences in byte ordering conventions.
-
-(defun convert-byte-list (byte-list)
-  (let ((offset (byte-position (first byte-list))))
-    (mapcar #'(lambda (byte)
-		(byte (byte-size byte) (- (byte-position byte) offset)))
-	    byte-list)))
-
 
 ;;;; Other parameters:
 
-- 
GitLab