This commit was manufactured by cvs2svn to create tag 'release-19d'.

;;;;

;;;; Boot file for changing the fasl file version numbers to 19d.

;;;;

(in-package :c)

(setf lisp::*enable-package-locked-errors* nil)

;;;

;;; Note that BYTE-FASL-FILE-VERSION is a constant.

;;;

;;; (Be sure to change BYTE-FASL-FILE-VERSION in

;;; compiler/byte-comp.lisp to the correct value too!)

;;;

(setf (symbol-value 'byte-fasl-file-version)       #x19d)

(setf (backend-fasl-file-version *target-backend*) #x19d)

;;;

;;; Don't check fasl versions in the compiling Lisp because we'll

;;; load files compiled with the new version numbers.

;;;

(setq lisp::*skip-fasl-file-version-check* t)

;;;

;;; This is here because BYTE-FASL-FILE-VERSION is constant-folded in

;;; OPEN-FASL-FILE.  To make the new version number take effect, we

;;; have to redefine the function.

;;;

(defun open-fasl-file (name where &optional byte-p)

  (declare (type pathname name))

  (let* ((stream (open name :direction :output

		       :if-exists :new-version

		       :element-type '(unsigned-byte 8)))

	 (res (make-fasl-file :stream stream)))

    (multiple-value-bind

	(version f-vers f-imp)

	(if byte-p

	    (values "Byte code"

		    byte-fasl-file-version

		    (backend-byte-fasl-file-implementation *backend*))

	    (values (backend-version *backend*)

		    (backend-fasl-file-version *backend*)

		    (backend-fasl-file-implementation *backend*)))

      (format stream

	      "FASL FILE output from ~A.~@

	       Compiled ~A on ~A~@

	       Compiler ~A, Lisp ~A~@

	       Targeted for ~A, FASL version ~X~%"

	      where

	      (ext:format-universal-time nil (get-universal-time))

	      (machine-instance) compiler-version

	      (lisp-implementation-version)

	      version f-vers)

      ;;

      ;; Terminate header.

      (dump-byte 255 res)

      ;;

      ;; Specify code format.

      (dump-fop 'lisp::fop-long-code-format res)

      (dump-byte f-imp res)

      (dump-unsigned-32 f-vers res))

    res))

;;;; end of boot-19d.lisp

;; This simple file is used to bootstrap the changes that remove the

;; constraint on the read-only space being in low memory.  This also

;; means we don't need those linker hacks and adjuster hacks.

;; Standard cross-compile script is good enough.

#+ppc

(load "target:tools/cross-scripts/cross-ppc-ppc-darwin.lisp")

;;;;

;;;; Boot file for changing the fasl file version numbers to 19e.

;;;;

(in-package :c)

(setf lisp::*enable-package-locked-errors* nil)

;;;

;;; Note that BYTE-FASL-FILE-VERSION is a constant.

;;;

;;; (Be sure to change BYTE-FASL-FILE-VERSION in

;;; compiler/byte-comp.lisp to the correct value too!)

;;;

(setf (symbol-value 'byte-fasl-file-version)       #x19e)

(setf (backend-fasl-file-version *target-backend*) #x19e)

;;;

;;; Don't check fasl versions in the compiling Lisp because we'll

;;; load files compiled with the new version numbers.

;;;

(setq lisp::*skip-fasl-file-version-check* t)

;;;

;;; This is here because BYTE-FASL-FILE-VERSION is constant-folded in

;;; OPEN-FASL-FILE.  To make the new version number take effect, we

;;; have to redefine the function.

;;;

(defun open-fasl-file (name where &optional byte-p)

  (declare (type pathname name))

  (let* ((stream (open name :direction :output

		       :if-exists :new-version

		       :element-type '(unsigned-byte 8)))

	 (res (make-fasl-file :stream stream)))

    (multiple-value-bind

	(version f-vers f-imp)

	(if byte-p

	    (values "Byte code"

		    byte-fasl-file-version

		    (backend-byte-fasl-file-implementation *backend*))

	    (values (backend-version *backend*)

		    (backend-fasl-file-version *backend*)

		    (backend-fasl-file-implementation *backend*)))

      (format stream

	      "FASL FILE output from ~A.~@

	       Compiled ~A on ~A~@

	       Compiler ~A, Lisp ~A~@

	       Targeted for ~A, FASL version ~X~%"

	      where

	      (ext:format-universal-time nil (get-universal-time))

	      (machine-instance) compiler-version

	      (lisp-implementation-version)

	      version f-vers)

      ;;

      ;; Terminate header.

      (dump-byte 255 res)

      ;;

      ;; Specify code format.

      (dump-fop 'lisp::fop-long-code-format res)

      (dump-byte f-imp res)

      (dump-unsigned-32 f-vers res))

    res))

;;; Bootstrap file for fused multiply vops for ppc.

(in-package "VM")

#+ppc

(progn

(defknown (vm::fused-multiply-subtract vm::fused-multiply-add)

    (double-float double-float double-float)

  double-float

  (movable flushable))

(export '(fused-multiply-subtract fused-multiply-add))

(define-vop (fused-multiply-subtract/double)

  (:args (x :scs (double-reg))

         (y :scs (double-reg))

	 (z :scs (double-reg)))

  (:results (r :scs (double-reg)))

  (:arg-types double-float double-float double-float)

  (:result-types double-float)

  (:translate vm::fused-multiply-subtract)

  (:policy :fast-safe)

  (:generator 1

    ;; r = x*y - z	       

    (inst fmsub r x y z)))

(define-vop (fused-multiply-add/double)

  (:args (x :scs (double-reg))

         (y :scs (double-reg))

	 (z :scs (double-reg)))

  (:results (r :scs (double-reg)))

  (:arg-types double-float double-float double-float)

  (:result-types double-float)

  (:translate vm::fused-multiply-add)

  (:policy :fast-safe)

  (:generator 1

    ;; r = x*y + z

    (inst fmadd r x y z)))

)

 No newline at end of file

;; Bootstrap file for bref cleanup

(in-package "EXTENSIONS")

(without-package-locks

(dolist (symbol '(bref buffer-sap endian-swap-value vector-elt-width))

  (unintern symbol)))

(in-package "KERNEL")

(without-package-locks

(export 'simple-stream-buffer)

(deftype simple-stream-buffer ()

  '(or sys:system-area-pointer (simple-unboxed-array (*))))

)