Commit a23a41d4 authored by rtoy's avatar rtoy
Browse files

boot-2008-05-cross-unicode-common.lisp:

o Add comments.

boot-2008-05-cross-unicode-sparc.lisp:
boot-2008-05-cross-unicode-x86.lisp:
o Add comments.
o Remove part about kill deftransforms.  The common file already does
  that.
parent 97944a22
Loading
Loading
Loading
Loading
+3 −0
Original line number Diff line number Diff line
;;; Common part for cross-compiling 16-bit strings for Unicode.
;;; This part is independent of the architecture.

(pushnew :unicode *features*)
(in-package "C")

+3 −5
Original line number Diff line number Diff line
;;; Cross-compile script to add 16-bit strings for Unicode support.
;;; Use as the cross-compile script for cross-build-world.sh.

(in-package :cl-user)

;;; Rename the SPARC package and backend so that new-backend does the
@@ -83,11 +86,6 @@
    (t 0 32 old-sparc:simple-vector-type)))
)

;; Kill the any deftransforms
(in-package "C")
(dolist (f '(concatenate subseq replace copy-seq))
  (setf (c::function-info-transforms (c::function-info-or-lose f)) nil))

(load "target:bootfiles/19e/boot-2008-05-cross-unicode-common.lisp")


+3 −5
Original line number Diff line number Diff line
;;; Cross-compile script to add 16-bit strings for Unicode support.
;;; Use as the cross-compile script for cross-build-world.sh.

(in-package :cl-user)

;;; Rename the X86 package and backend so that new-backend does the
@@ -65,11 +68,6 @@
    (t 0 32 old-x86:simple-vector-type)))
)

;; Kill the any deftransforms
(in-package "C")
(dolist (f '(concatenate subseq replace copy-seq))
  (setf (c::function-info-transforms (c::function-info-or-lose f)) nil))

(load "target:bootfiles/19e/boot-2008-05-cross-unicode-common.lisp")

;; Kill the any deftransforms