86 lines
1.7 KiB
Factor
Executable File
86 lines
1.7 KiB
Factor
Executable File
! Copyright (C) 2007, 2008 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: compiler cpu.architecture vocabs.loader system sequences
|
|
namespaces parser kernel kernel.private classes classes.private
|
|
arrays hashtables vectors tuples sbufs inference.dataflow
|
|
hashtables.private sequences.private math tuples.private
|
|
growable namespaces.private assocs words generator command-line
|
|
vocabs io prettyprint libc compiler.units ;
|
|
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 append require
|
|
|
|
: enable-compiler ( -- )
|
|
[ optimized-recompile-hook ] recompile-hook set-global ;
|
|
|
|
: disable-compiler ( -- )
|
|
[ default-recompile-hook ] recompile-hook set-global ;
|
|
|
|
enable-compiler
|
|
|
|
nl
|
|
"Compiling some words to speed up bootstrap..." 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
|
|
|
|
tuple-class-eq? array? hashtable? vector?
|
|
tuple? sbuf? node? tombstone?
|
|
|
|
array-capacity array-nth set-array-nth
|
|
|
|
wrap probe
|
|
|
|
delegate
|
|
|
|
underlying
|
|
|
|
find-pair-next namestack*
|
|
|
|
bitand bitor bitxor bitnot
|
|
} compile
|
|
|
|
"." write flush
|
|
|
|
{
|
|
+ 1+ 1- 2/ < <= > >= shift min
|
|
} compile
|
|
|
|
"." write flush
|
|
|
|
{
|
|
new nth push pop peek
|
|
} compile
|
|
|
|
"." write flush
|
|
|
|
{
|
|
hashcode* = get set
|
|
} compile
|
|
|
|
"." write flush
|
|
|
|
{
|
|
. lines
|
|
} compile
|
|
|
|
"." write flush
|
|
|
|
{
|
|
malloc free memcpy
|
|
} compile
|
|
|
|
" done" print flush
|