diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2006-11-12 23:15:40 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2006-11-12 23:15:40 (GMT) |
| commit | b5f23b269da4a13d51e2ce28b73f87d3291ebbf2 (patch) | |
| tree | 5e60e9b366198db44c710ea1fdf41970b3879c1c /generic | |
| parent | 8504f6bdfe9d1c287c791ad63c92ee857adde1fa (diff) | |
| download | tcl-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.decls | 11 | ||||
| -rw-r--r-- | generic/tclInt.h | 9 |
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); |