summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordas <das>2007-11-10 03:40:17 (GMT)
committerdas <das>2007-11-10 03:40:17 (GMT)
commit7b5633cea041565b6dde0ca14caaab75bcaa17ee (patch)
tree2915f33966c0ad2215089f322b43c91e3db50a95 /generic
parent936c1d7d5f68baa4bde529be7b0d23a8b55a0f25 (diff)
downloadtcl-7b5633cea041565b6dde0ca14caaab75bcaa17ee.zip
tcl-7b5633cea041565b6dde0ca14caaab75bcaa17ee.tar.gz
tcl-7b5633cea041565b6dde0ca14caaab75bcaa17ee.tar.bz2
fix typos, formatting and non-unix breakage (due to undefined stackGrowsDown)
Diffstat (limited to 'generic')
-rw-r--r--generic/tclBasic.c13
1 files changed, 7 insertions, 6 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index 222261a..09ec05d 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -14,7 +14,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclBasic.c,v 1.271 2007/11/09 21:35:17 msofer Exp $
+ * RCS: @(#) $Id: tclBasic.c,v 1.272 2007/11/10 03:40:17 das Exp $
*/
#include "tclInt.h"
@@ -334,10 +334,9 @@ static const OpCmdInfo mathOpCmds[] = {
{0}, NULL }
};
-
#ifdef TCL_NO_STACK_CHECK
#define CheckStackSpace(interp, localIntPtr) 1
-#else /* stack checlk enabled */
+#else /* stack check enabled */
#ifdef _TCLUNIXPORT
/*
* A unix system: cache the stack check parameters.
@@ -345,6 +344,9 @@ static const OpCmdInfo mathOpCmds[] = {
static int stackGrowsDown = 1;
+#define GetCStackParams(iPtr) \
+ stackGrowsDown = TclpGetCStackParams(&(iPtr)->stackBound)
+
#define CheckStackSpace(iPtr, localIntPtr) \
(stackGrowsDown \
? ((localIntPtr) > (iPtr)->stackBound) \
@@ -355,13 +357,12 @@ static int stackGrowsDown = 1;
* FIXME: can we do something similar for other platforms, especially windows?
*/
-#define TclpGetCStackParams(foo) 1;
+#define GetCStackParams(iPtr)
#define CheckStackSpace(interp, localIntPtr) \
TclpCheckStackSpace()
#endif
#endif
-
/*
*----------------------------------------------------------------------
@@ -612,7 +613,7 @@ Tcl_CreateInterp(void)
iPtr->pendingObjDataPtr = NULL;
iPtr->asyncReadyPtr = TclGetAsyncReadyPtr();
- stackGrowsDown = TclpGetCStackParams(&iPtr->stackBound);
+ GetCStackParams(iPtr);
/*
* Create the core commands. Do it here, rather than calling