From 2327219224e5277cb44bf57c5315b33b2465bd89 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sun, 11 Oct 1992 10:54:28 +0000 Subject: [PATCH] Removed ``:type random'' as it is no longer needed. --- compiler/sparc/alloc.lisp | 16 +++++++++------- compiler/sparc/array.lisp | 18 ++++++++++-------- compiler/sparc/subprim.lisp | 16 +++++++++------- compiler/sparc/system.lisp | 6 +++--- compiler/sparc/type-vops.lisp | 18 ++++++++++-------- compiler/sparc/values.lisp | 16 +++++++++------- 6 files changed, 50 insertions(+), 40 deletions(-) diff --git a/compiler/sparc/alloc.lisp b/compiler/sparc/alloc.lisp index d46b643fd..9f9d9a843 100644 --- a/compiler/sparc/alloc.lisp +++ b/compiler/sparc/alloc.lisp @@ -1,13 +1,15 @@ ;;; -*- Package: SPARC -*- ;;; ;;; ********************************************************************** -;;; This code was written as part of the Spice Lisp project at -;;; Carnegie-Mellon University, and has been placed in the public domain. -;;; If you want to use this code or any part of Spice Lisp, please contact -;;; Scott Fahlman (FAHLMAN@CMUC). -;;; ********************************************************************** +;;; This code was written as part of the CMU Common Lisp project at +;;; Carnegie Mellon University, and has been placed in the public domain. +;;; If you want to use this code or any part of CMU Common Lisp, please contact +;;; Scott Fahlman or slisp-group@cs.cmu.edu. +;;; +(ext:file-comment + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/alloc.lisp,v 1.5 1992/10/11 10:54:08 wlott Exp $") ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/alloc.lisp,v 1.4 1992/04/14 02:51:46 wlott Exp $ +;;; ********************************************************************** ;;; ;;; Allocation VOPs for the SPARC port. ;;; @@ -25,7 +27,7 @@ (:temporary (:scs (descriptor-reg)) temp) (:temporary (:scs (descriptor-reg) :type list :to (:result 0) :target result) res) - (:temporary (:scs (non-descriptor-reg) :type random) ndescr) + (:temporary (:scs (non-descriptor-reg)) ndescr) (:info num) (:results (result :scs (descriptor-reg))) (:variant-vars star) diff --git a/compiler/sparc/array.lisp b/compiler/sparc/array.lisp index 8edfaebd3..841f46ae9 100644 --- a/compiler/sparc/array.lisp +++ b/compiler/sparc/array.lisp @@ -1,13 +1,15 @@ ;;; -*- Package: SPARC -*- ;;; ;;; ********************************************************************** -;;; This code was written as part of the Spice Lisp project at -;;; Carnegie-Mellon University, and has been placed in the public domain. -;;; If you want to use this code or any part of Spice Lisp, please contact -;;; Scott Fahlman (FAHLMAN@CMUC). -;;; ********************************************************************** +;;; This code was written as part of the CMU Common Lisp project at +;;; Carnegie Mellon University, and has been placed in the public domain. +;;; If you want to use this code or any part of CMU Common Lisp, please contact +;;; Scott Fahlman or slisp-group@cs.cmu.edu. +;;; +(ext:file-comment + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/array.lisp,v 1.10 1992/10/11 10:54:20 wlott Exp $") ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/array.lisp,v 1.9 1992/03/24 04:24:23 wlott Exp $ +;;; ********************************************************************** ;;; ;;; This file contains the SPARC definitions for array operations. ;;; @@ -25,7 +27,7 @@ (rank :scs (any-reg))) (:arg-types tagged-num tagged-num) (:temporary (:scs (descriptor-reg) :to (:result 0) :target result) header) - (:temporary (:scs (non-descriptor-reg) :type random) ndescr) + (:temporary (:scs (non-descriptor-reg)) ndescr) (:results (result :scs (descriptor-reg))) (:generator 0 (pseudo-atomic () @@ -66,7 +68,7 @@ (:translate lisp::%array-rank) (:policy :fast-safe) (:args (x :scs (descriptor-reg))) - (:temporary (:scs (non-descriptor-reg) :type random) temp) + (:temporary (:scs (non-descriptor-reg)) temp) (:results (res :scs (any-reg descriptor-reg))) (:generator 6 (loadw temp x 0 vm:other-pointer-type) diff --git a/compiler/sparc/subprim.lisp b/compiler/sparc/subprim.lisp index fce7835e9..726b4ac59 100644 --- a/compiler/sparc/subprim.lisp +++ b/compiler/sparc/subprim.lisp @@ -1,13 +1,15 @@ ;;; -*- Package: SPARC -*- ;;; ;;; ********************************************************************** -;;; This code was written as part of the Spice Lisp project at -;;; Carnegie-Mellon University, and has been placed in the public domain. -;;; If you want to use this code or any part of Spice Lisp, please contact -;;; Scott Fahlman (FAHLMAN@CMUC). -;;; ********************************************************************** +;;; This code was written as part of the CMU Common Lisp project at +;;; Carnegie Mellon University, and has been placed in the public domain. +;;; If you want to use this code or any part of CMU Common Lisp, please contact +;;; Scott Fahlman or slisp-group@cs.cmu.edu. +;;; +(ext:file-comment + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/subprim.lisp,v 1.2 1992/10/11 10:54:22 wlott Exp $") ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/subprim.lisp,v 1.1 1990/11/30 17:05:04 wlott Exp $ +;;; ********************************************************************** ;;; ;;; Linkage information for standard static functions, and random vops. ;;; @@ -24,7 +26,7 @@ (:args (object :scs (descriptor-reg) :target ptr)) (:arg-types list) (:temporary (:scs (descriptor-reg) :from (:argument 0)) ptr) - (:temporary (:scs (non-descriptor-reg) :type random) temp) + (:temporary (:scs (non-descriptor-reg)) temp) (:temporary (:scs (any-reg) :type fixnum :to (:result 0) :target result) count) (:results (result :scs (any-reg descriptor-reg))) diff --git a/compiler/sparc/system.lisp b/compiler/sparc/system.lisp index f37e6c388..1f29d07ed 100644 --- a/compiler/sparc/system.lisp +++ b/compiler/sparc/system.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/system.lisp,v 1.8 1992/04/14 02:59:28 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/system.lisp,v 1.9 1992/10/11 10:54:24 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -112,7 +112,7 @@ (data :scs (any-reg immediate zero))) (:arg-types * positive-fixnum) (:results (res :scs (descriptor-reg))) - (:temporary (:scs (non-descriptor-reg) :type random) t1 t2) + (:temporary (:scs (non-descriptor-reg)) t1 t2) (:generator 6 (loadw t1 x 0 vm:other-pointer-type) (inst and t1 vm:type-mask) @@ -142,7 +142,7 @@ (type :scs (any-reg descriptor-reg immediate) :target temp)) (:results (res :scs (any-reg descriptor-reg))) - (:temporary (:type random :scs (non-descriptor-reg)) temp) + (:temporary (:scs (non-descriptor-reg)) temp) (:generator 2 (sc-case type (immediate diff --git a/compiler/sparc/type-vops.lisp b/compiler/sparc/type-vops.lisp index 81de7a674..0217771a7 100644 --- a/compiler/sparc/type-vops.lisp +++ b/compiler/sparc/type-vops.lisp @@ -1,13 +1,15 @@ ;;; -*- Package: SPARC -*- ;;; ;;; ********************************************************************** -;;; This code was written as part of the Spice Lisp project at -;;; Carnegie-Mellon University, and has been placed in the public domain. -;;; If you want to use this code or any part of Spice Lisp, please contact -;;; Scott Fahlman (FAHLMAN@CMUC). -;;; ********************************************************************** +;;; This code was written as part of the CMU Common Lisp project at +;;; Carnegie Mellon University, and has been placed in the public domain. +;;; If you want to use this code or any part of CMU Common Lisp, please contact +;;; Scott Fahlman or slisp-group@cs.cmu.edu. +;;; +(ext:file-comment + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/type-vops.lisp,v 1.11 1992/10/11 10:54:26 wlott Exp $") ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/type-vops.lisp,v 1.10 1992/03/11 21:29:23 wlott Exp $ +;;; ********************************************************************** ;;; ;;; This file contains the VM definition of type testing and checking VOPs ;;; for the SPARC. @@ -25,7 +27,7 @@ (define-vop (check-type) (:args (value :target result :scs (any-reg descriptor-reg))) (:results (result :scs (any-reg descriptor-reg))) - (:temporary (:type random :scs (non-descriptor-reg)) temp) + (:temporary (:scs (non-descriptor-reg)) temp) (:vop-var vop) (:save-p :compute-only)) @@ -34,7 +36,7 @@ (:conditional) (:info target not-p) (:policy :fast-safe) - (:temporary (:type random :scs (non-descriptor-reg)) temp)) + (:temporary (:scs (non-descriptor-reg)) temp)) (eval-when (compile eval) diff --git a/compiler/sparc/values.lisp b/compiler/sparc/values.lisp index b32dae5cf..db7681054 100644 --- a/compiler/sparc/values.lisp +++ b/compiler/sparc/values.lisp @@ -1,13 +1,15 @@ ;;; -*- Package: SPARC -*- ;;; ;;; ********************************************************************** -;;; This code was written as part of the Spice Lisp project at -;;; Carnegie-Mellon University, and has been placed in the public domain. -;;; If you want to use this code or any part of Spice Lisp, please contact -;;; Scott Fahlman (FAHLMAN@CMUC). -;;; ********************************************************************** +;;; This code was written as part of the CMU Common Lisp project at +;;; Carnegie Mellon University, and has been placed in the public domain. +;;; If you want to use this code or any part of CMU Common Lisp, please contact +;;; Scott Fahlman or slisp-group@cs.cmu.edu. +;;; +(ext:file-comment + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/values.lisp,v 1.2 1992/10/11 10:54:28 wlott Exp $") ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/values.lisp,v 1.1 1990/11/30 17:05:10 wlott Exp $ +;;; ********************************************************************** ;;; ;;; This file contains the implementation of unknown-values VOPs. ;;; @@ -64,7 +66,7 @@ (count :scs (any-reg))) (:temporary (:scs (descriptor-reg) :type list :from (:argument 0)) list) (:temporary (:scs (descriptor-reg)) temp) - (:temporary (:scs (non-descriptor-reg) :type random) ndescr) + (:temporary (:scs (non-descriptor-reg)) ndescr) (:vop-var vop) (:save-p :compute-only) (:generator 0 -- GitLab