summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2006-10-28 23:26:01 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2006-10-28 23:26:01 (GMT)
commit513765d748c2298249d886bd9a8acb60b5a332b1 (patch)
treecd3bdcb63fd004c431251afbf882474af3a614bd /generic
parent47e4c392e9decf35fcd06c3fad00af8796dd1d9d (diff)
downloadtcl-513765d748c2298249d886bd9a8acb60b5a332b1.zip
tcl-513765d748c2298249d886bd9a8acb60b5a332b1.tar.gz
tcl-513765d748c2298249d886bd9a8acb60b5a332b1.tar.bz2
Added some explanatory comments.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclInt.h24
1 files changed, 14 insertions, 10 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h
index 8c62cc1..a33053e 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.286 2006/10/28 22:48:43 dkf Exp $
+ * RCS: @(#) $Id: tclInt.h,v 1.287 2006/10/28 23:26:01 dkf Exp $
*/
#ifndef _TCLINT
@@ -1518,7 +1518,7 @@ typedef struct Interp {
*/
struct {
- Tcl_Obj * CONST *sourceObjs;
+ Tcl_Obj *CONST *sourceObjs;
/* What arguments were actually input into the
* *root* ensemble command? (Nested ensembles
* don't rewrite this.) NULL if we're not
@@ -1533,26 +1533,30 @@ typedef struct Interp {
* TIP #219 ... Global info for the I/O system ...
*/
- Tcl_Obj* chanMsg; /* Error message set by channel drivers, for
+ Tcl_Obj *chanMsg; /* Error message set by channel drivers, for
* the propagation of arbitrary Tcl errors.
* This information, if present (chanMsg not
- * NULL), takes precedence over a posix error
+ * NULL), takes precedence over a POSIX error
* code returned by a channel operation. */
/*
- * TIP #268.
- * The currently active selection mode,
- * i.e the package require preferences.
+ * TIP #268. The currently active selection mode, i.e. the package require
+ * preferences.
*/
int packagePrefer; /* Current package selection mode. */
/*
- * Let [info level] know about ensemble rewriting
+ * Let [info level] know about ensemble rewriting. Note that this is just
+ * a temporary storage location until such time as it can be written into
+ * the call frame; it has to go there because that makes reentrant calls
+ * through the command dispatcher work.
*/
- int callObjc;
- Tcl_Obj *CONST *callObjv;
+ int callObjc; /* Number of arguments to report through [info
+ * level]. */
+ Tcl_Obj *CONST *callObjv; /* Array of arguments to report through [info
+ * level]. */
/*