mirror of
https://github.com/linux-msm/openocd.git
synced 2026-02-25 13:15:07 -08:00
sync up to latest jim tcl
git-svn-id: svn://svn.berlios.de/openocd/trunk@1250 b42882b7-edfa-0310-969c-e2dbd0fdcd60
This commit is contained in:
405
src/helper/jim.c
405
src/helper/jim.c
File diff suppressed because it is too large
Load Diff
@@ -164,6 +164,7 @@ extern "C" {
|
||||
#define JIM_CONTINUE 4
|
||||
#define JIM_EVAL 5
|
||||
#define JIM_EXIT 6
|
||||
#define JIM_ERR_ADDSTACK 7
|
||||
#define JIM_MAX_NESTING_DEPTH 10000 /* default max nesting depth */
|
||||
|
||||
/* Some function get an integer argument with flags to change
|
||||
@@ -530,6 +531,7 @@ typedef struct Jim_Interp {
|
||||
struct Jim_HashTable sharedStrings; /* Shared Strings hash table */
|
||||
Jim_Obj *stackTrace; /* Stack trace object. */
|
||||
Jim_Obj *unknown; /* Unknown command cache */
|
||||
int unknown_called; /* The unknown command has been invoked */
|
||||
int errorFlag; /* Set if an error occurred during execution. */
|
||||
int evalRetcodeLevel; /* Level where the last return with code JIM_EVAL
|
||||
happened. */
|
||||
@@ -560,6 +562,7 @@ typedef struct Jim_Interp {
|
||||
* cached can no longer considered valid. */
|
||||
#define Jim_InterpIncrProcEpoch(i) (i)->procEpoch++
|
||||
#define Jim_SetResultString(i,s,l) Jim_SetResult(i, Jim_NewStringObj(i,s,l))
|
||||
#define Jim_SetResultInt(i,intval) Jim_SetResult(i, Jim_NewIntObj(i,intval))
|
||||
#define Jim_SetEmptyResult(i) Jim_SetResult(i, (i)->emptyObj)
|
||||
#define Jim_GetResult(i) ((i)->result)
|
||||
#define Jim_CmdPrivData(i) ((i)->cmdPrivData)
|
||||
@@ -1296,7 +1299,7 @@ static void Jim_InitExtension(Jim_Interp *interp)
|
||||
JIM_GET_API(Nvp_name2value);
|
||||
JIM_GET_API(Nvp_name2value_nocase);
|
||||
JIM_GET_API(Nvp_name2value_simple);
|
||||
|
||||
|
||||
JIM_GET_API(Nvp_value2name);
|
||||
JIM_GET_API(Nvp_value2name_simple);
|
||||
|
||||
@@ -1337,3 +1340,10 @@ static __inline__ void Jim_InitEmbedded(void) {
|
||||
#endif
|
||||
|
||||
#endif /* __JIM__H */
|
||||
|
||||
/*
|
||||
* Local Variables: ***
|
||||
* c-basic-offset: 4 ***
|
||||
* tab-width: 4 ***
|
||||
* End: ***
|
||||
*/
|
||||
|
||||
Reference in New Issue
Block a user