diff options
| author | Søren Sandmann Pedersen <ssp@redhat.com> | 2014-02-02 17:57:16 -0500 |
|---|---|---|
| committer | Søren Sandmann Pedersen <ssp@redhat.com> | 2014-02-02 17:57:16 -0500 |
| commit | 6c3ea9a6c7fc80a6c5cf637733f6b497fccd94ed (patch) | |
| tree | 46aa8e594cd66a449e012c9dfc1185c04cf5897a | |
| parent | a3a06259fbb2b9d224467cdfbd793990f4bf81af (diff) | |
Remove some debug spew
| -rw-r--r-- | interpret.c | 22 |
1 files changed, 0 insertions, 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) { |