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

vm: remove vm-ptr primitive

db4
Slava Pestov 2010-01-20 17:06:49 +13:00
parent 580cbe75c6
commit 00328c85e0
6 changed files with 1 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/stack-checker/known-words/known-words.factor
View File

@ -13,7 +13,7 @@ words.private definitions assocs summary compiler.units
system.private combinators combinators.short-circuit locals
locals.backend locals.types combinators.private
stack-checker.values generic.single generic.single.private
alien.libraries tools.dispatch.private tools.profiler.private vm
alien.libraries tools.dispatch.private tools.profiler.private
stack-checker.alien
stack-checker.state
stack-checker.errors
@ -739,6 +739,4 @@ M: bad-executable summary
\ (exit) { integer } { } define-primitive
\ vm-ptr { } { alien } define-primitive
\ quot-compiled? { quotation } { object } define-primitive

1
core/bootstrap/primitives.factor
View File

@ -530,7 +530,6 @@ tuple
{ "dispatch-stats" "tools.dispatch.private" "primitive_dispatch_stats" (( -- stats )) }
{ "reset-dispatch-stats" "tools.dispatch.private" "primitive_reset_dispatch_stats" (( -- )) }
{ "profiling" "tools.profiler.private" "primitive_profiling" (( ? -- )) }
{ "vm-ptr" "vm" "primitive_vm_ptr" (( -- ptr )) }
{ "optimized?" "words" "primitive_optimized_p" (( word -- ? )) }
{ "word-code" "words" "primitive_word_code" (( word -- start end )) }
{ "(word)" "words.private" "primitive_word" (( name vocab -- word )) }

5
vm/alien.cpp
View File

@ -253,9 +253,4 @@ VM_C_API cell from_medium_struct(cell x1, cell x2, cell x3, cell x4, cell size,
return parent->from_medium_struct(x1, x2, x3, x4, size);
}
void factor_vm::primitive_vm_ptr()
{
ctx->push(allot_alien(this));
}
}

1
vm/primitives.cpp
View File

@ -129,7 +129,6 @@ PRIMITIVE(tuple)
PRIMITIVE(tuple_boa)
PRIMITIVE(unimplemented)
PRIMITIVE(uninitialized_byte_array)
PRIMITIVE(vm_ptr)
PRIMITIVE(word)
PRIMITIVE(word_code)
PRIMITIVE(wrapper)

1
vm/primitives.hpp
View File

@ -125,7 +125,6 @@ DECLARE_PRIMITIVE(tuple)
DECLARE_PRIMITIVE(tuple_boa)
DECLARE_PRIMITIVE(unimplemented)
DECLARE_PRIMITIVE(uninitialized_byte_array)
DECLARE_PRIMITIVE(vm_ptr)
DECLARE_PRIMITIVE(word)
DECLARE_PRIMITIVE(word_code)
DECLARE_PRIMITIVE(wrapper)

1
vm/vm.hpp
View File

@ -587,7 +587,6 @@ struct factor_vm
void primitive_dlsym();
void primitive_dlclose();
void primitive_dll_validp();
void primitive_vm_ptr();
char *alien_offset(cell obj);
void to_value_struct(cell src, void *dest, cell size);
cell from_value_struct(void *src, cell size);