diff -Nrup a/debug.h b/debug.h
--- a/debug.h 2016-02-28 12:48:44.000000000 -0500
+++ b/debug.h 2017-06-11 10:22:11.180077939 -0400
@@ -20,6 +20,9 @@ this program. If not, see <http://www.g
#define DB_JOBS (0x004)
#define DB_IMPLICIT (0x008)
#define DB_MAKEFILES (0x100)
+#define DB_CALL (0x01000)
+#define DB_EVAL (0x02000)
+
#define DB_ALL (0xfff)
diff -Nrup a/function.c b/function.c
--- a/function.c 2016-05-21 16:22:32.000000000 -0400
+++ b/function.c 2017-06-11 10:35:13.563174482 -0400
@@ -26,6 +26,7 @@ this program. If not, see <http://www.g
#include "amiga.h"
#endif
+static int depth = 0;
struct function_table_entry
{
@@ -1400,7 +1401,12 @@ func_eval (char *o, char **argv, const c
install_variable_buffer (&buf, &len);
+ depth += 1;
+ DBS( DB_EVAL, ("### eval -->\n"));
+ DB( DB_EVAL, ("%s\n", argv[0]));
eval_buffer (argv[0], NULL);
+ DBS( DB_EVAL, ("### eval <--\n"));
+ depth -= 1;
restore_variable_buffer (buf, len);
@@ -2584,6 +2590,7 @@ func_call (char *o, char **argv, const c
if (v == 0 || *v->value == '\0')
return o;
+ depth += 1;
body = alloca (flen + 4);
body[0] = '$';
body[1] = '(';
@@ -2591,6 +2598,8 @@ func_call (char *o, char **argv, const c
body[flen+2] = ')';
body[flen+3] = '\0';
+ DBS(DB_CALL, ("### call %s -->\n", body));
+
/* Set up arguments $(1) .. $(N). $(0) is the function name. */
push_new_variable_scope ();
@@ -2600,6 +2609,7 @@ func_call (char *o, char **argv, const c
char num[11];
sprintf (num, "%d", i);
+ DBS(DB_CALL, ("### arg %i for call %s is '%s'\n", i, body, *argv));
define_variable (num, strlen (num), *argv, o_automatic, 0);
}
@@ -2613,6 +2623,7 @@ func_call (char *o, char **argv, const c
char num[11];
sprintf (num, "%d", i);
+ DBS(DB_CALL, ("### arg %i for call %s is implicit\n", i, body));
define_variable (num, strlen (num), "", o_automatic, 0);
}
@@ -2623,7 +2634,14 @@ func_call (char *o, char **argv, const c
saved_args = max_args;
max_args = i;
+
o = variable_expand_string (o, body, flen+3);
+ DBS(DB_CALL, ("### call to %s expended into\n", body));
+ DB(DB_CALL, ("%s\n", o));
+ DBS(DB_CALL, ("### call %s <--\n", body));
+
+ depth -= 1;
+
max_args = saved_args;
v->exp_count = 0;
diff -Nrup a/main.c b/main.c
--- a/main.c 2017-06-11 10:20:12.053504852 -0400
+++ b/main.c 2017-06-11 10:28:37.914642751 -0400
@@ -755,6 +755,12 @@ decode_debug_flags (void)
case 'b':
db_level |= DB_BASIC;
break;
+ case 'c':
+ db_level |= DB_CALL;
+ break;
+ case 'e':
+ db_level |= DB_EVAL;
+ break;
case 'i':
db_level |= DB_BASIC | DB_IMPLICIT;
break;