diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2003-06-26 08:43:15 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2003-06-26 08:43:15 (GMT) |
| commit | 051e42a40afc1190bf39f9452f7f9e3d48534ebe (patch) | |
| tree | 4cbd56bc3a7cdef03493a6b5ca4a18094c26ed0c /generic/tclInt.decls | |
| parent | 172dd6e6c369aa8e458c57f43cc3208ab00a58ff (diff) | |
| download | tcl-051e42a40afc1190bf39f9452f7f9e3d48534ebe.zip tcl-051e42a40afc1190bf39f9452f7f9e3d48534ebe.tar.gz tcl-051e42a40afc1190bf39f9452f7f9e3d48534ebe.tar.bz2 | |
More trace factoring - variable traces are the target this time.
Diffstat (limited to 'generic/tclInt.decls')
| -rw-r--r-- | generic/tclInt.decls | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/generic/tclInt.decls b/generic/tclInt.decls index 1a03642..9c00e01 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.61 2003/05/14 19:21:22 das Exp $ +# RCS: @(#) $Id: tclInt.decls,v 1.62 2003/06/26 08:43:15 dkf Exp $ library tcl @@ -705,6 +705,20 @@ declare 174 generic { Tcl_Obj *part2Ptr, Tcl_WideInt wideIncrAmount, int part1NotParsed) } +# Factoring out of trace code + +declare 175 generic { + int TclCallVarTraces(Interp *iPtr, Var *arrayPtr, Var *varPtr, + CONST char *part1, CONST char *part2, int flags, int leaveErrMsg) +} +declare 176 generic { + void TclCleanupVar(Var *varPtr, Var *arrayPtr) +} +declare 177 generic { + void TclVarErrMsg(Tcl_Interp *interp, CONST char *part1, CONST char *part2, + CONST char *operation, CONST char *reason) +} + ############################################################################## # Define the platform specific internal Tcl interface. These functions are |