Turmit stack enhancement & bugfixes

Now stack reallocate blocs of stack. If no new block needed just set new
stack_sz

libs/turmit.c

@@ -3,18 +3,26 @@
 TURMIT_OP(mem_sz)
 {
 	turmit_int *new;
-	turmit_int new_sz, old_sz;
+	turmit_int new_sz, old_sz, new_blc, old_blc;
 	
 	old_sz = turmit->stack_sz;
+	old_blc = (old_sz / TURMIT_STACK_GROW) + 1;
+
 	new_sz = SPOP(turmit);
 	new_sz = new_sz<2?2:new_sz;
+	new_sz %= TURMIT_STACK_MAX;
+	new_blc = (new_sz / TURMIT_STACK_GROW) + 1;
 
-	new = realloc(turmit->stack, sizeof(turmit_int) * new_sz);
-	if(!new) {
-		perror("Unable to reallocate memory for stack");
-		return; 
+	if(new_blc != old_blc)
+	{
+		new = realloc(turmit->stack,
+			sizeof(turmit_int) * (new_blc * TURMIT_STACK_GROW));
+		if(!new) {
+			perror("Unable to reallocate memory for stack");
+			return; 
+		}
+		turmit->stack = new;
 	}
-	turmit->stack = new;
 	turmit->stack_sz = new_sz;
 	turmit->stack_cur %= new_sz;
 	if(old_sz < new_sz)
@@ -170,7 +178,8 @@ turmit_t *turmit_init(turmit_t *turmit, ssize_t stack_sz, ssize_t int_max,
 	turmit->stack_cur = turmit->stack_sz - 1;
 	turmit->err = 0;
 	turmit->err_str = NULL;
-	turmit->stack = malloc(sizeof(turmit_int) * turmit->stack_sz);
+	turmit->stack = malloc(sizeof(turmit_int) * 
+		((turmit->stack_sz / TURMIT_STACK_GROW)+1) * TURMIT_STACK_GROW);
 
 	if(!turmit->stack)
 	{
@@ -189,6 +198,8 @@ turmit_t *turmit_init(turmit_t *turmit, ssize_t stack_sz, ssize_t int_max,
 turmit_t *turmit_copy(turmit_t *turmit)
 {
 	turmit_t *res;
+	turmit_int stack_blck;
+
 	res = malloc(sizeof(turmit_t));
 	if(!res)
 	{
@@ -202,9 +213,11 @@ turmit_t *turmit_copy(turmit_t *turmit)
 	}
 	if(turmit->stack)
 	{
-		res->stack = malloc(sizeof(turmit_int) * res->stack_sz);
+		stack_blck = (res->stack_sz / TURMIT_STACK_GROW) + 1;
+		res->stack = malloc(
+			sizeof(turmit_int) * stack_blck * TURMIT_STACK_GROW);
 		memcpy(res->stack, turmit->stack,
-			sizeof(turmit_int) * res->stack_sz);
+			sizeof(turmit_int) * stack_blck * TURMIT_STACK_GROW);
 	}
 	if(turmit->op_expr)
 	{

libs/turmit.h

@@ -26,6 +26,8 @@ typedef void (*turmit_op_f)(turmit_t*);
 	(t->op_end=1):\
 	(t->op_cur += (v>0?v-1:0) ))
 
+#define TURMIT_STACK_GROW	0xFF
+#define TURMIT_STACK_MAX	0xFFF
 #define TURMIT_EXPR_MAX_SZ	0xFFFFFFFF
 
 #define TURMIT_LAZY		0
@@ -45,7 +47,6 @@ typedef void (*turmit_op_f)(turmit_t*);
 #define TURMIT_OPSYM(NAME) {#NAME, NULL, turmit_op_##NAME}
 #define TURMIT_OPSYMALIAS(NAME, alias) {#NAME, alias, turmit_op_##NAME}
 
-
 // OPSYMALIAS has to be first !
 #define TURMIT_OP_LST {\
 	TURMIT_OPSYMALIAS(add, "+"),\