Faster bootstrap

db4
Slava Pestov 2008-04-05 07:35:36 -05:00
parent d8ffc11242
commit 1cc72a386e
2 changed files with 7 additions and 9 deletions

View File

@ -19,7 +19,7 @@ IN: bootstrap.compiler
enable-compiler enable-compiler
nl nl
"Compiling some words to speed up bootstrap..." write flush "Compiling..." write flush
! Compile a set of words ahead of the full compile. ! Compile a set of words ahead of the full compile.
! This set of words was determined semi-empirically ! This set of words was determined semi-empirically
@ -74,4 +74,6 @@ nl
malloc calloc free memcpy malloc calloc free memcpy
} compile } compile
vocabs [ words [ compiled? not ] subset compile "." write flush ] each
" done" print flush " done" print flush

View File

@ -27,9 +27,9 @@ SYMBOL: bootstrap-time
seq-diff seq-diff
[ "bootstrap." prepend require ] each ; [ "bootstrap." prepend require ] each ;
: compile-remaining ( -- ) ! : compile-remaining ( -- )
"Compiling remaining words..." print flush ! "Compiling remaining words..." print flush
vocabs [ words [ compiled? not ] subset compile ] each ; ! vocabs [ words [ compiled? not ] subset compile ] each ;
: count-words ( pred -- ) : count-words ( pred -- )
all-words swap subset length number>string write ; all-words swap subset length number>string write ;
@ -57,7 +57,7 @@ millis >r
default-image-name "output-image" set-global default-image-name "output-image" set-global
"math help handbook compiler random tools ui ui.tools io" "include" set-global "math compiler help random tools ui ui.tools io handbook" "include" set-global
"" "exclude" set-global "" "exclude" set-global
parse-command-line parse-command-line
@ -79,10 +79,6 @@ os winnt? [ "windows.nt" require ] when
load-components load-components
run-bootstrap-init run-bootstrap-init
"bootstrap.compiler" vocab [
compile-remaining
] when
] with-compiler-errors ] with-compiler-errors
:errors :errors