March 2017 - cmucl-cvs - mailman3.common-lisp.net

[Git][cmucl/cmucl][master] Changes to allow building CMUCL under FreeBSD 10 and later.
by Fred Gilham 21 Mar '17

21 Mar '17

Fred Gilham pushed to branch master at cmucl / cmucl Commits: 39b6b59b by Fred Gilham at 2017-03-21T18:16:45-07:00 Changes to allow building CMUCL under FreeBSD 10 and later. - - - - - 3 changed files: - src/lisp/Config.x86_freebsd - src/motif/server/Config.FreeBSD - src/tools/linker.sh Changes: ===================================== src/lisp/Config.x86_freebsd ===================================== --- a/src/lisp/Config.x86_freebsd +++ b/src/lisp/Config.x86_freebsd @@ -1,5 +1,7 @@ # -*- Mode: makefile -*- include Config.x86_common +# Set the path to your 32-bit verison of GCC here. +CC=gcc CPPFLAGS += -march=pentium4 -mfpmath=sse ===================================== src/motif/server/Config.FreeBSD ===================================== --- a/src/motif/server/Config.FreeBSD +++ b/src/motif/server/Config.FreeBSD @@ -1,3 +1,5 @@ +## Path to 32-bit GCC compiler. +CC=gcc CFLAGS = -pthread -O2 -I/usr/local/include -I. -I$(VPATH) LDFLAGS = -L/usr/local/lib LIBS = -lXm -lXt -lX11 ===================================== src/tools/linker.sh ===================================== --- a/src/tools/linker.sh +++ b/src/tools/linker.sh @@ -70,7 +70,7 @@ case $uname_s in # See Config.x86_${uname_s} case $uname_s in Linux) OS_LIBS=-ldl;; - FreeBSD) OS_LIBS=-lutil;; + FreeBSD) OS_LIBS="-B/usr/lib32 -lutil";; esac ;; Darwin) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/39b6b59b81aa4600e025bd1bf…

1 0

[Git][cmucl/cmucl] Pushed new tag snapshot-2017-03
by Raymond Toy 05 Mar '17

05 Mar '17

Raymond Toy pushed new tag snapshot-2017-03 at cmucl / cmucl

1 0

[Git][cmucl/cmucl][sparc64-dev] 4 commits: Update docstring for REQUIRE
by Raymond Toy 05 Mar '17

05 Mar '17

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(a)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(a)piglatin/LC_MESSAGES/cmucl.po ===================================== --- a/src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po +++ b/src/i18n/locale/en(a)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/5958d66974d37ca7ce9700ef…

1 0

[Git][cmucl/cmucl][master] Increase max-alignment from 3 to 4.
by Raymond Toy 05 Mar '17

05 Mar '17

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 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. - - - - - 3 changed files: - bin/build.sh - + src/bootfiles/21b/boot-2017-01-1.lisp - src/compiler/new-assem.lisp 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/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)) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/b63178689fa12a610910d2bff…

1 0