Commit 82ae8ebc authored by Laszlo Domoszlai's avatar Laszlo Domoszlai
Browse files

improve debug messages a bit

parent 49c09581
......@@ -302,15 +302,21 @@ void exec(Code* expr, int frame_ptr, int root_frame_ptr)
{
Desc* slice = ((AppEntry*) expr)->f;
#ifdef DEBUG_EXEC
printf("FUN1(ARGS): <");
printDesc(slice);
printf(">\n");
#endif
int argmask = 1;
arg_from_code(slice, ((AppEntry*) expr)->args[0]);
#ifdef DEBUG_EXEC
printf("FUN1: <");
printDesc(slice);
printf(">\n");
#endif
expr = ((FunEntry*) slice)->body;
frame_ptr = stack_top_a - 1;
continue;
......@@ -319,6 +325,12 @@ void exec(Code* expr, int frame_ptr, int root_frame_ptr)
{
Desc* slice = ((AppEntry*) expr)->f;
#ifdef DEBUG_EXEC
printf("FUN2(ARGS): <");
printDesc(slice);
printf(">\n");
#endif
int argmask = 1;
arg_from_code(slice, ((AppEntry*) expr)->args[0]);
......@@ -338,18 +350,24 @@ void exec(Code* expr, int frame_ptr, int root_frame_ptr)
{
Desc* slice = ((AppEntry*) expr)->f;
#ifdef DEBUG_EXEC
printf("FUN(ARGS): <");
printDesc(slice);
printf(">\n");
#endif
int new_frame_ptr = stack_top_a;
int argmask = 1;
for (int i = 0; i < expr->nr_args; i++) {
arg_from_code(slice, ((AppEntry*) expr)->args[i]);
}
}
#ifdef DEBUG_EXEC
printf("FUN: <");
printDesc(slice);
printf(">\n");
#endif
#endif
expr = ((FunEntry*) slice)->body;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment