diff options
| author | andreas_kupries <akupries@shaw.ca> | 2001-12-03 18:23:12 (GMT) |
|---|---|---|
| committer | andreas_kupries <akupries@shaw.ca> | 2001-12-03 18:23:12 (GMT) |
| commit | 546058a1d386adc014fece9653fe8faa2356ab0e (patch) | |
| tree | fcda7c74f28b052e8f84593ebd2c05b1f09a3418 /generic/tclCmdAH.c | |
| parent | 90daebad86c36a4a83ff0831078e6f8351d9e9e6 (diff) | |
| download | tcl-546058a1d386adc014fece9653fe8faa2356ab0e.zip tcl-546058a1d386adc014fece9653fe8faa2356ab0e.tar.gz tcl-546058a1d386adc014fece9653fe8faa2356ab0e.tar.bz2 | |
NRE1 patch by Miguel Sofer. Several new controlling
macros for information on the stack. Parser information on the
stack can now be switched to allocation on the heap.
Diffstat (limited to 'generic/tclCmdAH.c')
| -rw-r--r-- | generic/tclCmdAH.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclCmdAH.c b/generic/tclCmdAH.c index 5df1b08..2979c97 100644 --- a/generic/tclCmdAH.c +++ b/generic/tclCmdAH.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCmdAH.c,v 1.12.2.2.2.1 2001/11/28 17:58:35 andreas_kupries Exp $ + * RCS: @(#) $Id: tclCmdAH.c,v 1.12.2.2.2.2 2001/12/03 18:23:13 andreas_kupries Exp $ */ #include "tclInt.h" @@ -1732,11 +1732,11 @@ Tcl_ForeachObjCmd(dummy, interp, objc, objv) * if the loop body requires a large amount of stack space. */ -#define NUM_ARGS 9 +#define NUM_ARGS TCL_FOREACH_STATIC_ARGS Tcl_Obj *(argObjStorage[NUM_ARGS]); Tcl_Obj **argObjv = argObjStorage; -#define STATIC_LIST_SIZE 4 +#define STATIC_LIST_SIZE TCL_FOREACH_STATIC_LIST_SZ int indexArray[STATIC_LIST_SIZE]; /* Array of value list indices */ int varcListArray[STATIC_LIST_SIZE]; /* # loop variables per list */ Tcl_Obj **varvListArray[STATIC_LIST_SIZE]; /* Array of var name lists */ @@ -1972,7 +1972,7 @@ Tcl_FormatObjCmd(dummy, interp, objc, objv) # define PTR_VALUE 2 # define DOUBLE_VALUE 3 # define STRING_VALUE 4 -# define MAX_FLOAT_SIZE 320 +# define MAX_FLOAT_SIZE TCL_FMT_STATIC_FLOATBUFFER_SZ Tcl_Obj *resultPtr; /* Where result is stored finally. */ char staticBuf[MAX_FLOAT_SIZE + 1]; |