summaryrefslogtreecommitdiff
path: root/interpret.c
diff options
context:
space:
mode:
Diffstat (limited to 'interpret.c')
-rw-r--r--interpret.c22
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)
{