From cc26b3b8775e2e1ee57337ceca0ad49dc69bc7c4 Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Sat, 14 Feb 1998 21:09:52 +0000 Subject: [PATCH] Remove the unused non-descriptor-reg and interior-reg SCs on the x86 port. --- code/debug-int.lisp | 10 +--------- compiler/x86/vm.lisp | 16 ++-------------- 2 files changed, 3 insertions(+), 23 deletions(-) diff --git a/code/debug-int.lisp b/code/debug-int.lisp index ff5d6ffc2..d88f4c7db 100644 --- a/code/debug-int.lisp +++ b/code/debug-int.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.87 1998/01/25 06:02:05 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.88 1998/02/14 21:09:48 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -3137,10 +3137,6 @@ (#.vm:unsigned-reg-sc-number (with-escaped-value (val) val)) - (#.vm:non-descriptor-reg-sc-number - (error "Local non-descriptor register access?")) - (#.vm:interior-reg-sc-number - (error "Local interior register access?")) (#.vm:single-reg-sc-number (escaped-float-value single-float)) (#.vm:double-reg-sc-number @@ -3388,10 +3384,6 @@ (set-escaped-value (logand value (1- (ash 1 vm:word-bits))))) (#.vm:unsigned-reg-sc-number (set-escaped-value value)) - (#.vm:non-descriptor-reg-sc-number - (error "Local non-descriptor register access?")) - (#.vm:interior-reg-sc-number - (error "Local interior register access?")) (#.vm:single-reg-sc-number #+nil ;; don't have escaped floats. (set-escaped-float-value single-float value)) diff --git a/compiler/x86/vm.lisp b/compiler/x86/vm.lisp index 97ae6b6f9..b9f2f9b35 100644 --- a/compiler/x86/vm.lisp +++ b/compiler/x86/vm.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/x86/vm.lisp,v 1.6 1997/11/18 10:53:27 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/vm.lisp,v 1.7 1998/02/14 21:09:52 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -16,7 +16,7 @@ ;;; Written by William Lott ;;; ;;; Debugged by Paul F. Werkowski Spring/Summer 1995. -;;; Enhancements/debugging by Douglas T. Crosher 1996, 1997. +;;; Enhancements/debugging by Douglas T. Crosher 1996, 1997, 1998. ;;; (in-package :x86) @@ -307,18 +307,6 @@ ;; A catch or unwind block. (catch-block stack :element-size vm:catch-block-size) - - ;; added by jrd. need to define non-descriptor-reg-sc-number for the - ;; debug code, among others. this doesn't actually get used in any code. - (non-descriptor-reg registers - :locations #.dword-regs - :element-size 2 - :reserve-locations ()) - ;; this one too - (interior-reg registers - :locations #.dword-regs - :element-size 2 - :reserve-locations ()) ) (eval-when (compile load eval) -- GitLab