From 1956010ec79fbab604efc2b60d0af325e91f67b8 Mon Sep 17 00:00:00 2001 From: Paul Buetow Date: Mon, 20 Oct 2008 18:36:28 +0000 Subject: Improved GC debugging. Debugging printings now labeled with DEBUG::$NAME::$ETC::..: --- src/core/function.c | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'src/core/function.c') diff --git a/src/core/function.c b/src/core/function.c index c25834d..4d25a60 100644 --- a/src/core/function.c +++ b/src/core/function.c @@ -62,9 +62,9 @@ _process(Interpret *p_interpret, Token *p_token_store, Token *p_token_op, #ifdef DEBUG_FUNCTION_PROCESS if (p_token_op2 == NULL) - printf("PROCESS OPERATOR %s\n", tt_get_name(tt_op)); + printf("DEBUG::FUNCTION::PROCESS: Operator %s\n", tt_get_name(tt_op)); else - printf("PROCESS OPERATOR %s %s\n", tt_get_name(tt_op), + printf("DEBUG::FUNCTION::PROCESS: Operator %s %s\n", tt_get_name(tt_op), tt_get_name(tt_op2)); token_print(p_token_next); @@ -161,7 +161,7 @@ _process(Interpret *p_interpret, Token *p_token_store, Token *p_token_op, TokenType tt_highest = convert_to_highest(p_token_store, p_token_next); #ifdef DEBUG_FUNCTION_PROCESS - printf("===> %s %s %s\n", + printf("DEBUG::FUNCTION::PROCESS: ===> %s %s %s\n", tt_get_name(tt_highest), tt_get_name(tt_op), tt_get_name(tt_highest)); @@ -643,7 +643,6 @@ function_process_buildin(Interpret *p_interpret, Token *p_token_ident, } else if (strcmp("gc", token_get_val(p_token_ident)) == 0) { int i_count = garbage_collect(); - printf("ICOUNT %d\n", i_count); Token *p_token = token_new_integer(i_count); stack_push(p_stack_args, p_token); @@ -815,7 +814,7 @@ function_process_buildin(Interpret *p_interpret, Token *p_token_ident, break; NO_DEFAULT; } - + } else if (strcmp("refs", token_get_val(p_token_ident)) == 0) { if (0 == stack_size(p_stack_args)) _FUNCTION_ERROR("No argument given", p_token_ident); -- cgit v1.2.3