From 6c3ea9a6c7fc80a6c5cf637733f6b497fccd94ed Mon Sep 17 00:00:00 2001 From: Søren Sandmann Pedersen Date: Sun, 2 Feb 2014 17:57:16 -0500 Subject: Remove some debug spew --- interpret.c | 22 ---------------------- 1 file changed, 22 deletions(-) diff --git a/interpret.c b/interpret.c index 371d372..0046384 100644 --- a/interpret.c +++ b/interpret.c @@ -64,9 +64,6 @@ write_value (gpointer address, ast_type_spec_t *type, value_t *value) switch (type->common.type) { case AST_INT32_TYPE: -#if 0 - g_print (".. storing iiinteger %d\n", value->int32_val); -#endif *(gint32 *)address = value->int32_val; break; @@ -296,9 +293,6 @@ interpret (ast_t *ast) break; case NODE_DUP: -#if 0 - g_print ("dup\n"); -#endif stack = stack_pop (stack, &val); stack = stack_push (stack, val); stack = stack_push (stack, val); @@ -332,11 +326,6 @@ interpret (ast_t *ast) *((gpointer *)env + 1) = old_env; *((gpointer *)env + 2) = old_next; -#if 0 - g_print ("calling function %p (%s)\n", closure->function, closure->function->name); - g_print ("enter: %p\n", closure->function->enter); -#endif - /* Copy parameters to environment */ for (i = 0; closure->function->parameters[i]; ++i) { @@ -409,9 +398,6 @@ interpret (ast_t *ast) break; case NODE_STORE_IND: -#if 0 - g_print ("store ind\n"); -#endif stack = stack_pop (stack, &val); /* env */ /* No need to compute the environment, since it's already * computed for us in the val.pointer_val @@ -446,10 +432,6 @@ interpret (ast_t *ast) g_print ("array is NULL exception\n"); exit (1); } -#if 0 - g_print ("loading %s at %p\n", - current->load.definition->name, location); -#endif read_value (location, current->load.definition->type_spec, &val); stack = stack_push (stack, val); break; @@ -474,10 +456,6 @@ interpret (ast_t *ast) break; case NODE_LOAD_IND: -#if 0 - g_print ("loading %s indirectly\n", - current->load_ind.definition->name); -#endif stack = stack_pop (stack, &val); if (val.pointer_val == NULL) { -- cgit v1.2.3