summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2006-11-12 23:15:40 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2006-11-12 23:15:40 (GMT)
commitb5f23b269da4a13d51e2ce28b73f87d3291ebbf2 (patch)
tree5e60e9b366198db44c710ea1fdf41970b3879c1c /generic
parent8504f6bdfe9d1c287c791ad63c92ee857adde1fa (diff)
downloadtcl-b5f23b269da4a13d51e2ce28b73f87d3291ebbf2.zip
tcl-b5f23b269da4a13d51e2ce28b73f87d3291ebbf2.tar.gz
tcl-b5f23b269da4a13d51e2ce28b73f87d3291ebbf2.tar.bz2
Transfer TclPtrMakeUpvar and TclObjLookupVar to the internal stubs table.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclInt.decls11
-rw-r--r--generic/tclInt.h9
2 files changed, 11 insertions, 9 deletions
diff --git a/generic/tclInt.decls b/generic/tclInt.decls
index 4cca690..7abc31b 100644
--- a/generic/tclInt.decls
+++ b/generic/tclInt.decls
@@ -12,7 +12,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: tclInt.decls,v 1.103 2006/10/28 22:48:42 dkf Exp $
+# RCS: @(#) $Id: tclInt.decls,v 1.104 2006/11/12 23:15:40 dkf Exp $
library tcl
@@ -904,6 +904,15 @@ declare 228 generic {
Tcl_Obj *procNameObj, int isLambda, int skip,
ProcErrorProc errorProc)
}
+declare 229 generic {
+ int TclPtrMakeUpvar(Tcl_Interp *interp, Var *otherP1Ptr,
+ CONST char *myName, int myFlags, int index)
+}
+declare 230 generic {
+ Var *TclObjLookupVar(Tcl_Interp *interp, Tcl_Obj *part1Ptr,
+ CONST char *part2, int flags, CONST char *msg,
+ CONST int createPart1, CONST int createPart2, Var **arrayPtrPtr)
+}
##############################################################################
diff --git a/generic/tclInt.h b/generic/tclInt.h
index 796ae21..67be30e 100644
--- a/generic/tclInt.h
+++ b/generic/tclInt.h
@@ -12,7 +12,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclInt.h,v 1.293 2006/11/09 15:19:03 dkf Exp $
+ * RCS: @(#) $Id: tclInt.h,v 1.294 2006/11/12 23:15:41 dkf Exp $
*/
#ifndef _TCLINT
@@ -2151,9 +2151,6 @@ MODULE_SCOPE int TclObjInvokeNamespace(Tcl_Interp *interp,
int objc, Tcl_Obj *CONST objv[],
Tcl_Namespace *nsPtr, int flags);
MODULE_SCOPE Tcl_Obj * TclObjPrintf(CONST char *format, ...);
-MODULE_SCOPE int TclPtrMakeUpvar (Tcl_Interp *interp,
- Var *otherP1Ptr, CONST char *myName,
- int myFlags, int index);
MODULE_SCOPE int TclParseBackslash(CONST char *src,
int numBytes, int *readPtr, char *dst);
MODULE_SCOPE int TclParseHex(CONST char *src, int numBytes,
@@ -2596,10 +2593,6 @@ MODULE_SCOPE Var * TclLookupArrayElement(Tcl_Interp *interp,
CONST int flags, CONST char *msg,
CONST int createPart1, CONST int createPart2,
Var *arrayPtr);
-MODULE_SCOPE Var * TclObjLookupVar(Tcl_Interp *interp,
- Tcl_Obj *part1Ptr, CONST char *part2, int flags,
- CONST char *msg, CONST int createPart1,
- CONST int createPart2, Var **arrayPtrPtr);
MODULE_SCOPE Tcl_Obj * TclPtrGetVar(Tcl_Interp *interp,
Var *varPtr, Var *arrayPtr, CONST char *part1,
CONST char *part2, CONST int flags);