diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-10-05 13:05:55 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-10-05 13:05:55 (GMT) |
| commit | a41520cafc3a8bda98fb4c37256ad2b7c56f0b6a (patch) | |
| tree | 66ef228909978a7b7df2ec3d2e549ead0ad91eaf /generic/tclInt.h | |
| parent | cee5b1c1de27f36c538c9b653ce8f2c1c69ea569 (diff) | |
| download | tcl-a41520cafc3a8bda98fb4c37256ad2b7c56f0b6a.zip tcl-a41520cafc3a8bda98fb4c37256ad2b7c56f0b6a.tar.gz tcl-a41520cafc3a8bda98fb4c37256ad2b7c56f0b6a.tar.bz2 | |
compilation code adjusted
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 18 |
1 files changed, 8 insertions, 10 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index df1fa37..c716ed2 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -2487,6 +2487,14 @@ typedef struct List { (((listPtr)->typePtr == &tclListType) ? ListObjIsCanonical((listPtr)) : 0) /* + * Modes for collecting (or not) in the implementations of TclNRForeachCmd, + * TclNRLmapCmd and their compilations. + */ + +#define TCL_EACH_KEEP_NONE 0 /* Discard iteration result like [foreach] */ +#define TCL_EACH_COLLECT 1 /* Collect iteration result like [lmap] */ + +/* * Macros providing a faster path to integers: Tcl_GetLongFromObj everywhere, * Tcl_GetIntFromObj and TclGetIntForIndex on platforms where longs are ints. * @@ -2859,16 +2867,6 @@ struct Tcl_LoadHandle_ { #define TCL_DD_SHORTEST0 0x0 /* 'Shortest possible' after masking */ -/* Modes for collecting or accumulating in TclNREachloopCmd, - * TclCompileEachloopCmd and INST_FOREACH_STEP4. */ - -#define TCL_EACH_KEEP_NONE 0 - /* Discard iteration result like [foreach] */ - -#define TCL_EACH_COLLECT 1 - /* Collect iteration result like [lmap] */ - - /* *---------------------------------------------------------------- * Procedures shared among Tcl modules but not used by the outside world: |