diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2005-06-07 10:04:46 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2005-06-07 10:04:46 (GMT) |
| commit | 1b9e24d8f6660f157bd6da6c2e01e932894e56ec (patch) | |
| tree | db151d401631884701b22d31740507e5839dbd14 /generic/tclInt.h | |
| parent | 6c32fe7c9860ea6eafa14aa719bb8e65e03c0462 (diff) | |
| download | tcl-1b9e24d8f6660f157bd6da6c2e01e932894e56ec.zip tcl-1b9e24d8f6660f157bd6da6c2e01e932894e56ec.tar.gz tcl-1b9e24d8f6660f157bd6da6c2e01e932894e56ec.tar.bz2 | |
Clean up tests in chan.test and add mechanism for chaining Tcl_WrongNumArgs
messages (used in [read] implementation)
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 0e075bb..17566ef 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.233 2005/06/06 23:45:44 dkf Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.234 2005/06/07 10:05:00 dkf Exp $ */ #ifndef _TCLINT @@ -1530,6 +1530,10 @@ typedef struct Interp { * INTERP_TRACE_IN_PROGRESS: Non-zero means that an interp trace is currently * active; so no further trace callbacks should be * invoked. + * INTERP_ALTERNATE_WRONG_ARGS: Used for listing second and subsequent forms + * of the wrong-num-args string in Tcl_WrongNumArgs. + * Makes it append instead of replacing and uses + * different intermediate text. * * WARNING: For the sake of some extensions that have made use of former * internal values, do not re-use the flag values 2 (formerly ERR_IN_PROGRESS) @@ -1542,6 +1546,7 @@ typedef struct Interp { #define RAND_SEED_INITIALIZED 0x40 #define SAFE_INTERP 0x80 #define INTERP_TRACE_IN_PROGRESS 0x200 +#define INTERP_ALTERNATE_WRONG_ARGS 0x400 /* * Maximum number of levels of nesting permitted in Tcl commands (used |