[Git][cmucl/cmucl][sparc64-dev] 4 commits: Update docstring for REQUIRE
Raymond Toy
rtoy at common-lisp.net
Sun Mar 5 23:59:41 UTC 2017
Raymond Toy pushed to branch sparc64-dev at cmucl / cmucl
Commits:
28feabb4 by Raymond Toy at 2017-01-29T09:00:49-08:00
Update docstring for REQUIRE
Include a list of the builtin modules supported by cmucl to the
docstring.
- - - - -
f8d120c1 by Raymond Toy at 2017-01-29T09:00:49-08:00
Regenerated
- - - - -
b6317868 by Raymond Toy at 2017-03-05T15:43:56-08:00
Increase max-alignment from 3 to 4.
Use boot-2017-01-1.lisp to bootstrap this change You'll still have to
use the CLOBBER-IT restart when loading new-assem in the first
build. Afterwards, it should be fine.
- - - - -
108dbaf1 by Raymond Toy at 2017-03-05T15:59:18-08:00
Merge branch 'master' into sparc64-dev
- - - - -
7 changed files:
- bin/build.sh
- + src/bootfiles/21b/boot-2017-01-1.lisp
- src/code/module.lisp
- src/compiler/new-assem.lisp
- src/i18n/locale/cmucl.pot
- src/i18n/locale/en at piglatin/LC_MESSAGES/cmucl.po
- src/i18n/locale/ko/LC_MESSAGES/cmucl.po
Changes:
=====================================
bin/build.sh
=====================================
--- a/bin/build.sh
+++ b/bin/build.sh
@@ -39,7 +39,7 @@ ENABLE2="yes"
ENABLE3="yes"
ENABLE4="yes"
-version=21a
+version=21b
SRCDIR=src
BINDIR=bin
TOOLDIR=$BINDIR
=====================================
src/bootfiles/21b/boot-2017-01-1.lisp
=====================================
--- /dev/null
+++ b/src/bootfiles/21b/boot-2017-01-1.lisp
@@ -0,0 +1,132 @@
+;; Boot file to increase the max alignment value from 3 to 4.
+;;
+;; This takes care of everything for the bootstrap, but when new-assem
+;; is loaded. you'll get a warning. Select the CLOBBER-IT restart to
+;; continue.
+
+(in-package :new-assem)
+
+(handler-bind
+ ((error (lambda (c)
+ (declare (ignore c))
+ (invoke-restart 'continue))))
+ (defconstant max-alignment 4))
+
+(ext:without-package-locks
+(deftype alignment ()
+ `(integer 0 ,max-alignment))
+)
+
+(ext:without-package-locks
+(handler-bind ((error (lambda (c)
+ (declare (ignore c))
+ (invoke-restart 'kernel::clobber-it))))
+ (defstruct (segment
+ (:print-function %print-segment)
+ (:constructor make-segment (&key name run-scheduler inst-hook)))
+ ;;
+ ;; The name of this segment. Only using in trace files.
+ (name "Unnamed" :type simple-base-string)
+ ;;
+ ;; Whether or not run the scheduler. Note: if the instruction defintions
+ ;; were not compiled with the scheduler turned on, this has no effect.
+ (run-scheduler nil)
+ ;;
+ ;; If a function, then it is funcalled for each inst emitted with the
+ ;; segment, the VOP, the name of the inst (as a string), and the inst
+ ;; arguments.
+ (inst-hook nil :type (or function null))
+ ;;
+ ;; Where to deposit the next byte.
+ (fill-pointer (system:int-sap 0) :type system:system-area-pointer)
+ ;;
+ ;; Where the current output block ends. If fill-pointer is ever sap= to
+ ;; this, don't deposit a byte. Move the fill pointer into a new block.
+ (block-end (system:int-sap 0) :type system:system-area-pointer)
+ ;;
+ ;; What position does this correspond to. Initially, positions and indexes
+ ;; are the same, but after we start collapsing choosers, positions can change
+ ;; while indexes stay the same.
+ (current-posn 0 :type posn)
+ ;;
+ ;; Were in the output blocks are we currently outputing.
+ (current-index 0 :type index)
+ ;;
+ ;; A vector of the output blocks.
+ (output-blocks (make-array 4 :initial-element nil) :type simple-vector)
+ ;;
+ ;; A list of all the annotations that have been output to this segment.
+ (annotations nil :type list)
+ ;;
+ ;; A pointer to the last cons cell in the annotations list. This is
+ ;; so we can quickly add things to the end of the annotations list.
+ (last-annotation nil :type list)
+ ;;
+ ;; The number of bits of alignment at the last time we synchronized.
+ (alignment max-alignment :type alignment)
+ ;;
+ ;; The position the last time we synchronized.
+ (sync-posn 0 :type posn)
+ ;;
+ ;; The posn and index everything ends at. This is not maintained while the
+ ;; data is being generated, but is filled in after. Basically, we copy
+ ;; current-posn and current-index so that we can trash them while processing
+ ;; choosers and back-patches.
+ (final-posn 0 :type posn)
+ (final-index 0 :type index)
+ ;;
+ ;; *** State used by the scheduler during instruction queueing.
+ ;;
+ ;; List of postit's. These are accumulated between instructions.
+ (postits nil :type list)
+ ;;
+ ;; ``Number'' for last instruction queued. Used only to supply insts
+ ;; with unique sset-element-number's.
+ (inst-number 0 :type index)
+ ;;
+ ;; Simple-Vectors mapping locations to the instruction that reads them and
+ ;; instructions that write them.
+ (readers (make-array (assem-params-max-locations
+ (c:backend-assembler-params c:*backend*))
+ :initial-element nil)
+ :type simple-vector)
+ (writers (make-array (assem-params-max-locations
+ (c:backend-assembler-params c:*backend*))
+ :initial-element nil)
+ :type simple-vector)
+ ;;
+ ;; The number of additional cycles before the next control transfer, or NIL
+ ;; if a control transfer hasn't been queued. When a delayed branch is
+ ;; queued, this slot is set to the delay count.
+ (branch-countdown nil :type (or null (and fixnum unsigned-byte)))
+ ;;
+ ;; *** These two slots are used both by the queuing noise and the
+ ;; scheduling noise.
+ ;;
+ ;; All the instructions that are pending and don't have any unresolved
+ ;; dependents. We don't list branches here even if they would otherwise
+ ;; qualify. They are listed above.
+ ;;
+ (emittable-insts-sset (make-sset) :type sset)
+ ;;
+ ;; List of queued branches. We handle these specially, because they have to
+ ;; be emitted at a specific place (e.g. one slot before the end of the
+ ;; block).
+ (queued-branches nil :type list)
+ ;;
+ ;; *** State used by the scheduler duing instruction scheduling.
+ ;;
+ ;; The instructions who would have had a read dependent removed if it were
+ ;; not for a delay slot. This is a list of lists. Each element in the
+ ;; top level list corresponds to yet another cycle of delay. Each element
+ ;; in the second level lists is a dotted pair, holding the dependency
+ ;; instruction and the dependent to remove.
+ (delayed nil :type list)
+ ;;
+ ;; The emittable insts again, except this time as a list sorted by depth.
+ (emittable-insts-queue nil :type list)
+ ;;
+ ;; Whether or not to collect dynamic statistics. This is just the same as
+ ;; *collect-dynamic-statistics* but is faster to reference.
+ (collect-dynamic-statistics nil))))
+
=====================================
src/code/module.lisp
=====================================
--- a/src/code/module.lisp
+++ b/src/code/module.lisp
@@ -91,7 +91,17 @@
calling PROVIDE to indicate a successful load of the module.
While loading any files, *load-verbose* is bound to *require-verbose*
- which defaults to t."
+ which defaults to t.
+
+ The predefined modules included are :defsystem, :asdf, :lisp-unit,
+ :unix, :clx, :clm, :hemlock, and :cmu-contribs.
+
+ The module :cmu-contribs differs from the other modules in that
+ requiring this module only defines the following modules:
+ \"contrib-demos\", \"contrib-follow-mouse\",
+ \"contrib-games-feebs\", \"contrib-hist\", \"contrib-psgraph\",
+ \"contrib-ops\", \"contrib-embedded-c\", \"contrib-sprof\", and
+ \"contrib-packed-sse2\". "
(let ((saved-modules (copy-list *modules*))
(module-name (module-name-string module-name)))
(unless (member module-name *modules* :test #'string=)
=====================================
src/compiler/new-assem.lisp
=====================================
--- a/src/compiler/new-assem.lisp
+++ b/src/compiler/new-assem.lisp
@@ -80,7 +80,7 @@
;;; format. If the loader only loads objects 8-byte aligned, we can't do
;;; any better than that ourselves.
;;;
-(defconstant max-alignment 3)
+(defconstant max-alignment 4)
(deftype alignment ()
`(integer 0 ,max-alignment))
=====================================
src/i18n/locale/cmucl.pot
=====================================
--- a/src/i18n/locale/cmucl.pot
+++ b/src/i18n/locale/cmucl.pot
@@ -10397,7 +10397,17 @@ msgid ""
" calling PROVIDE to indicate a successful load of the module.\n"
"\n"
" While loading any files, *load-verbose* is bound to *require-verbose*\n"
-" which defaults to t."
+" which defaults to t.\n"
+"\n"
+" The predefined modules included are :defsystem, :asdf, :lisp-unit,\n"
+" :unix, :clx, :clm, :hemlock, and :cmu-contribs.\n"
+"\n"
+" The module :cmu-contribs differs from the other modules in that\n"
+" requiring this module only defines the following modules:\n"
+" \"contrib-demos\", \"contrib-follow-mouse\",\n"
+" \"contrib-games-feebs\", \"contrib-hist\", \"contrib-psgraph\",\n"
+" \"contrib-ops\", \"contrib-embedded-c\", \"contrib-sprof\", and\n"
+" \"contrib-packed-sse2\". "
msgstr ""
#: src/code/module.lisp
=====================================
src/i18n/locale/en at piglatin/LC_MESSAGES/cmucl.po
=====================================
--- a/src/i18n/locale/en at piglatin/LC_MESSAGES/cmucl.po
+++ b/src/i18n/locale/en at piglatin/LC_MESSAGES/cmucl.po
@@ -14850,6 +14850,7 @@ msgstr ""
" asecay-ensitivesay."
#: src/code/module.lisp
+#, fuzzy
msgid ""
"Loads a module when it has not been already. Pathname, if\n"
" supplied, is a single pathname or list of pathnames to be loaded if\n"
@@ -14872,7 +14873,17 @@ msgid ""
" calling PROVIDE to indicate a successful load of the module.\n"
"\n"
" While loading any files, *load-verbose* is bound to *require-verbose*\n"
-" which defaults to t."
+" which defaults to t.\n"
+"\n"
+" The predefined modules included are :defsystem, :asdf, :lisp-unit,\n"
+" :unix, :clx, :clm, :hemlock, and :cmu-contribs.\n"
+"\n"
+" The module :cmu-contribs differs from the other modules in that\n"
+" requiring this module only defines the following modules:\n"
+" \"contrib-demos\", \"contrib-follow-mouse\",\n"
+" \"contrib-games-feebs\", \"contrib-hist\", \"contrib-psgraph\",\n"
+" \"contrib-ops\", \"contrib-embedded-c\", \"contrib-sprof\", and\n"
+" \"contrib-packed-sse2\". "
msgstr ""
"Oadslay away odulemay enwhay itway ashay otnay eenbay alreadyway. "
"Athnamepay, ifway\n"
=====================================
src/i18n/locale/ko/LC_MESSAGES/cmucl.po
=====================================
--- a/src/i18n/locale/ko/LC_MESSAGES/cmucl.po
+++ b/src/i18n/locale/ko/LC_MESSAGES/cmucl.po
@@ -10422,7 +10422,17 @@ msgid ""
" calling PROVIDE to indicate a successful load of the module.\n"
"\n"
" While loading any files, *load-verbose* is bound to *require-verbose*\n"
-" which defaults to t."
+" which defaults to t.\n"
+"\n"
+" The predefined modules included are :defsystem, :asdf, :lisp-unit,\n"
+" :unix, :clx, :clm, :hemlock, and :cmu-contribs.\n"
+"\n"
+" The module :cmu-contribs differs from the other modules in that\n"
+" requiring this module only defines the following modules:\n"
+" \"contrib-demos\", \"contrib-follow-mouse\",\n"
+" \"contrib-games-feebs\", \"contrib-hist\", \"contrib-psgraph\",\n"
+" \"contrib-ops\", \"contrib-embedded-c\", \"contrib-sprof\", and\n"
+" \"contrib-packed-sse2\". "
msgstr ""
#: src/code/module.lisp
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/5958d66974d37ca7ce9700eff536576b35bf4c2d...108dbaf1c2a6cc6a210570ffbd94fae85d5876f9
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20170305/c1c66bb9/attachment-0001.html>
More information about the cmucl-cvs
mailing list