From: William H. N. <wn...@us...> - 2002-10-10 16:55:40
|
Update of /cvsroot/sbcl/sbcl/src/code In directory usw-pr-cvs1:/tmp/cvs-serv420/src/code Modified Files: alpha-vm.lisp debug-int.lisp hppa-vm.lisp mips-vm.lisp ppc-vm.lisp sparc-vm.lisp stream.lisp x86-vm.lisp Log Message: 0.7.7.24: READ-VAR-INTEGER and READ-PACKED-BIT-VECTOR are external to SB!C, so don't need double colons in SB!C: prefixes. made (FORMAT "foo" "bar") fail earlier, at FILL-POINTER-OUTPUT-STREAM ctor time, instead of when the FILL-POINTER-OUTPUT-STREAM is first used for output got rid of *TOPLEVEL-LAMBDA-MAX* and *PENDING-TOPLEVEL-LAMBDAS* (and FORCE-P arg to SUB-COMPILE-TOPLEVEL-LAMBDAS and COMPILE-TOPLEVEL-LAMBDAS, and TOPLEVEL-CLOSURE in COMPILE-TOPLEVEL, and various now-redundant FORCE-P-only calls to COMPILE-TOPLEVEL-LAMBDAS) Index: alpha-vm.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/alpha-vm.lisp,v retrieving revision 1.13 retrieving revision 1.14 diff -u -d -r1.13 -r1.14 --- alpha-vm.lisp 22 May 2002 14:50:23 -0000 1.13 +++ alpha-vm.lisp 10 Oct 2002 16:55:07 -0000 1.14 @@ -163,11 +163,11 @@ vector (* n-word-bits vector-data-offset) (* length n-byte-bits)) (let* ((index 0) - (error-number (sb!c::read-var-integer vector index))) + (error-number (sb!c:read-var-integer vector index))) (collect ((sc-offsets)) (loop (when (>= index length) (return)) - (sc-offsets (sb!c::read-var-integer vector index))) + (sc-offsets (sb!c:read-var-integer vector index))) (values error-number (sc-offsets))))))) Index: debug-int.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/debug-int.lisp,v retrieving revision 1.66 retrieving revision 1.67 diff -u -d -r1.66 -r1.67 --- debug-int.lisp 18 Mar 2002 19:08:01 -0000 1.66 +++ debug-int.lisp 10 Oct 2002 16:55:07 -0000 1.67 @@ -1513,19 +1513,18 @@ (list successors)) (dotimes (k (ldb sb!c::compiled-debug-block-nsucc-byte succ-and-flags)) - (push (sb!c::read-var-integer blocks i) successors)) + (push (sb!c:read-var-integer blocks i) successors)) (let* ((locations - (dotimes (k (sb!c::read-var-integer blocks i) + (dotimes (k (sb!c:read-var-integer blocks i) (result locations-buffer)) (let ((kind (svref sb!c::*compiled-code-location-kinds* (aref+ blocks i))) (pc (+ last-pc - (sb!c::read-var-integer blocks i))) + (sb!c:read-var-integer blocks i))) (tlf-offset (or tlf-number - (sb!c::read-var-integer blocks - i))) - (form-number (sb!c::read-var-integer blocks i)) - (live-set (sb!c::read-packed-bit-vector + (sb!c:read-var-integer blocks i))) + (form-number (sb!c:read-var-integer blocks i)) + (live-set (sb!c:read-packed-bit-vector live-set-len blocks i))) (vector-push-extend (make-known-code-location pc debug-fun tlf-offset Index: hppa-vm.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/hppa-vm.lisp,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- hppa-vm.lisp 15 Sep 2002 18:18:12 -0000 1.2 +++ hppa-vm.lisp 10 Oct 2002 16:55:07 -0000 1.3 @@ -94,10 +94,10 @@ vector-data-offset) (* length n-byte-bits)) (let* ((index 0) - (error-number (sb!c::read-var-integer vector index))) + (error-number (sb!c:read-var-integer vector index))) (collect ((sc-offsets)) (loop (when (>= index length) (return)) - (sc-offsets (sb!c::read-var-integer vector index))) + (sc-offsets (sb!c:read-var-integer vector index))) (values error-number (sc-offsets))))))) Index: mips-vm.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/mips-vm.lisp,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- mips-vm.lisp 15 Sep 2002 18:18:12 -0000 1.2 +++ mips-vm.lisp 10 Oct 2002 16:55:07 -0000 1.3 @@ -123,7 +123,7 @@ vector-data-offset) (* length n-byte-bits)) (let* ((index 0) - (error-number (sb!c::read-var-integer vector index))) + (error-number (sb!c:read-var-integer vector index))) (/hexstr error-number) (collect ((sc-offsets)) (loop @@ -131,7 +131,7 @@ (/hexstr index) (when (>= index length) (return)) - (sc-offsets (sb!c::read-var-integer vector index))) + (sc-offsets (sb!c:read-var-integer vector index))) (values error-number (sc-offsets))))))) Index: ppc-vm.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/ppc-vm.lisp,v retrieving revision 1.5 retrieving revision 1.6 diff -u -d -r1.5 -r1.6 --- ppc-vm.lisp 15 Sep 2002 18:18:12 -0000 1.5 +++ ppc-vm.lisp 10 Oct 2002 16:55:07 -0000 1.6 @@ -149,12 +149,12 @@ sb!vm:vector-data-offset) (* length sb!vm:n-byte-bits)) (let* ((index 0) - (error-number (sb!c::read-var-integer vector index))) + (error-number (sb!c:read-var-integer vector index))) (collect ((sc-offsets)) (loop (when (>= index length) (return)) - (sc-offsets (sb!c::read-var-integer vector index))) + (sc-offsets (sb!c:read-var-integer vector index))) (values error-number (sc-offsets)))))) Index: sparc-vm.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/sparc-vm.lisp,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- sparc-vm.lisp 20 Jun 2002 11:23:48 -0000 1.3 +++ sparc-vm.lisp 10 Oct 2002 16:55:07 -0000 1.4 @@ -147,12 +147,12 @@ vector-data-offset) (* length n-byte-bits)) (let* ((index 0) - (error-number (sb!c::read-var-integer vector index))) + (error-number (sb!c:read-var-integer vector index))) (collect ((sc-offsets)) (loop (when (>= index length) (return)) - (sc-offsets (sb!c::read-var-integer vector index))) + (sc-offsets (sb!c:read-var-integer vector index))) (values error-number (sc-offsets)))))) (defun args-for-tagged-add-inst (context bad-inst) Index: stream.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/stream.lisp,v retrieving revision 1.30 retrieving revision 1.31 diff -u -d -r1.30 -r1.31 --- stream.lisp 6 Oct 2002 14:10:39 -0000 1.30 +++ stream.lisp 10 Oct 2002 16:55:07 -0000 1.31 @@ -1190,10 +1190,15 @@ (out #'fill-pointer-ouch) (sout #'fill-pointer-sout) (misc #'fill-pointer-misc)) - (:constructor make-fill-pointer-output-stream (string)) + (:constructor %make-fill-pointer-output-stream (string)) (:copier nil)) - ;; the string we throw stuff in - string) + ;; a string with a fill pointer where we stuff the stuff we write + (string (error "missing argument") :type string :read-only t)) + +(defun make-fill-pointer-output-stream (string) + (declare (type string string)) + (fill-pointer string) ; called for side effect of checking has-fill-pointer + (%make-fill-pointer-output-stream string)) (defun fill-pointer-ouch (stream character) (let* ((buffer (fill-pointer-output-stream-string stream)) Index: x86-vm.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/x86-vm.lisp,v retrieving revision 1.23 retrieving revision 1.24 diff -u -d -r1.23 -r1.24 --- x86-vm.lisp 16 Jul 2002 13:48:05 -0000 1.23 +++ x86-vm.lisp 10 Oct 2002 16:55:07 -0000 1.24 @@ -285,7 +285,7 @@ vector (* n-word-bits vector-data-offset) (* length n-byte-bits)) (let* ((index 0) - (error-number (sb!c::read-var-integer vector index))) + (error-number (sb!c:read-var-integer vector index))) (/hexstr error-number) (collect ((sc-offsets)) (loop @@ -293,7 +293,7 @@ (/hexstr index) (when (>= index length) (return)) - (let ((sc-offset (sb!c::read-var-integer vector index))) + (let ((sc-offset (sb!c:read-var-integer vector index))) (/show0 "SC-OFFSET=..") (/hexstr sc-offset) (sc-offsets sc-offset))) |