diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-04-19 08:41:15 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-04-19 08:41:15 (GMT) |
| commit | 9c56563bbe703e1bd7c267c6a43c8f62b978ae11 (patch) | |
| tree | 391f40c9bb7a0b2c7f0ac555052b0e73c35e17f7 | |
| parent | ce72cf1a029fcf4ca5d5fd7e7bd1925cf53351de (diff) | |
| parent | 67e2135f3ad85c23c2093c309e90204ee4b81d77 (diff) | |
| download | tcl-9c56563bbe703e1bd7c267c6a43c8f62b978ae11.zip tcl-9c56563bbe703e1bd7c267c6a43c8f62b978ae11.tar.gz tcl-9c56563bbe703e1bd7c267c6a43c8f62b978ae11.tar.bz2 | |
Implement many Tcl_*Var* functions and Tcl_GetIndexFromObj as (faster/stack-saving) macros around resp their Tcl_*Var*2 equivalent and Tcl_GetIndexFromObjStruct
| -rw-r--r-- | ChangeLog | 6 | ||||
| -rw-r--r-- | generic/tclDecls.h | 25 | ||||
| -rw-r--r-- | generic/tclIndexObj.c | 1 | ||||
| -rw-r--r-- | generic/tclTrace.c | 3 | ||||
| -rw-r--r-- | generic/tclVar.c | 4 |
5 files changed, 39 insertions, 0 deletions
@@ -1,3 +1,9 @@ +2013-04-19 Jan Nijtmans <nijtmans@users.sf.net> + + * generic/tclDecls.h: Implement many Tcl_*Var* functions and + Tcl_GetIndexFromObj as (faster/stack-saving) macros around resp + their Tcl_*Var*2 equivalent and Tcl_GetIndexFromObjStruct. + 2013-04-12 Jan Nijtmans <nijtmans@users.sf.net> * generic/tclDecls.h: Implement Tcl_Pkg* functions as diff --git a/generic/tclDecls.h b/generic/tclDecls.h index 2196f46..30e305b 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -6556,6 +6556,31 @@ extern TclStubs *tclStubsPtr; #undef Tcl_PkgRequire #define Tcl_PkgRequire(interp, name, version, exact) \ Tcl_PkgRequireEx(interp, name, version, exact, NULL) +#undef Tcl_GetIndexFromObj +#define Tcl_GetIndexFromObj(interp, objPtr, tablePtr, msg, flags, indexPtr) \ + Tcl_GetIndexFromObjStruct(interp, objPtr, tablePtr, \ + sizeof(char *), msg, flags, indexPtr) +#undef Tcl_SetVar +#define Tcl_SetVar(interp, varName, newValue, flags) \ + Tcl_SetVar2(interp, varName, NULL, newValue, flags) +#undef Tcl_UnsetVar +#define Tcl_UnsetVar(interp, varName, flags) \ + Tcl_UnsetVar2(interp, varName, NULL, flags) +#undef Tcl_GetVar +#define Tcl_GetVar(interp, varName, flags) \ + Tcl_GetVar2(interp, varName, NULL, flags) +#undef Tcl_TraceVar +#define Tcl_TraceVar(interp, varName, flags, proc, clientData) \ + Tcl_TraceVar2(interp, varName, NULL, flags, proc, clientData) +#undef Tcl_UntraceVar +#define Tcl_UntraceVar(interp, varName, flags, proc, clientData) \ + Tcl_UntraceVar2(interp, varName, NULL, flags, proc, clientData) +#undef Tcl_VarTraceInfo +#define Tcl_VarTraceInfo(interp, varName, flags, proc, prevClientData) \ + Tcl_VarTraceInfo2(interp, varName, NULL, flags, proc, prevClientData) +#undef Tcl_UpVar +#define Tcl_UpVar(interp, frameName, varName, localName, flags) \ + Tcl_UpVar2(interp, frameName, varName, NULL, localName, flags) /* * Deprecated Tcl procedures: diff --git a/generic/tclIndexObj.c b/generic/tclIndexObj.c index 6a818f2..73ba515 100644 --- a/generic/tclIndexObj.c +++ b/generic/tclIndexObj.c @@ -85,6 +85,7 @@ typedef struct { *---------------------------------------------------------------------- */ +#undef Tcl_GetIndexFromObj int Tcl_GetIndexFromObj( Tcl_Interp *interp, /* Used for error reporting if not NULL. */ diff --git a/generic/tclTrace.c b/generic/tclTrace.c index 9298897..2e1b241 100644 --- a/generic/tclTrace.c +++ b/generic/tclTrace.c @@ -2801,6 +2801,7 @@ DisposeTraceResult( *---------------------------------------------------------------------- */ +#undef Tcl_UntraceVar void Tcl_UntraceVar( Tcl_Interp *interp, /* Interpreter containing variable. */ @@ -2970,6 +2971,7 @@ Tcl_UntraceVar2( *---------------------------------------------------------------------- */ +#undef Tcl_VarTraceInfo ClientData Tcl_VarTraceInfo( Tcl_Interp *interp, /* Interpreter containing variable. */ @@ -3080,6 +3082,7 @@ Tcl_VarTraceInfo2( *---------------------------------------------------------------------- */ +#undef Tcl_TraceVar int Tcl_TraceVar( Tcl_Interp *interp, /* Interpreter in which variable is to be diff --git a/generic/tclVar.c b/generic/tclVar.c index f4f83a4..12d6911 100644 --- a/generic/tclVar.c +++ b/generic/tclVar.c @@ -1234,6 +1234,7 @@ TclLookupArrayElement( *---------------------------------------------------------------------- */ +#undef Tcl_GetVar const char * Tcl_GetVar( Tcl_Interp *interp, /* Command interpreter in which varName is to @@ -1556,6 +1557,7 @@ Tcl_SetObjCmd( *---------------------------------------------------------------------- */ +#undef Tcl_SetVar const char * Tcl_SetVar( Tcl_Interp *interp, /* Command interpreter in which varName is to @@ -2146,6 +2148,7 @@ TclPtrIncrObjVar( *---------------------------------------------------------------------- */ +#undef Tcl_UnsetVar int Tcl_UnsetVar( Tcl_Interp *interp, /* Command interpreter in which varName is to @@ -3785,6 +3788,7 @@ TclPtrObjMakeUpvar( *---------------------------------------------------------------------- */ +#undef Tcl_UpVar int Tcl_UpVar( Tcl_Interp *interp, /* Command interpreter in which varName is to |