diff options
author | Steve Bennett <steveb@workware.net.au> | 2011-12-02 13:24:38 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2021-01-09 11:06:48 +1000 |
commit | fe37b8dc2536b70d0aba3c6a70ead466ebe5b9d6 (patch) | |
tree | f4e3db58f298facf7cf84272d3a3321144c23d32 /jim.h | |
parent | b8018299ad54fecfdcffe4b22ac994944a716f2a (diff) | |
download | jimtcl-fe37b8dc2536b70d0aba3c6a70ead466ebe5b9d6.zip jimtcl-fe37b8dc2536b70d0aba3c6a70ead466ebe5b9d6.tar.gz jimtcl-fe37b8dc2536b70d0aba3c6a70ead466ebe5b9d6.tar.bz2 |
Add the [xtrace] command
Allows a debugger or tracing facility to be implemented
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'jim.h')
-rw-r--r-- | jim.h | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -133,7 +133,7 @@ extern "C" { #define JIM_SIGNAL 5 #define JIM_EXIT 6 /* The following are internal codes and should never been seen/used */ -#define JIM_EVAL 7 +#define JIM_EVAL 7 /* tailcall */ #define JIM_MAX_CALLFRAME_DEPTH 1000 /* default max nesting depth for procs */ #define JIM_MAX_EVAL_DEPTH 2000 /* default max nesting depth for eval */ @@ -567,6 +567,7 @@ typedef struct Jim_Interp { Jim_Obj *errorProc; /* Name of last procedure which returned an error */ Jim_Obj *unknown; /* Unknown command cache */ Jim_Obj *defer; /* "jim::defer" */ + Jim_Obj *traceCmdObj; /* If non-null, execution trace command to invoke */ int unknown_called; /* The unknown command has been invoked */ int errorFlag; /* Set if an error occurred during execution. */ void *cmdPrivData; /* Used to pass the private data pointer to |