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

VM: method compute_identity_hashcode is not needed

locals-and-roots
Björn Lindqvist 2016-05-02 14:05:01 +02:00
parent eb8b7f02bf
commit 2035eb91fe
2 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
vm/objects.cpp
View File

@ -26,18 +26,14 @@ void factor_vm::primitive_identity_hashcode() {
ctx->replace(tag_fixnum(obj->hashcode())); ctx->replace(tag_fixnum(obj->hashcode()));
} }
void factor_vm::compute_identity_hashcode(object* obj) { void factor_vm::primitive_compute_identity_hashcode() {
object* obj = untag<object>(ctx->pop());
object_counter++; object_counter++;
if (object_counter == 0) if (object_counter == 0)
object_counter++; object_counter++;
obj->set_hashcode((cell)obj ^ object_counter); obj->set_hashcode((cell)obj ^ object_counter);
} }
void factor_vm::primitive_compute_identity_hashcode() {
object* obj = untag<object>(ctx->pop());
compute_identity_hashcode(obj);
}
void factor_vm::primitive_set_slot() { void factor_vm::primitive_set_slot() {
fixnum slot = untag_fixnum(ctx->pop()); fixnum slot = untag_fixnum(ctx->pop());
object* obj = untag<object>(ctx->pop()); object* obj = untag<object>(ctx->pop());

1
vm/vm.hpp
View File

@ -184,7 +184,6 @@ struct factor_vm {
void primitive_special_object(); void primitive_special_object();
void primitive_set_special_object(); void primitive_set_special_object();
void primitive_identity_hashcode(); void primitive_identity_hashcode();
void compute_identity_hashcode(object* obj);
void primitive_compute_identity_hashcode(); void primitive_compute_identity_hashcode();
cell clone_object(cell obj_); cell clone_object(cell obj_);
void primitive_clone(); void primitive_clone();