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

VM: makes some factor_vm methods to free functions

locals-and-roots
Björn Lindqvist 2016-05-29 03:03:07 +02:00
parent 941c9fabd4
commit b027285b48
2 changed files with 5 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
vm/dispatch.cpp
View File

@ -2,20 +2,16 @@
namespace factor {
cell factor_vm::search_lookup_alist(cell table, cell klass) {
static cell search_lookup_alist(cell table, cell klass) {
array* elements = untag<array>(table);
fixnum index = array_capacity(elements) - 2;
while (index >= 0) {
for (fixnum index = array_capacity(elements) - 2; index >= 0; index -= 2) {
if (array_nth(elements, index) == klass)
return array_nth(elements, index + 1);
else
index -= 2;
}
return false_object;
}
cell factor_vm::search_lookup_hash(cell table, cell klass, cell hashcode) {
static cell search_lookup_hash(cell table, cell klass, cell hashcode) {
array* buckets = untag<array>(table);
cell bucket = array_nth(buckets, hashcode & (array_capacity(buckets) - 1));
if (TAG(bucket) == ARRAY_TYPE)
@ -23,12 +19,12 @@ cell factor_vm::search_lookup_hash(cell table, cell klass, cell hashcode) {
return bucket;
}
cell factor_vm::nth_superclass(tuple_layout* layout, fixnum echelon) {
static cell nth_superclass(tuple_layout* layout, fixnum echelon) {
cell* ptr = (cell*)(layout + 1);
return ptr[echelon * 2];
}
cell factor_vm::nth_hashcode(tuple_layout* layout, fixnum echelon) {
static cell nth_hashcode(tuple_layout* layout, fixnum echelon) {
cell* ptr = (cell*)(layout + 1);
return ptr[echelon * 2 + 1];
}

4
vm/vm.hpp
View File

@ -660,10 +660,6 @@ struct factor_vm {
void primitive_quotation_compiled_p();
// dispatch
cell search_lookup_alist(cell table, cell klass);
cell search_lookup_hash(cell table, cell klass, cell hashcode);
cell nth_superclass(tuple_layout* layout, fixnum echelon);
cell nth_hashcode(tuple_layout* layout, fixnum echelon);
cell lookup_tuple_method(cell obj, cell methods);
cell lookup_method(cell obj, cell methods);
void primitive_lookup_method();