on master help sign in
Remove unused float and int stacks
commitd1d225771023557c6947526db6d658b8473be3c1 authorSam T <sta.cs.vsu@gmail.com> dateSun 17 Mar 2013, 20:34 (14 years ago) parent5593697
2 files changed−12
rts/idris_rts.c−8 rts/idris_rts.h−4
rts/idris_rts.c−8
@@ -20,16 +20,10 @@ VM* init_vm(int stack_size, size_t heap_size,
2020 STATS_ENTER_INIT(vm->stats)
2121
2222 VAL* valstack = malloc(stack_size * sizeof(VAL));
23− int* intstack = malloc(stack_size * sizeof(int));
24− double* floatstack = malloc(stack_size*sizeof(double));
2523
2624 vm->valstack = valstack;
2725 vm->valstack_top = valstack;
2826 vm->valstack_base = valstack;
29− vm->intstack = intstack;
30− vm->intstack_ptr = intstack;
31− vm->floatstack = floatstack;
32− vm->floatstack_ptr = floatstack;
3327 vm->stack_max = valstack + stack_size;
3428
3529 alloc_heap(&(vm->heap), heap_size);
@@ -70,8 +64,6 @@ Stats terminate(VM* vm) {
7064
7165 free(vm->inbox);
7266 free(vm->valstack);
73− free(vm->intstack);
74− free(vm->floatstack);
7567 free_heap(&(vm->heap));
7668 free(vm->argv);
7769
rts/idris_rts.h−4
@@ -44,12 +44,8 @@ typedef struct Closure {
4444
4545typedef struct {
4646 VAL* valstack;
47− int* intstack;
48− double* floatstack;
4947 VAL* valstack_top;
5048 VAL* valstack_base;
51− int* intstack_ptr;
52− double* floatstack_ptr;
5349 VAL* stack_max;
5450
5551 Heap heap;