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/tclInt.decls | |
| 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/tclInt.decls')
| -rw-r--r-- | generic/tclInt.decls | 11 |
1 files changed, 10 insertions, 1 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) +} ############################################################################## |