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

Dev checkpoint

db4
Phil Dawes 2009-08-17 21:37:15 +01:00
parent 82e1ea7110
commit 7a20e1648c
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
vm/data_heap.cpp
View File

@ -237,7 +237,7 @@ void init_data_heap(cell gens,cell young_size,cell aging_size,cell tenured_size,
} }
/* Size of the object pointed to by a tagged pointer */ /* Size of the object pointed to by a tagged pointer */
cell object_size(cell tagged) cell factorvm::object_size(cell tagged)
{ {
if(immediate_p(tagged)) if(immediate_p(tagged))
return 0; return 0;
@ -245,6 +245,11 @@ cell object_size(cell tagged)
return untagged_object_size(untag<object>(tagged)); return untagged_object_size(untag<object>(tagged));
} }
cell object_size(cell tagged)
{
return vm->object_size(tagged);
}
/* Size of the object pointed to by an untagged pointer */ /* Size of the object pointed to by an untagged pointer */
cell factorvm::untagged_object_size(object *pointer) cell factorvm::untagged_object_size(object *pointer)
{ {

4
vm/vm.hpp
View File

@ -154,6 +154,9 @@ struct factorvm {
inline void vmprim_end_scan(); inline void vmprim_end_scan();
template<typename T> void each_object(T &functor); template<typename T> void each_object(T &functor);
cell find_all_words(); cell find_all_words();
cell object_size(cell tagged);
// next method here:
//write barrier //write barrier
inline card *addr_to_card(cell a); inline card *addr_to_card(cell a);
@ -412,7 +415,6 @@ struct factorvm {
inline double fixnum_to_float(cell tagged); inline double fixnum_to_float(cell tagged);
template <typename T> T *untag_check(cell value); template <typename T> T *untag_check(cell value);
template <typename T> T *untag(cell value); template <typename T> T *untag(cell value);
// next method here:
//io //io
void init_c_io(); void init_c_io();