From b5f23b269da4a13d51e2ce28b73f87d3291ebbf2 Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Sun, 12 Nov 2006 23:15:40 +0000
Subject: Transfer TclPtrMakeUpvar and TclObjLookupVar to the internal stubs
 table.

---
 ChangeLog            |  9 +++++++--
 generic/tclInt.decls | 11 ++++++++++-
 generic/tclInt.h     |  9 +--------
 3 files changed, 18 insertions(+), 11 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index b77a52b..9832885 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,7 +1,12 @@
+2006-11-12  Donal K. Fellows  <dkf@users.sf.net>
+
+	* generic/tclInt.h, generic/tclInt.decls: Transfer TclPtrMakeUpvar and
+	TclObjLookupVar to the internal stubs table.
+
 2006-11-10  Daniel Steffen  <das@users.sourceforge.net>
 
-	* tests/fCmd.test (fCmd-6.26): fix failure when env(HOME) path contains
-	symlinks.
+	* tests/fCmd.test (fCmd-6.26): fix failure when env(HOME) path
+	contains symlinks.
 
 	* macosx/Tcl.xcodeproj/project.pbxproj: remove tclParseExpr.c; when
 	running testsuite from inside Xcdoe, skip stack-3.1 (it only fails
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);
-- 
cgit v0.12