From: Alastair B. <lis...@us...> - 2009-05-05 17:10:36
|
Update of /cvsroot/sbcl/sbcl In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv4933 Modified Files: make-genesis-2.lisp make-host-1.lisp version.lisp-expr Log Message: 1.0.28.14: Build system refactoring Moved flag processing as far "inward" as possible when dealing with compile-stem, reducing the amount of redundant code for parsing out and passing along boolean keywords based on the presence or absence of a flag and eliminating some of the keyword arguments to compile-stem. Added a "mode" parameter to compile-stem to enable determining the correct compile-file function based on the combination of mode and flags, further simplifying the interface. Added new functions for determining the source and object pathnames for a stem, fixing a longstanding KLUDGE in host-load-stem, consolidating the three instances of code to compute an object pathname and the two instances of code to compute a source pathname and eliminating the rest of the keyword arguments to compile-stem. Index: make-genesis-2.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/make-genesis-2.lisp,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- make-genesis-2.lisp 29 Dec 2005 16:08:31 -0000 1.1 +++ make-genesis-2.lisp 5 May 2009 17:10:29 -0000 1.2 @@ -10,7 +10,7 @@ (with-open-file (s "output/object-filenames-for-genesis.lisp-expr" :direction :input) (read s))) -(host-load-stem "src/compiler/generic/genesis") +(host-load-stem "src/compiler/generic/genesis" nil) (sb!vm:genesis :object-file-names *target-object-file-names* :c-header-dir-name "output/genesis-2" :symbol-table-file-name "src/runtime/sbcl.nm" Index: make-host-1.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/make-host-1.lisp,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- make-host-1.lisp 4 Sep 2008 13:04:45 -0000 1.2 +++ make-host-1.lisp 5 May 2009 17:10:29 -0000 1.3 @@ -32,7 +32,7 @@ ;;; propagate structure offset and other information to the C runtime ;;; support code. -(host-cload-stem "src/compiler/generic/genesis") +(host-cload-stem "src/compiler/generic/genesis" nil) (sb!vm:genesis :c-header-dir-name "src/runtime/genesis") #+cmu (ext:quit) #+clisp (ext:quit) Index: version.lisp-expr =================================================================== RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v retrieving revision 1.4430 retrieving revision 1.4431 diff -u -d -r1.4430 -r1.4431 --- version.lisp-expr 5 May 2009 10:53:16 -0000 1.4430 +++ version.lisp-expr 5 May 2009 17:10:29 -0000 1.4431 @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"1.0.28.13" +"1.0.28.14" |