Deploy tool fixes

release
Slava Pestov 2007-11-04 21:24:08 -05:00
parent cf39de0a33
commit 943fe1b6cf
3 changed files with 4 additions and 1 deletions

View File

@ -29,7 +29,7 @@ TUPLE: no-c-type name ;
dup string? [ (c-type) ] when
] when ;
GENERIC: c-type ( name -- type )
GENERIC: c-type ( name -- type ) foldable
: resolve-pointer-type ( name -- name )
c-types get at dup string?

View File

@ -16,6 +16,7 @@ IN: tools.deploy.shaker
: strip-init-hooks ( -- )
"Stripping startup hooks" show
"command-line" init-hooks get delete-at
"mallocs" init-hooks get delete-at
strip-io? [ "io.backend" init-hooks get delete-at ] when ;
: strip-debugger ( -- )

View File

@ -6,3 +6,5 @@ IN: libc
: free (free) ;
: realloc (realloc) ;
: calloc (calloc) ;