diff options
| author | nijtmans@users.sourceforge.net <jan.nijtmans> | 2013-04-19 09:12:12 (GMT) |
|---|---|---|
| committer | nijtmans@users.sourceforge.net <jan.nijtmans> | 2013-04-19 09:12:12 (GMT) |
| commit | f88d553cbc6e47e3c45dd5bb843e7e7cdd579580 (patch) | |
| tree | 872634530c2cccde47226c2b64e3f75924c77ba4 | |
| parent | 3ce10faf9ddb78c0cc65213d4eb1386a8983b03f (diff) | |
| parent | e1467a90f4445e687b07b81e7574a67ace7c7db1 (diff) | |
| download | tcl-f88d553cbc6e47e3c45dd5bb843e7e7cdd579580.zip tcl-f88d553cbc6e47e3c45dd5bb843e7e7cdd579580.tar.gz tcl-f88d553cbc6e47e3c45dd5bb843e7e7cdd579580.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 |
2 files changed, 31 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 5fda514..0870377 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -3818,6 +3818,31 @@ extern const 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: |