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

Tree shaker no longer loads threads into threadless images; 77kb improvement on hello-world size

db4
Slava Pestov 2008-10-02 05:14:05 -05:00
parent 7a2eb1d7b2
commit 2b420656d6
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/tools/deploy/shaker/shaker.factor
View File

@ -13,7 +13,6 @@ QUALIFIED: compiler.errors.private
QUALIFIED: continuations QUALIFIED: continuations
QUALIFIED: definitions QUALIFIED: definitions
QUALIFIED: init QUALIFIED: init
QUALIFIED: io.thread
QUALIFIED: layouts QUALIFIED: layouts
QUALIFIED: listener QUALIFIED: listener
QUALIFIED: prettyprint.config QUALIFIED: prettyprint.config
@ -214,13 +213,14 @@ IN: tools.deploy.shaker
continuations:restarts continuations:restarts
listener:error-hook listener:error-hook
init:init-hooks init:init-hooks
io.thread:io-thread
source-files:source-files source-files:source-files
input-stream input-stream
output-stream output-stream
error-stream error-stream
} % } %
"io-thread" "io.thread" lookup ,
"mallocs" "libc.private" lookup , "mallocs" "libc.private" lookup ,
deploy-threads? [ deploy-threads? [

10
basis/tools/deploy/shaker/strip-debugger.factor
View File

@ -1,8 +1,14 @@
USING: kernel threads threads.private ; USING: compiler.units words vocabs kernel threads.private ;
IN: debugger IN: debugger
: print-error ( error -- ) die drop ; : print-error ( error -- ) die drop ;
: error. ( error -- ) die drop ; : error. ( error -- ) die drop ;
M: thread error-in-thread ( error thread -- ) die 2drop ; "threads" vocab [
[
"error-in-thread" "threads" lookup
[ die 2drop ]
define
] with-compilation-unit
] when