factor/basis/bootstrap/compiler/compiler.factor

! Copyright (C) 2007, 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors compiler cpu.architecture vocabs.loader system
sequences namespaces parser kernel kernel.private classes
classes.private arrays hashtables vectors classes.tuple sbufs
hashtables.private sequences.private math classes.tuple.private
growable namespaces.private assocs words command-line vocabs io
io.encodings.string prettyprint libc compiler.units math.order
compiler.tree.builder compiler.tree.optimizer ;
IN: bootstrap.compiler

! Don't bring this in when deploying, since it will store a
! reference to 'eval' in a global variable
"deploy-vocab" get [
    "alien.remote-control" require
] unless

"cpu." cpu name>> append require

enable-compiler

: compile-uncompiled ( words -- )
    [ compiled>> not ] filter compile ;

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.
{
    roll -roll declare not

    array? hashtable? vector?
    tuple? sbuf? node? tombstone?

    array-nth set-array-nth

    wrap probe

    namestack*
} compile-uncompiled

"." write flush

{
    bitand bitor bitxor bitnot
} compile-uncompiled

"." write flush

{
    + 1+ 1- 2/ < <= > >= shift
} compile-uncompiled

"." write flush

{
    new-sequence nth push pop peek
} compile-uncompiled

"." write flush

{
    hashcode* = get set
} compile-uncompiled

"." write flush

{
    . lines
} compile-uncompiled

"." write flush

{
    malloc calloc free memcpy
} compile-uncompiled

{
    build-tree optimize-tree
} compile-uncompiled

vocabs [ words compile-uncompiled "." write flush ] each

" done" print flush