From ac7c4ccc08b37062f2d285754a0e40ce797c93fb Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sat, 3 Nov 1990 03:26:01 +0000 Subject: [PATCH] Put all the vm-specific code in a vm-specific package (MIPS in this case). --- compiler/mips/alloc.lisp | 4 ++-- compiler/mips/arith.lisp | 4 ++-- compiler/mips/array.lisp | 4 ++-- compiler/mips/cell.lisp | 4 ++-- compiler/mips/char.lisp | 4 ++-- compiler/mips/debug.lisp | 6 +++--- compiler/mips/float.lisp | 4 ++-- compiler/mips/macros.lisp | 4 ++-- compiler/mips/memory.lisp | 4 ++-- compiler/mips/move.lisp | 4 ++-- compiler/mips/pred.lisp | 4 ++-- compiler/mips/print.lisp | 4 ++-- compiler/mips/sap.lisp | 4 ++-- compiler/mips/static-fn.lisp | 4 ++-- compiler/mips/subprim.lisp | 4 ++-- compiler/mips/system.lisp | 4 ++-- compiler/mips/type-vops.lisp | 4 ++-- compiler/mips/values.lisp | 4 ++-- 18 files changed, 37 insertions(+), 37 deletions(-) diff --git a/compiler/mips/alloc.lisp b/compiler/mips/alloc.lisp index 2d23812bf..27497b6ff 100644 --- a/compiler/mips/alloc.lisp +++ b/compiler/mips/alloc.lisp @@ -7,14 +7,14 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/alloc.lisp,v 1.12 1990/09/21 00:48:01 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/alloc.lisp,v 1.13 1990/11/03 03:24:27 wlott Exp $ ;;; ;;; Allocation VOPs for the MIPS port. ;;; ;;; Written by William Lott. ;;; -(in-package "C") +(in-package "MIPS") ;;;; LIST and LIST* diff --git a/compiler/mips/arith.lisp b/compiler/mips/arith.lisp index d8aa4f6c3..9aaa2ad71 100644 --- a/compiler/mips/arith.lisp +++ b/compiler/mips/arith.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/arith.lisp,v 1.36 1990/11/01 17:14:52 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/arith.lisp,v 1.37 1990/11/03 03:25:10 wlott Exp $ ;;; ;;; This file contains the VM definition arithmetic VOPs for the MIPS. ;;; @@ -16,7 +16,7 @@ ;;; Converted by William Lott. ;;; -(in-package "C") +(in-package "MIPS") diff --git a/compiler/mips/array.lisp b/compiler/mips/array.lisp index 10ef34423..b16a11bd8 100644 --- a/compiler/mips/array.lisp +++ b/compiler/mips/array.lisp @@ -7,13 +7,13 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/array.lisp,v 1.27 1990/11/01 17:16:34 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/array.lisp,v 1.28 1990/11/03 03:25:14 wlott Exp $ ;;; ;;; This file contains the MIPS definitions for array operations. ;;; ;;; Written by William Lott ;;; -(in-package "C") +(in-package "MIPS") ;;;; Allocator for the array header. diff --git a/compiler/mips/cell.lisp b/compiler/mips/cell.lisp index 19ab7f43f..4543eb1cd 100644 --- a/compiler/mips/cell.lisp +++ b/compiler/mips/cell.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/cell.lisp,v 1.46 1990/10/10 12:54:07 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/cell.lisp,v 1.47 1990/11/03 03:25:19 wlott Exp $ ;;; ;;; This file contains the VM definition of various primitive memory access ;;; VOPs for the MIPS. @@ -17,7 +17,7 @@ ;;; Converted by William Lott. ;;; -(in-package "C") +(in-package "MIPS") ;;;; Data object definition macros. diff --git a/compiler/mips/char.lisp b/compiler/mips/char.lisp index dcd6ff732..ffb02b025 100644 --- a/compiler/mips/char.lisp +++ b/compiler/mips/char.lisp @@ -7,14 +7,14 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/char.lisp,v 1.9 1990/07/02 09:33:10 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/char.lisp,v 1.10 1990/11/03 03:25:27 wlott Exp $ ;;; ;;; This file contains the RT VM definition of character operations. ;;; ;;; Written by Rob MacLachlan ;;; Converted for the MIPS R2000 by Christopher Hoover. ;;; -(in-package "C") +(in-package "MIPS") diff --git a/compiler/mips/debug.lisp b/compiler/mips/debug.lisp index 371357be5..aa1ff41ac 100644 --- a/compiler/mips/debug.lisp +++ b/compiler/mips/debug.lisp @@ -7,13 +7,13 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/debug.lisp,v 1.4 1990/07/02 04:48:43 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/debug.lisp,v 1.5 1990/11/03 03:25:29 wlott Exp $ ;;; ;;; Compiler support for the new whizzy debugger. ;;; ;;; Written by William Lott. ;;; -(in-package "C") +(in-package "MIPS") (in-package "DI") (import '(c::current-fp)) @@ -21,7 +21,7 @@ function-code-header make-lisp-obj get-lisp-obj-address) (find-package "C")) -(in-package "C") +(in-package "MIPS") (defknown current-sp () system-area-pointer (movable flushable)) diff --git a/compiler/mips/float.lisp b/compiler/mips/float.lisp index 428c2a8b9..918825676 100644 --- a/compiler/mips/float.lisp +++ b/compiler/mips/float.lisp @@ -7,13 +7,13 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/float.lisp,v 1.9 1990/10/24 16:23:11 ram Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/float.lisp,v 1.10 1990/11/03 03:25:31 wlott Exp $ ;;; ;;; This file contains floating point support for the MIPS. ;;; ;;; Written by Rob MacLachlan ;;; -(in-package "C") +(in-package "MIPS") ;;;; Move functions: diff --git a/compiler/mips/macros.lisp b/compiler/mips/macros.lisp index 74e1b77cb..c86e5b12f 100644 --- a/compiler/mips/macros.lisp +++ b/compiler/mips/macros.lisp @@ -7,14 +7,14 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/macros.lisp,v 1.39 1990/08/23 18:51:37 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/macros.lisp,v 1.40 1990/11/03 03:25:35 wlott Exp $ ;;; ;;; This file contains various useful macros for generating MIPS code. ;;; ;;; Written by William Lott and Christopher Hoover. ;;; -(in-package "C") +(in-package "MIPS") ;;; Handy macro for defining top-level forms that depend on the compile ;;; environment. diff --git a/compiler/mips/memory.lisp b/compiler/mips/memory.lisp index 5845278eb..87727d339 100644 --- a/compiler/mips/memory.lisp +++ b/compiler/mips/memory.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/memory.lisp,v 1.10 1990/08/15 02:55:01 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/memory.lisp,v 1.11 1990/11/03 03:25:32 wlott Exp $ ;;; ;;; This file contains the MIPS definitions of some general purpose memory ;;; reference VOPs inherited by basic memory reference operations. @@ -17,7 +17,7 @@ ;;; Converted by William Lott. ;;; -(in-package "C") +(in-package "MIPS") ;;; Cell-Ref and Cell-Set are used to define VOPs like CAR, where the offset to diff --git a/compiler/mips/move.lisp b/compiler/mips/move.lisp index 8a4afbe7f..ac5eb7641 100644 --- a/compiler/mips/move.lisp +++ b/compiler/mips/move.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/move.lisp,v 1.23 1990/10/24 16:23:56 ram Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/move.lisp,v 1.24 1990/11/03 03:25:38 wlott Exp $ ;;; ;;; This file contains the MIPS VM definition of operand loading/saving and ;;; the Move VOP. @@ -15,7 +15,7 @@ ;;; Written by Rob MacLachlan. ;;; MIPS conversion by William Lott. ;;; -(in-package "C") +(in-package "MIPS") (define-move-function (load-immediate 1) (vop x y) diff --git a/compiler/mips/pred.lisp b/compiler/mips/pred.lisp index 3a4c19d6b..8e7134405 100644 --- a/compiler/mips/pred.lisp +++ b/compiler/mips/pred.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/pred.lisp,v 1.4 1990/04/24 02:56:27 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/pred.lisp,v 1.5 1990/11/03 03:25:41 wlott Exp $ ;;; ;;; This file contains the VM definition of predicate VOPs for the MIPS. ;;; @@ -16,7 +16,7 @@ ;;; Converted by William Lott. ;;; -(in-package "C") +(in-package "MIPS") ;;;; The Branch VOP. diff --git a/compiler/mips/print.lisp b/compiler/mips/print.lisp index 5d311c55e..5fa4f08a2 100644 --- a/compiler/mips/print.lisp +++ b/compiler/mips/print.lisp @@ -7,13 +7,13 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/print.lisp,v 1.5 1990/07/20 00:40:19 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/print.lisp,v 1.6 1990/11/03 03:25:43 wlott Exp $ ;;; ;;; This file contains temporary printing utilities and similar noise. ;;; ;;; Written by William Lott. -(in-package "C") +(in-package "MIPS") (define-vop (print) diff --git a/compiler/mips/sap.lisp b/compiler/mips/sap.lisp index 061bf408f..185b21c9d 100644 --- a/compiler/mips/sap.lisp +++ b/compiler/mips/sap.lisp @@ -7,13 +7,13 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/sap.lisp,v 1.16 1990/07/07 01:01:37 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/sap.lisp,v 1.17 1990/11/03 03:25:46 wlott Exp $ ;;; ;;; This file contains the MIPS VM definition of SAP operations. ;;; ;;; Written by William Lott. ;;; -(in-package "C") +(in-package "MIPS") ;;;; Moves and coercions: diff --git a/compiler/mips/static-fn.lisp b/compiler/mips/static-fn.lisp index f91ebded4..b135a4384 100644 --- a/compiler/mips/static-fn.lisp +++ b/compiler/mips/static-fn.lisp @@ -7,14 +7,14 @@ ;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU) ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/static-fn.lisp,v 1.12 1990/09/17 23:44:18 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/static-fn.lisp,v 1.13 1990/11/03 03:25:52 wlott Exp $ ;;; ;;; This file contains the VOPs and macro magic necessary to call static ;;; functions. ;;; ;;; Written by William Lott. ;;; -(in-package "C") +(in-package "MIPS") diff --git a/compiler/mips/subprim.lisp b/compiler/mips/subprim.lisp index a24847b1d..308390e7c 100644 --- a/compiler/mips/subprim.lisp +++ b/compiler/mips/subprim.lisp @@ -7,13 +7,13 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/subprim.lisp,v 1.17 1990/07/20 00:42:03 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/subprim.lisp,v 1.18 1990/11/03 03:25:54 wlott Exp $ ;;; ;;; Linkage information for standard static functions, and random vops. ;;; ;;; Written by William Lott. ;;; -(in-package "C") +(in-package "MIPS") diff --git a/compiler/mips/system.lisp b/compiler/mips/system.lisp index dca1f1082..9197c50bf 100644 --- a/compiler/mips/system.lisp +++ b/compiler/mips/system.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/system.lisp,v 1.32 1990/10/04 23:23:43 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/system.lisp,v 1.33 1990/11/03 03:25:56 wlott Exp $ ;;; ;;; MIPS VM definitions of various system hacking operations. ;;; @@ -15,7 +15,7 @@ ;;; ;;; Mips conversion by William Lott and Christopher Hoover. ;;; -(in-package "C") +(in-package "MIPS") ;;;; Random pointer comparison VOPs diff --git a/compiler/mips/type-vops.lisp b/compiler/mips/type-vops.lisp index 14f9bee3f..7328f0da5 100644 --- a/compiler/mips/type-vops.lisp +++ b/compiler/mips/type-vops.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/type-vops.lisp,v 1.22 1990/10/14 22:39:06 ram Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/type-vops.lisp,v 1.23 1990/11/03 03:25:59 wlott Exp $ ;;; ;;; This file contains the VM definition of type testing and checking VOPs ;;; for the RT. @@ -16,7 +16,7 @@ ;;; ;;; Converted for the MIPS R2000 by Christopher Hoover. ;;; -(in-package "C") +(in-package "MIPS") ;;;; Simple type checking and testing: diff --git a/compiler/mips/values.lisp b/compiler/mips/values.lisp index 6c601d296..a82166223 100644 --- a/compiler/mips/values.lisp +++ b/compiler/mips/values.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/values.lisp,v 1.10 1990/07/03 06:31:25 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/values.lisp,v 1.11 1990/11/03 03:26:01 wlott Exp $ ;;; ;;; This file contains the implementation of unknown-values VOPs. ;;; @@ -16,7 +16,7 @@ ;;; Converted for MIPS by William Lott. ;;; -(in-package "C") +(in-package "MIPS") (define-vop (reset-stack-pointer) (:args (ptr :scs (any-reg))) -- GitLab