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

Remove type, class-hash primitives

db4
Slava Pestov 2008-04-02 21:37:26 -05:00
parent 192471badb
commit a27fa29098
5 changed files with 0 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/bootstrap/primitives.factor
View File

@ -656,7 +656,6 @@ define-builtin
{ "code-room" "memory" } { "code-room" "memory" }
{ "os-env" "system" } { "os-env" "system" }
{ "millis" "system" } { "millis" "system" }
{ "type" "kernel.private" }
{ "tag" "kernel.private" } { "tag" "kernel.private" }
{ "modify-code-heap" "compiler.units" } { "modify-code-heap" "compiler.units" }
{ "dlopen" "alien" } { "dlopen" "alien" }
@ -728,7 +727,6 @@ define-builtin
{ "(sleep)" "threads.private" } { "(sleep)" "threads.private" }
{ "<float-array>" "float-arrays" } { "<float-array>" "float-arrays" }
{ "<tuple-boa>" "classes.tuple.private" } { "<tuple-boa>" "classes.tuple.private" }
{ "class-hash" "kernel.private" }
{ "callstack>array" "kernel" } { "callstack>array" "kernel" }
{ "innermost-frame-quot" "kernel.private" } { "innermost-frame-quot" "kernel.private" }
{ "innermost-frame-scan" "kernel.private" } { "innermost-frame-scan" "kernel.private" }

3
core/inference/known-words/known-words.factor
View File

@ -386,9 +386,6 @@ set-primitive-effect
\ tag { object } { fixnum } <effect> set-primitive-effect \ tag { object } { fixnum } <effect> set-primitive-effect
\ tag make-foldable \ tag make-foldable
\ class-hash { object } { fixnum } <effect> set-primitive-effect
\ class-hash make-foldable
\ cwd { } { string } <effect> set-primitive-effect \ cwd { } { string } <effect> set-primitive-effect
\ cd { string } { } <effect> set-primitive-effect \ cd { string } { } <effect> set-primitive-effect

2
vm/primitives.c
View File

@ -106,7 +106,6 @@ void *primitives[] = {
primitive_code_room, primitive_code_room,
primitive_os_env, primitive_os_env,
primitive_millis, primitive_millis,
primitive_type,
primitive_tag, primitive_tag,
primitive_modify_code_heap, primitive_modify_code_heap,
primitive_dlopen, primitive_dlopen,
@ -178,7 +177,6 @@ void *primitives[] = {
primitive_sleep, primitive_sleep,
primitive_float_array, primitive_float_array,
primitive_tuple_boa, primitive_tuple_boa,
primitive_class_hash,
primitive_callstack_to_array, primitive_callstack_to_array,
primitive_innermost_stack_frame_quot, primitive_innermost_stack_frame_quot,
primitive_innermost_stack_frame_scan, primitive_innermost_stack_frame_scan,

21
vm/run.c
View File

@ -307,32 +307,11 @@ DEFINE_PRIMITIVE(sleep)
sleep_millis(to_cell(dpop())); sleep_millis(to_cell(dpop()));
} }
DEFINE_PRIMITIVE(type)
{
drepl(tag_fixnum(type_of(dpeek())));
}
DEFINE_PRIMITIVE(tag) DEFINE_PRIMITIVE(tag)
{ {
drepl(tag_fixnum(TAG(dpeek()))); drepl(tag_fixnum(TAG(dpeek())));
} }
DEFINE_PRIMITIVE(class_hash)
{
CELL obj = dpeek();
CELL tag = TAG(obj);
if(tag == TUPLE_TYPE)
{
F_TUPLE *tuple = untag_object(obj);
F_TUPLE_LAYOUT *layout = untag_object(tuple->layout);
drepl(layout->hashcode);
}
else if(tag == OBJECT_TYPE)
drepl(get(UNTAG(obj)));
else
drepl(tag_fixnum(tag));
}
DEFINE_PRIMITIVE(slot) DEFINE_PRIMITIVE(slot)
{ {
F_FIXNUM slot = untag_fixnum_fast(dpop()); F_FIXNUM slot = untag_fixnum_fast(dpop());

2
vm/run.h
View File

@ -253,9 +253,7 @@ DECLARE_PRIMITIVE(set_os_envs);
DECLARE_PRIMITIVE(eq); DECLARE_PRIMITIVE(eq);
DECLARE_PRIMITIVE(millis); DECLARE_PRIMITIVE(millis);
DECLARE_PRIMITIVE(sleep); DECLARE_PRIMITIVE(sleep);
DECLARE_PRIMITIVE(type);
DECLARE_PRIMITIVE(tag); DECLARE_PRIMITIVE(tag);
DECLARE_PRIMITIVE(class_hash);
DECLARE_PRIMITIVE(slot); DECLARE_PRIMITIVE(slot);
DECLARE_PRIMITIVE(set_slot); DECLARE_PRIMITIVE(set_slot);