summaryrefslogtreecommitdiffstats
path: root/unix/tclUnixInit.c
diff options
context:
space:
mode:
authordas <das>2007-11-10 03:41:23 (GMT)
committerdas <das>2007-11-10 03:41:23 (GMT)
commit74b82fbeab38c015f1650992b0aab52ceaac79a7 (patch)
tree73839669ca7815ef4e8264ebefa783669edf2c7d /unix/tclUnixInit.c
parent7b5633cea041565b6dde0ca14caaab75bcaa17ee (diff)
downloadtcl-74b82fbeab38c015f1650992b0aab52ceaac79a7.zip
tcl-74b82fbeab38c015f1650992b0aab52ceaac79a7.tar.gz
tcl-74b82fbeab38c015f1650992b0aab52ceaac79a7.tar.bz2
fix formatting and inverted test in TclpCheckStackSpace()
Diffstat (limited to 'unix/tclUnixInit.c')
-rw-r--r--unix/tclUnixInit.c39
1 files changed, 20 insertions, 19 deletions
diff --git a/unix/tclUnixInit.c b/unix/tclUnixInit.c
index b7df456..69ae9e4 100644
--- a/unix/tclUnixInit.c
+++ b/unix/tclUnixInit.c
@@ -7,7 +7,7 @@
* Copyright (c) 1999 by Scriptics Corporation.
* All rights reserved.
*
- * RCS: @(#) $Id: tclUnixInit.c,v 1.73 2007/11/09 23:04:07 msofer Exp $
+ * RCS: @(#) $Id: tclUnixInit.c,v 1.74 2007/11/10 03:41:23 das Exp $
*/
#include "tclInt.h"
@@ -1027,6 +1027,7 @@ TclpFindVariable(
* None.
*
* Remark: Unused in the core, to be removed.
+ *
*----------------------------------------------------------------------
*/
@@ -1034,22 +1035,19 @@ int
TclpCheckStackSpace(void)
{
#ifdef TCL_NO_STACK_CHECK
-
/*
* This function was normally unimplemented on Unix platforms and this
* implements old behavior, i.e. no stack checking performed.
*/
return 1;
-
#else
-
int localInt, *stackBound;
TclpGetCStackParams(&stackBound);
if (stackGrowsDown) {
- return (&localInt > stackBound) ;
+ return (&localInt < stackBound) ;
} else {
return (&localInt > stackBound) ;
}
@@ -1061,17 +1059,19 @@ TclpCheckStackSpace(void)
*
* TclpGetStackParams --
*
- * Determine tha stack params for the current thread: in which
- * direction does the stack grow, and what is the stack lower (resp
- * upper) bound for safe invocation of a new command. This is used to
- * cache the values needed for an efficient computation of
- * TclpCheckStackSpace() when the interp is known.
+ * Determine the stack params for the current thread: in which
+ * direction does the stack grow, and what is the stack lower (resp.
+ * upper) bound for safe invocation of a new command? This is used to
+ * cache the values needed for an efficient computation of
+ * TclpCheckStackSpace() when the interp is known.
*
- * Results:
- * Returns 1 if the stack grows down, in which case a stack lower bound
- * is stored at stackBoundPtr. If the stack grows up, 0 is returned and
- * an upper bound is stored at stackBoundPtr. If a bound cannot be
- * determined NULL is stored at stackBoundPtr.
+ * Results:
+ * Returns 1 if the stack grows down, in which case a stack lower bound
+ * is stored at stackBoundPtr. If the stack grows up, 0 is returned and
+ * an upper bound is stored at stackBoundPtr. If a bound cannot be
+ * determined NULL is stored at stackBoundPtr.
+ *
+ *----------------------------------------------------------------------
*/
int
@@ -1096,7 +1096,7 @@ TclpGetCStackParams(
stackGrowsDown = StackGrowsDown(&localVar);
}
- /*
+ /*
* The first time through, we record the "outermost" stack frame.
*/
@@ -1129,9 +1129,11 @@ TclpGetCStackParams(
}
if (stackGrowsDown) {
- *stackBoundPtr = (int *) ((char *)tsdPtr->outerVarPtr - tsdPtr->stackSize);
+ *stackBoundPtr = (int *) ((char *)tsdPtr->outerVarPtr -
+ tsdPtr->stackSize);
} else {
- *stackBoundPtr = (int *) ((char *)tsdPtr->outerVarPtr + tsdPtr->stackSize);
+ *stackBoundPtr = (int *) ((char *)tsdPtr->outerVarPtr +
+ tsdPtr->stackSize);
}
return stackGrowsDown;
#endif
@@ -1144,7 +1146,6 @@ StackGrowsDown(
int here;
return (&here < parent);
}
-
/*
*----------------------------------------------------------------------