diff options
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 92 |
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; |