From abfeff6ea6c7eaa2ab023539e7efbb408d8d42ea Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Mon, 31 Mar 2003 14:20:40 +0000 Subject: [PATCH] 0.pre8.20: Delete long-standing duplicate code in debug-info (which was copied, not moved, in sparc port way back when) --- src/code/debug-info.lisp | 16 ---------------- version.lisp-expr | 2 +- 2 files changed, 1 insertion(+), 17 deletions(-) diff --git a/src/code/debug-info.lisp b/src/code/debug-info.lisp index 9b58481..5ef9dee 100644 --- a/src/code/debug-info.lisp +++ b/src/code/debug-info.lisp @@ -11,22 +11,6 @@ (in-package "SB!C") -;;;; SC-OFFSETs -;;;; -;;;; We represent the place where some value is stored with a SC-OFFSET, -;;;; which is the SC number and offset encoded as an integer. - -(defconstant-eqx sc-offset-scn-byte (byte 5 0) #'equalp) -(defconstant-eqx sc-offset-offset-byte (byte 22 5) #'equalp) -(def!type sc-offset () '(unsigned-byte 27)) - -(defmacro make-sc-offset (scn offset) - `(dpb ,scn sc-offset-scn-byte - (dpb ,offset sc-offset-offset-byte 0))) - -(defmacro sc-offset-scn (sco) `(ldb sc-offset-scn-byte ,sco)) -(defmacro sc-offset-offset (sco) `(ldb sc-offset-offset-byte ,sco)) - ;;;; flags for compiled debug variables ;;; FIXME: old CMU CL representation follows: diff --git a/version.lisp-expr b/version.lisp-expr index 8ffbf43..1c26faa 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -18,4 +18,4 @@ ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.pre8.19" +"0.pre8.20" -- 1.7.10.4