"tools.dispatch.private"
"tools.memory.private"
"tools.profiler.counting.private"
+ "tools.profiler.sampling.private"
"words"
"words.private"
"vectors"
"bignum" "math" create register-builtin
"tuple" "kernel" create register-builtin
"float" "math" create register-builtin
-"f" "syntax" lookup register-builtin
+"f" "syntax" lookup-word register-builtin
"array" "arrays" create register-builtin
"wrapper" "kernel" create register-builtin
"callstack" "kernel" create register-builtin
"byte-array" "byte-arrays" create register-builtin
! We need this before defining c-ptr below
-"f" "syntax" lookup { } define-builtin
+"f" "syntax" lookup-word { } define-builtin
"f" "syntax" create [ not ] "predicate" set-word-prop
"f?" "syntax" vocab-words delete-at
-"t" "syntax" lookup define-singleton-class
+"t" "syntax" lookup-word define-singleton-class
! Some unions
"c-ptr" "alien" create [
- "alien" "alien" lookup ,
- "f" "syntax" lookup ,
- "byte-array" "byte-arrays" lookup ,
+ "alien" "alien" lookup-word ,
+ "f" "syntax" lookup-word ,
+ "byte-array" "byte-arrays" lookup-word ,
] { } make define-union-class
! A predicate class used for declarations
"array-capacity" "sequences.private" create
-"fixnum" "math" lookup
+"fixnum" "math" lookup-word
[
[ dup 0 fixnum>= ] %
bootstrap-max-array-capacity <fake-bignum> [ fixnum<= ] curry ,
] [ ] make
define-predicate-class
-"array-capacity" "sequences.private" lookup
+"array-capacity" "sequences.private" lookup-word
[ >fixnum ] bootstrap-max-array-capacity <fake-bignum> [ fixnum-bitand ] curry append
"coercer" set-word-prop
"props"
"pic-def"
"pic-tail-def"
- { "counter" { "fixnum" "math" } }
{ "sub-primitive" read-only }
} define-builtin
{ "state" } define-tuple-class
"((empty))" "hashtables.private" create
-"tombstone" "hashtables.private" lookup f
+"tombstone" "hashtables.private" lookup-word f
2array >tuple 1quotation ( -- value ) define-inline
"((tombstone))" "hashtables.private" create
-"tombstone" "hashtables.private" lookup t
+"tombstone" "hashtables.private" lookup-word t
2array >tuple 1quotation ( -- value ) define-inline
! Some tuple classes
{ "quot" read-only }
} prepare-slots define-tuple-class
-"curry" "kernel" lookup
+"curry" "kernel" lookup-word
{
[ f "inline" set-word-prop ]
[ make-flushable ]
{ "second" read-only }
} prepare-slots define-tuple-class
-"compose" "kernel" lookup
+"compose" "kernel" lookup-word
{
[ f "inline" set-word-prop ]
[ make-flushable ]
{ "set-fpu-state" "kernel.private" ( -- ) }
{ "signal-handler" "kernel.private" ( -- ) }
{ "leaf-signal-handler" "kernel.private" ( -- ) }
+ { "ffi-signal-handler" "kernel.private" ( -- ) }
+ { "ffi-leaf-signal-handler" "kernel.private" ( -- ) }
{ "unwind-native-frames" "kernel.private" ( -- ) }
{ "set-callstack" "kernel.private" ( callstack -- * ) }
{ "lazy-jit-compile" "kernel.private" ( -- ) }
{ "optimized?" "words" "primitive_optimized_p" ( word -- ? ) }
{ "word-code" "words" "primitive_word_code" ( word -- start end ) }
{ "(word)" "words.private" "primitive_word" ( name vocab hashcode -- word ) }
+ { "profiling" "tools.profiler.sampling.private" "primitive_sampling_profiler" ( ? -- ) }
+ { "(get-samples)" "tools.profiler.sampling.private" "primitive_get_samples" ( -- samples/f ) }
+ { "(clear-samples)" "tools.profiler.sampling.private" "primitive_clear_samples" ( -- ) }
} [ first4 make-primitive ] each
! Bump build number