diff options
| author | jingham <jingham> | 1999-08-16 00:09:18 (GMT) |
|---|---|---|
| committer | jingham <jingham> | 1999-08-16 00:09:18 (GMT) |
| commit | 24495e08d6852bd141a96cb0b858094a88f46f5f (patch) | |
| tree | cb1dc76862130925c7ff862775fad46e8da3514b /mac | |
| parent | 5404016d81e3bb17a9538ed741b6dbc66303a5e7 (diff) | |
| download | tcl-24495e08d6852bd141a96cb0b858094a88f46f5f.zip tcl-24495e08d6852bd141a96cb0b858094a88f46f5f.tar.gz tcl-24495e08d6852bd141a96cb0b858094a88f46f5f.tar.bz2 | |
If you are running the testsuite, set the Stack size to 768K so you can pass the regexp tests. For most sane regexps, however 512K is fine.
Diffstat (limited to 'mac')
| -rw-r--r-- | mac/tclMacInt.h | 19 |
1 files changed, 16 insertions, 3 deletions
diff --git a/mac/tclMacInt.h b/mac/tclMacInt.h index 9e94e61..77d274c 100644 --- a/mac/tclMacInt.h +++ b/mac/tclMacInt.h @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclMacInt.h,v 1.5 1999/05/11 07:12:19 jingham Exp $ + * RCS: @(#) $Id: tclMacInt.h,v 1.6 1999/08/16 00:09:18 jingham Exp $ */ #ifndef _TCLMACINT @@ -27,10 +27,23 @@ #pragma export on /* - * Defines to control stack behavior + * Defines to control stack behavior. + * + * The Tcl8.2 regexp code is highly recursive for patterns with many + * subexpressions. So we have to increase the stack space to accomodate. + * 512 K is good enough for ordinary work, but you need 768 to pass the Tcl + * regexp testsuite. + * + * For the PPC, you need to set the stack space in the Project file. + * */ -#define TCL_MAC_68K_STACK_GROWTH (256*1024) +#ifdef TCL_TEST +# define TCL_MAC_68K_STACK_GROWTH (768*1024) +#else +# define TCL_MAC_68K_STACK_GROWTH (512*1024) +#endif + #define TCL_MAC_STACK_THRESHOLD 16384 /* |