diff --git a/compiler/sparc/alloc.lisp b/compiler/sparc/alloc.lisp index d46b643fde0baf1b04bf74725b6902df0768ee9d..9f9d9a8439c5c71a66bebd988942183a7ed86501 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 8edfaebd385f24653991ca640ad0b66863f35105..841f46ae93c6ea5f070b5e29284429ae2ca2965c 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 fce7835e90547b87d8fb365dca527bfecab114bf..726b4ac59ac72057510436250d7a02149e37f1de 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 f37e6c3889926d7eba241b1e008b80d122fd170d..1f29d07edd9002e5ec2fe0b87b6f78a2406806e0 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 81de7a6747a29095c7a8090513121cde94569ceb..0217771a705f2ec18f3d1e735306a61786a323e6 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 b32dae5cf6b740d909296131bb8bb72fe8c4319b..db76810548e57394b6860bde1cb0d70565b89c10 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