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

VM: refactoring to remove redundancy in retainstack|datastack_to_array

db4
Björn Lindqvist 2015-02-28 19:41:32 +00:00 committed by John Benediktsson
parent 0798928996
commit 6b29c0ea00
2 changed files with 13 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
vm/contexts.cpp
View File

@ -174,26 +174,22 @@ void factor_vm::primitive_context_object_for() {
}
/* Allocates memory */
cell factor_vm::stack_to_array(cell bottom, cell top) {
cell factor_vm::stack_to_array(cell bottom, cell top, vm_error_type error) {
fixnum depth = (fixnum)(top - bottom + sizeof(cell));
if (depth < 0)
return false_object;
else {
array* a = allot_uninitialized_array<array>(depth / sizeof(cell));
memcpy(a + 1, (void*)bottom, depth);
return tag<array>(a);
if (depth < 0) {
general_error(error, false_object, false_object);
}
array* a = allot_uninitialized_array<array>(depth / sizeof(cell));
memcpy(a + 1, (void*)bottom, depth);
return tag<array>(a);
}
/* Allocates memory */
cell factor_vm::datastack_to_array(context* ctx) {
cell array = stack_to_array(ctx->datastack_seg->start, ctx->datastack);
if (array == false_object) {
general_error(ERROR_DATASTACK_UNDERFLOW, false_object, false_object);
return false_object;
} else
return array;
return stack_to_array(ctx->datastack_seg->start,
ctx->datastack,
ERROR_DATASTACK_UNDERFLOW);
}
/* Allocates memory */
@ -207,12 +203,9 @@ void factor_vm::primitive_datastack_for() {
/* Allocates memory */
cell factor_vm::retainstack_to_array(context* ctx) {
cell array = stack_to_array(ctx->retainstack_seg->start, ctx->retainstack);
if (array == false_object) {
general_error(ERROR_RETAINSTACK_UNDERFLOW, false_object, false_object);
return false_object;
} else
return array;
return stack_to_array(ctx->retainstack_seg->start,
ctx->retainstack,
ERROR_RETAINSTACK_UNDERFLOW);
}
/* Allocates memory */

2
vm/vm.hpp
View File

@ -164,7 +164,7 @@ struct factor_vm {
void primitive_context_object();
void primitive_context_object_for();
void primitive_set_context_object();
cell stack_to_array(cell bottom, cell top);
cell stack_to_array(cell bottom, cell top, vm_error_type error);
cell datastack_to_array(context* ctx);
void primitive_datastack();
void primitive_datastack_for();