diff options
| -rw-r--r-- | ChangeLog | 9 | ||||
| -rw-r--r-- | generic/tclInt.decls | 11 | ||||
| -rw-r--r-- | generic/tclInt.h | 9 |
3 files changed, 18 insertions, 11 deletions
@@ -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); |