summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2013-04-19 09:12:12 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2013-04-19 09:12:12 (GMT)
commit07ba32a73f1d629e2d4eedadcbed4b165dbcab7f (patch)
tree872634530c2cccde47226c2b64e3f75924c77ba4 /generic
parentbee670d02efbab8cba02f8824055a6c117d7665e (diff)
parent9c56563bbe703e1bd7c267c6a43c8f62b978ae11 (diff)
downloadtcl-07ba32a73f1d629e2d4eedadcbed4b165dbcab7f.zip
tcl-07ba32a73f1d629e2d4eedadcbed4b165dbcab7f.tar.gz
tcl-07ba32a73f1d629e2d4eedadcbed4b165dbcab7f.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
Diffstat (limited to 'generic')
-rw-r--r--generic/tclDecls.h25
1 files changed, 25 insertions, 0 deletions
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: