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 system.private combinators combinators.short-circuit locals
locals.backend locals.types combinators.private locals.backend locals.types combinators.private
stack-checker.values generic.single generic.single.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.alien
stack-checker.state stack-checker.state
stack-checker.errors stack-checker.errors
@ -739,6 +739,4 @@ M: bad-executable summary
\ (exit) { integer } { } define-primitive \ (exit) { integer } { } define-primitive
\ vm-ptr { } { alien } define-primitive
\ quot-compiled? { quotation } { object } 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 )) } { "dispatch-stats" "tools.dispatch.private" "primitive_dispatch_stats" (( -- stats )) }
{ "reset-dispatch-stats" "tools.dispatch.private" "primitive_reset_dispatch_stats" (( -- )) } { "reset-dispatch-stats" "tools.dispatch.private" "primitive_reset_dispatch_stats" (( -- )) }
{ "profiling" "tools.profiler.private" "primitive_profiling" (( ? -- )) } { "profiling" "tools.profiler.private" "primitive_profiling" (( ? -- )) }
{ "vm-ptr" "vm" "primitive_vm_ptr" (( -- ptr )) }
{ "optimized?" "words" "primitive_optimized_p" (( word -- ? )) } { "optimized?" "words" "primitive_optimized_p" (( word -- ? )) }
{ "word-code" "words" "primitive_word_code" (( word -- start end )) } { "word-code" "words" "primitive_word_code" (( word -- start end )) }
{ "(word)" "words.private" "primitive_word" (( name vocab -- word )) } { "(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); 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(tuple_boa)
PRIMITIVE(unimplemented) PRIMITIVE(unimplemented)
PRIMITIVE(uninitialized_byte_array) PRIMITIVE(uninitialized_byte_array)
PRIMITIVE(vm_ptr)
PRIMITIVE(word) PRIMITIVE(word)
PRIMITIVE(word_code) PRIMITIVE(word_code)
PRIMITIVE(wrapper) PRIMITIVE(wrapper)

1
vm/primitives.hpp
View File

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

1
vm/vm.hpp
View File

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