steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

basis/bootstrap/stage2: Show core bootstrap time in report

db4
Eduardo Cavazos 2008-11-10 20:05:50 -06:00
parent 7104cd4fe8
commit 78d9452b7e
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
basis/bootstrap/stage2.factor
View File

@ -8,6 +8,8 @@ definitions assocs compiler.errors compiler.units
math.parser generic sets debugger command-line ; math.parser generic sets debugger command-line ;
IN: bootstrap.stage2 IN: bootstrap.stage2
SYMBOL: core-bootstrap-time
SYMBOL: bootstrap-time SYMBOL: bootstrap-time
: default-image-name ( -- string ) : default-image-name ( -- string )
@ -30,7 +32,14 @@ SYMBOL: bootstrap-time
: count-words ( pred -- ) : count-words ( pred -- )
all-words swap count number>string write ; all-words swap count number>string write ;
: print-report ( time -- ) : print-report ( -- )
core-bootstrap-time get
1000 /i
60 /mod swap
"Core bootstrap completed in " write number>string write
" minutes and " write number>string write " seconds." print
bootstrap-time get
1000 /i 1000 /i
60 /mod swap 60 /mod swap
"Bootstrap completed in " write number>string write "Bootstrap completed in " write number>string write
@ -46,7 +55,7 @@ SYMBOL: bootstrap-time
[ [
! We time bootstrap ! We time bootstrap
millis >r millis
default-image-name "output-image" set-global default-image-name "output-image" set-global
@ -71,6 +80,8 @@ SYMBOL: bootstrap-time
[ [
load-components load-components
millis over - core-bootstrap-time set-global
run-bootstrap-init run-bootstrap-init
] with-compiler-errors ] with-compiler-errors
:errors :errors
@ -92,7 +103,7 @@ SYMBOL: bootstrap-time
] [ print-error 1 exit ] recover ] [ print-error 1 exit ] recover
] set-boot-quot ] set-boot-quot
millis r> - dup bootstrap-time set-global millis swap - bootstrap-time set-global
print-report print-report
"output-image" get save-image-and-exit "output-image" get save-image-and-exit