summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--generic/tclExecute.c92
1 files changed, 46 insertions, 46 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index b4e4f3b..a1ba0cb 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.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: tclExecute.c,v 1.85 2002/07/27 21:17:15 msofer Exp $
+ * RCS: @(#) $Id: tclExecute.c,v 1.86 2002/07/31 09:57:34 dkf Exp $
*/
#include "tclInt.h"
@@ -2088,7 +2088,7 @@ TclExecuteByteCode(interp, codePtr)
/*
* Operands must be boolean or numeric. No int->double
* conversions are performed.
- */
+ */
int i1, i2;
int iResult;
@@ -2197,9 +2197,9 @@ TclExecuteByteCode(interp, codePtr)
case INST_LIST:
/*
- * Pop the opnd (objc) top stack elements into a new list obj
- * and then decrement their ref counts.
- */
+ * Pop the opnd (objc) top stack elements into a new list obj
+ * and then decrement their ref counts.
+ */
opnd = TclGetUInt4AtPtr(pc+1);
objResultPtr = Tcl_NewListObj(opnd, &(stackPtr[stackTop - (opnd-1)]));
@@ -2222,15 +2222,15 @@ TclExecuteByteCode(interp, codePtr)
case INST_LIST_INDEX:
/*** lindex with objc == 3 ***/
- /*
- * Pop the two operands
- */
+ /*
+ * Pop the two operands
+ */
value2Ptr = stackPtr[stackTop];
valuePtr = stackPtr[stackTop- 1];
- /*
- * Extract the desired list element
- */
+ /*
+ * Extract the desired list element
+ */
objResultPtr = TclLindexList(interp, valuePtr, value2Ptr);
if (objResultPtr == NULL) {
TRACE_WITH_OBJ(("%.30s %.30s => ERROR: ", O2S(valuePtr), O2S(value2Ptr)),
@@ -2240,8 +2240,8 @@ TclExecuteByteCode(interp, codePtr)
}
/*
- * Stash the list element on the stack
- */
+ * Stash the list element on the stack
+ */
TRACE(("%.20s %.20s => %s\n",
O2S(valuePtr), O2S(value2Ptr), O2S(objResultPtr)));
NEXT_INST_F(1, 2, -1); /* already has the correct refCount */
@@ -2398,7 +2398,7 @@ TclExecuteByteCode(interp, codePtr)
/*
* We only need to check (in)equality when
* we have equal length strings.
- */
+ */
if (*pc == INST_STR_NEQ) {
iResult = (strcmp(s1, s2) != 0);
} else {
@@ -2586,8 +2586,8 @@ TclExecuteByteCode(interp, codePtr)
value2Ptr = stackPtr[stackTop - 1]; /* Pattern */
/*
- * Check that at least one of the objects
- * is Unicode before promoting both.
+ * Check that at least one of the objects is Unicode before
+ * promoting both.
*/
if ((valuePtr->typePtr == &tclStringType)
|| (value2Ptr->typePtr == &tclStringType)) {
@@ -2623,7 +2623,7 @@ TclExecuteByteCode(interp, codePtr)
/*
* Any type is allowed but the two operands must have the
* same type. We will compute value op value2.
- */
+ */
Tcl_ObjType *t1Ptr, *t2Ptr;
char *s1 = NULL; /* Init. avoids compiler warning. */
@@ -2659,10 +2659,10 @@ TclExecuteByteCode(interp, codePtr)
t2Ptr = value2Ptr->typePtr;
/*
- * We only want to coerce numeric validation if
- * neither type is NULL. A NULL type means the arg is
- * essentially an empty object ("", {} or [list]).
- */
+ * We only want to coerce numeric validation if neither type
+ * is NULL. A NULL type means the arg is essentially an empty
+ * object ("", {} or [list]).
+ */
if (!( (!t1Ptr && !valuePtr->bytes)
|| (valuePtr->bytes && !valuePtr->length)
|| (!t2Ptr && !value2Ptr->bytes)
@@ -2690,11 +2690,11 @@ TclExecuteByteCode(interp, codePtr)
}
if (!IS_NUMERIC_TYPE(t1Ptr) || !IS_NUMERIC_TYPE(t2Ptr)) {
/*
- * One operand is not numeric. Compare as strings.
- * NOTE: strcmp is not correct for \x00 < \x01, but
- * that is unlikely to occur here. We could use the
- * TclUtfNCmp2 to handle this.
- */
+ * One operand is not numeric. Compare as strings. NOTE:
+ * strcmp is not correct for \x00 < \x01, but that is
+ * unlikely to occur here. We could use the TclUtfNCmp2
+ * to handle this.
+ */
int s1len, s2len;
s1 = Tcl_GetStringFromObj(valuePtr, &s1len);
s2 = Tcl_GetStringFromObj(value2Ptr, &s2len);
@@ -2729,8 +2729,8 @@ TclExecuteByteCode(interp, codePtr)
} else if ((t1Ptr == &tclDoubleType)
|| (t2Ptr == &tclDoubleType)) {
/*
- * Compare as doubles.
- */
+ * Compare as doubles.
+ */
if (t1Ptr == &tclDoubleType) {
d1 = valuePtr->internalRep.doubleValue;
GET_DOUBLE_VALUE(d2, value2Ptr, t2Ptr);
@@ -2798,8 +2798,8 @@ TclExecuteByteCode(interp, codePtr)
#endif /* TCL_WIDE_INT_IS_LONG */
} else {
/*
- * Compare as ints.
- */
+ * Compare as ints.
+ */
i = valuePtr->internalRep.longValue;
i2 = value2Ptr->internalRep.longValue;
switch (*pc) {
@@ -3086,8 +3086,8 @@ TclExecuteByteCode(interp, codePtr)
}
/*
- * Reuse the valuePtr object already on stack if possible.
- */
+ * Reuse the valuePtr object already on stack if possible.
+ */
if (Tcl_IsShared(valuePtr)) {
#ifndef TCL_WIDE_INT_IS_LONG
@@ -3249,8 +3249,8 @@ TclExecuteByteCode(interp, codePtr)
}
/*
- * Check now for IEEE floating-point error.
- */
+ * Check now for IEEE floating-point error.
+ */
if (IS_NAN(dResult) || IS_INF(dResult)) {
TRACE(("%.20s %.20s => IEEE FLOATING PT ERROR\n",
@@ -3448,7 +3448,7 @@ TclExecuteByteCode(interp, codePtr)
* create a copy to modify: this is "copy on write".
* Free any old string representation since it is now
* invalid.
- */
+ */
double d;
int boolvar;
@@ -3486,7 +3486,7 @@ TclExecuteByteCode(interp, codePtr)
if (Tcl_IsShared(valuePtr)) {
/*
* Create a new object.
- */
+ */
if ((tPtr == &tclIntType) || (tPtr == &tclBooleanType)) {
i = valuePtr->internalRep.longValue;
objResultPtr = Tcl_NewLongObj(
@@ -3801,9 +3801,9 @@ TclExecuteByteCode(interp, codePtr)
#ifndef TCL_COMPILE_DEBUG
/*
- * Remark that the compiler ALWAYS sets INST_FOREACH_STEP4 immediately
- * after INST_FOREACH_START4 - let us just fall through instead of
- * jumping back to the top.
+ * Remark that the compiler ALWAYS sets INST_FOREACH_STEP4
+ * immediately after INST_FOREACH_START4 - let us just fall
+ * through instead of jumping back to the top.
*/
pc += 5;
@@ -4344,8 +4344,8 @@ IllegalExprOperandType(interp, pc, opndPtr)
s = Tcl_GetStringFromObj(opndPtr, &length);
p = s;
/*
- * strtod() isn't particularly consistent about detecting Inf
- * and NaN between platforms.
+ * strtod() isn't at all consistent about detecting Inf and
+ * NaN between platforms.
*/
if (length == 3) {
if ((s[0]=='n' || s[0]=='N') && (s[1]=='a' || s[1]=='A') &&
@@ -4407,9 +4407,9 @@ IllegalExprOperandType(interp, pc, opndPtr)
}
if (looksLikeInt) {
/*
- * If something that looks like an integer could not be converted,
- * then it *must* be a bad octal or too large to represent
- * [Bug 542588].
+ * If something that looks like an integer could not be
+ * converted, then it *must* be a bad octal or too large
+ * to represent [Bug 542588].
*/
if (TclCheckBadOctal(NULL, s)) {
@@ -4421,8 +4421,8 @@ IllegalExprOperandType(interp, pc, opndPtr)
}
} else {
/*
- * See if the operand can be interpreted as a double in order to
- * improve the error message.
+ * See if the operand can be interpreted as a double in
+ * order to improve the error message.
*/
double d;