diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2007-05-05 23:33:11 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2007-05-05 23:33:11 (GMT) |
| commit | 29cf1d7bf639866e48ef946d326a229a9514f492 (patch) | |
| tree | 1d78768bab303fef7c4c0ad56f5d8d65f3841216 /generic/tclInt.decls | |
| parent | e3a939a3c254481c00ee564e3e5bb4306ddeb7bf (diff) | |
| download | tcl-29cf1d7bf639866e48ef946d326a229a9514f492.zip tcl-29cf1d7bf639866e48ef946d326a229a9514f492.tar.gz tcl-29cf1d7bf639866e48ef946d326a229a9514f492.tar.bz2 | |
Changes to allow the tip257 code to work as an extension properly post-tip280
Diffstat (limited to 'generic/tclInt.decls')
| -rw-r--r-- | generic/tclInt.decls | 17 |
1 files changed, 13 insertions, 4 deletions
diff --git a/generic/tclInt.decls b/generic/tclInt.decls index a110ae0..b17c8e7 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.107 2007/04/03 15:08:24 msofer Exp $ +# RCS: @(#) $Id: tclInt.decls,v 1.108 2007/05/05 23:33:14 dkf Exp $ library tcl @@ -886,7 +886,7 @@ declare 224 generic { TclPlatformType *TclGetPlatform(void) } -# +# declare 225 generic { Tcl_Obj *TclTraceDictPath(Tcl_Interp *interp, Tcl_Obj *rootPtr, int keyc, Tcl_Obj *CONST keyv[], int flags) @@ -916,8 +916,17 @@ declare 230 generic { } declare 231 generic { - int TclGetNamespaceFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, - Tcl_Namespace **nsPtrPtr) + int TclGetNamespaceFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, + Tcl_Namespace **nsPtrPtr) +} + +# Bits and pieces of TIP#280's guts +declare 232 generic { + int TclEvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr, int flags, + const CmdFrame *invoker, int word) +} +declare 233 generic { + void TclGetSrcInfoForPc(CmdFrame *contextPtr) } ############################################################################## |