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

bootstrap.compiler: add -debug-compiler switch which loads compiler but doesn't compile any words

db4
Slava Pestov 2009-08-20 03:48:03 -05:00
parent 9ef8f6c81d
commit a3631f1878
1 changed files with 59 additions and 55 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

72
basis/bootstrap/compiler/compiler.factor
View File

@ -35,16 +35,18 @@ gc
: compile-unoptimized ( words -- )
[ optimized? not ] filter compile ;
nl
"Compiling..." write flush
"debug-compiler" get [
! Compile a set of words ahead of the full compile.
! This set of words was determined semi-empirically
! using the profiler. It improves bootstrap time
! significantly, because frequenly called words
! which are also quick to compile are replaced by
! compiled definitions as soon as possible.
{
nl
"Compiling..." write flush
! Compile a set of words ahead of the full compile.
! This set of words was determined semi-empirically
! using the profiler. It improves bootstrap time
! significantly, because frequenly called words
! which are also quick to compile are replaced by
! compiled definitions as soon as possible.
{
not ?
2over roll -roll
@ -63,55 +65,57 @@ nl
namestack*
layout-of
} compile-unoptimized
} compile-unoptimized
"." write flush
"." write flush
{
{
bitand bitor bitxor bitnot
} compile-unoptimized
} compile-unoptimized
"." write flush
"." write flush
{
{
+ 2/ < <= > >= shift
} compile-unoptimized
} compile-unoptimized
"." write flush
"." write flush
{
{
new-sequence nth push pop last flip
} compile-unoptimized
} compile-unoptimized
"." write flush
"." write flush
{
{
hashcode* = equal? assoc-stack (assoc-stack) get set
} compile-unoptimized
} compile-unoptimized
"." write flush
"." write flush
{
{
memq? split harvest sift cut cut-slice start index clone
set-at reverse push-all class number>string string>number
like clone-like
} compile-unoptimized
} compile-unoptimized
"." write flush
"." write flush
{
{
lines prefix suffix unclip new-assoc update
word-prop set-word-prop 1array 2array 3array ?nth
} compile-unoptimized
} compile-unoptimized
"." write flush
"." write flush
{
{
malloc calloc free memcpy
} compile-unoptimized
} compile-unoptimized
"." write flush
"." write flush
vocabs [ words compile-unoptimized "." write flush ] each
vocabs [ words compile-unoptimized "." write flush ] each
" done" print flush
" done" print flush
] unless