From 456fe4b62b1de44fdfaab4410957dd18495beb14 Mon Sep 17 00:00:00 2001 From: William Harold Newman Date: Sat, 5 May 2001 02:44:44 +0000 Subject: [PATCH] 0.6.12: removed a little REMOVEME stuff, otherwise like 0.6.11.45 --- NEWS | 4 ++++ src/compiler/generic/vm-fndb.lisp | 7 ------- src/compiler/generic/vm-tran.lisp | 34 +--------------------------------- version.lisp-expr | 2 +- 4 files changed, 6 insertions(+), 41 deletions(-) diff --git a/NEWS b/NEWS index ac3c486..b49d315 100644 --- a/NEWS +++ b/NEWS @@ -723,6 +723,8 @@ changes in sbcl-0.6.12 relative to sbcl-0.6.11: * improved support for type intersection and union, fixing bug 12 (e.g., now (SUBTYPEP 'KEYWORD 'SYMBOL)=>T,T) and some other more obscure bugs as well +* some steps toward byte-compiling non-performance-critical + parts of the system, courtesy of patches from Martin Atzmueller * Christophe Rhodes has made some debian packages of sbcl at . From his sbcl-devel e-mail of 2001-04-08 they're not completely @@ -753,3 +755,5 @@ planned incompatible changes in 0.7.x: * MAYBE-INLINE will probably go away at some point, maybe 0.7.x, maybe later, in favor of the ANSI-recommended idiom for making a function optionally inline. +* FASL file extensions change to ".fasl", instead of the various + CPU-dependent values (".x86f" etc.) inherited from CMU CL. diff --git a/src/compiler/generic/vm-fndb.lisp b/src/compiler/generic/vm-fndb.lisp index 1464c0a..8ed1ba1 100644 --- a/src/compiler/generic/vm-fndb.lisp +++ b/src/compiler/generic/vm-fndb.lisp @@ -292,13 +292,6 @@ (defknown %make-funcallable-instance (index layout) function (unsafe)) -;;; FIXME/REMOVEME: MNA patched these like this, but I don't -;;; understand why, so I mutated them back to see what goes wrong. -;;;-(defknown %funcallable-instance-info (function index) t (flushable)) -;;;-(defknown %set-funcallable-instance-info (function index t) t (unsafe)) -;;;+(defknown %funcallable-instance-info ((or function cons) index) t (flushable)) -;;;+(defknown %set-funcallable-instance-info ((or function cons) index t) t (unsafe)) -;;; (defknown %funcallable-instance-info (function index) t (flushable)) (defknown %set-funcallable-instance-info (function index t) t (unsafe)) diff --git a/src/compiler/generic/vm-tran.lisp b/src/compiler/generic/vm-tran.lisp index 9f0026c..672b1a2 100644 --- a/src/compiler/generic/vm-tran.lisp +++ b/src/compiler/generic/vm-tran.lisp @@ -266,39 +266,7 @@ (without-gcing (memmove (sap+ (sap ,dst) ,dst-start) (sap+ (sap ,src) ,src-start) - (- ,dst-end ,dst-start))))) - - ;; REMOVEME when new version works - ;; - ;; old version, had overflow problems because it converts byte - ;; indices to bit indices, which is not good when GENESIS is trying - ;; to read into a byte vector which represents the cold image (>16M bytes) - #+nil - `(let ((src ,src) - (src-start (* ,src-start sb!vm:byte-bits)) - (dst ,dst) - (dst-start (* ,dst-start sb!vm:byte-bits)) - (dst-end (* ,dst-end sb!vm:byte-bits))) - (let ((length (- dst-end dst-start))) - (etypecase src - (system-area-pointer - (etypecase dst - (system-area-pointer - (system-area-copy src src-start dst dst-start length)) - ((simple-unboxed-array (*)) - (copy-from-system-area src src-start - dst (+ dst-start ,vector-data-bit-offset) - length)))) - ((simple-unboxed-array (*)) - (etypecase dst - (system-area-pointer - (copy-to-system-area src (+ src-start ,vector-data-bit-offset) - dst dst-start - length)) - ((simple-unboxed-array (*)) - (bit-bash-copy src (+ src-start ,vector-data-bit-offset) - dst (+ dst-start ,vector-data-bit-offset) - length)))))))) + (- ,dst-end ,dst-start)))))) ;;;; transforms for EQL of floating point values diff --git a/version.lisp-expr b/version.lisp-expr index cf11c11..53ff3dd 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -15,4 +15,4 @@ ;;; versions, and a string like "0.6.5.12" is used for versions which ;;; aren't released but correspond only to CVS tags or snapshots. -"0.6.11.45" +"0.6.12" -- 1.7.10.4