vm: Add more Allocates memory comments.

vm/allot.hpp

@@ -5,6 +5,7 @@ namespace factor
  * It is up to the caller to fill in the object's fields in a meaningful
  * fashion!
  */
+/* Allocates memory */
 inline object *factor_vm::allot_object(cell type, cell size)
 {
 #ifdef FACTOR_DEBUG

vm/bignum.cpp

@@ -1299,6 +1299,7 @@ bignum * factor_vm::allot_bignum_zeroed(bignum_length_type length, int negative_
 }
 
 /* can allocate if not in nursery or size is larger */
+/* Allocates memory conditionally */
 #define BIGNUM_REDUCE_LENGTH(source, length)	\
 source = reallot_array(source,length + 1)
 

vm/code_blocks.cpp

@@ -403,6 +403,7 @@ void factor_vm::fixup_labels(array *labels, code_block *compiled)
 }
 
 /* Might GC */
+/* Allocates memory */
 code_block *factor_vm::allot_code_block(cell size, code_block_type type)
 {
 	code_block *block = code->allocator->allot(size + sizeof(code_block));
@@ -431,6 +432,7 @@ code_block *factor_vm::allot_code_block(cell size, code_block_type type)
 }
 
 /* Might GC */
+/* Allocates memory */
 code_block *factor_vm::add_code_block(code_block_type type, cell code_, cell labels_,
 	cell owner_, cell relocation_, cell parameters_, cell literals_,
 	cell frame_size_untagged)

vm/code_heap.cpp

@@ -189,6 +189,7 @@ void factor_vm::initialize_code_blocks()
 	code->uninitialized_blocks.clear();
 }
 
+/* Allocates memory */
 void factor_vm::primitive_modify_code_heap()
 {
 	bool reset_inline_caches = to_boolean(ctx->pop());
@@ -307,6 +308,7 @@ struct code_block_accumulator {
 	}
 };
 
+/* Allocates memory */
 cell factor_vm::code_blocks()
 {
 	code_block_accumulator accum;
@@ -314,6 +316,7 @@ cell factor_vm::code_blocks()
 	return std_vector_to_array(accum.objects);
 }
 
+/* Allocates memory */
 void factor_vm::primitive_code_blocks()
 {
 	ctx->push(code_blocks());

vm/data_heap.cpp

@@ -148,6 +148,7 @@ data_heap_room factor_vm::data_room()
 	return room;
 }
 
+/* Allocates memory */
 void factor_vm::primitive_data_room()
 {
 	data_heap_room room = data_room();

vm/dispatch.cpp

@@ -138,6 +138,7 @@ void factor_vm::primitive_reset_dispatch_stats()
 	memset(&dispatch_stats,0,sizeof(dispatch_statistics));
 }
 
+/* Allocates memory */
 void factor_vm::primitive_dispatch_stats()
 {
 	ctx->push(tag<byte_array>(byte_array_from_value(&dispatch_stats)));

vm/gc.cpp

@@ -328,6 +328,7 @@ void factor_vm::primitive_enable_gc_events()
 	gc_events = new std::vector<gc_event>();
 }
 
+/* Allocates memory */
 void factor_vm::primitive_disable_gc_events()
 {
 	if(gc_events)

vm/vm.hpp

@@ -375,6 +375,7 @@ struct factor_vm
 	object *allot_object(cell type, cell size);
 	object *allot_large_object(cell type, cell size);
 
+	/* Allocates memory */
 	template<typename Type> Type *allot(cell size)
 	{
 		return (Type *)allot_object(Type::type_number,size);