print correct time on bootstrap
parent
a3cb03548c
commit
35695b6ff8
|
@ -36,7 +36,7 @@ SYMBOL: bootstrap-time
|
||||||
all-words swap count number>string write ; inline
|
all-words swap count number>string write ; inline
|
||||||
|
|
||||||
: print-time ( us -- )
|
: print-time ( us -- )
|
||||||
1000000 /i
|
1000 /i
|
||||||
60 /mod swap
|
60 /mod swap
|
||||||
number>string write
|
number>string write
|
||||||
" minutes and " write number>string write " seconds." print ;
|
" minutes and " write number>string write " seconds." print ;
|
||||||
|
@ -59,7 +59,7 @@ SYMBOL: bootstrap-time
|
||||||
|
|
||||||
[
|
[
|
||||||
! We time bootstrap
|
! We time bootstrap
|
||||||
system-micros 1000 /i
|
system-micros
|
||||||
|
|
||||||
default-image-name "output-image" set-global
|
default-image-name "output-image" set-global
|
||||||
|
|
||||||
|
@ -84,14 +84,14 @@ SYMBOL: bootstrap-time
|
||||||
|
|
||||||
load-components
|
load-components
|
||||||
|
|
||||||
system-micros 1000 /i over - core-bootstrap-time set-global
|
system-micros over - core-bootstrap-time set-global
|
||||||
|
|
||||||
run-bootstrap-init
|
run-bootstrap-init
|
||||||
|
|
||||||
f error set-global
|
f error set-global
|
||||||
f error-continuation set-global
|
f error-continuation set-global
|
||||||
|
|
||||||
system-micros 1000 /i swap - bootstrap-time set-global
|
system-micros swap - bootstrap-time set-global
|
||||||
print-report
|
print-report
|
||||||
|
|
||||||
"deploy-vocab" get [
|
"deploy-vocab" get [
|
||||||
|
|
Loading…
Reference in New Issue