diff options
| author | dgp@users.sourceforge.net <dgp> | 2005-10-08 14:42:44 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2005-10-08 14:42:44 (GMT) |
| commit | 64b25366339b8dc67854f43d60ad6583dc5b529e (patch) | |
| tree | 7e3de1d0523d70328cfd81d9864b897058823d34 /generic/tclCompCmds.c | |
| parent | 0338f802509b8504448b30fc548e55ce095702f3 (diff) | |
| download | tcl-64b25366339b8dc67854f43d60ad6583dc5b529e.zip tcl-64b25366339b8dc67854f43d60ad6583dc5b529e.tar.gz tcl-64b25366339b8dc67854f43d60ad6583dc5b529e.tar.bz2 | |
TIP#237 IMPLEMENTATION
[kennykb-numerics-branch] Resynchronized with the HEAD; at this
checkpoint [-rkennykb-numerics-branch-20051008], the HEAD and
kennykb-numerics-branch contain identical code.
Diffstat (limited to 'generic/tclCompCmds.c')
| -rw-r--r-- | generic/tclCompCmds.c | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index 4f962ca..c340846 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCompCmds.c,v 1.77 2005/07/21 21:49:00 dkf Exp $ + * RCS: @(#) $Id: tclCompCmds.c,v 1.78 2005/10/08 14:42:45 dgp Exp $ */ #include "tclInt.h" @@ -611,6 +611,7 @@ TclCompileDictCmd(interp, parsePtr, envPtr) word = incrTokenPtr[1].start; numBytes = incrTokenPtr[1].size; +#if 0 /* * Note there is a danger that modifying the string could have * undesirable side effects. In this case, TclLooksLikeInt has no @@ -620,6 +621,7 @@ TclCompileDictCmd(interp, parsePtr, envPtr) if (!TclLooksLikeInt(word, numBytes)) { return TCL_ERROR; } +#endif /* * Now try to really parse the number. @@ -1959,7 +1961,7 @@ TclCompileIncrCmd(interp, parsePtr, envPtr) if (incrTokenPtr->type == TCL_TOKEN_SIMPLE_WORD) { CONST char *word = incrTokenPtr[1].start; int numBytes = incrTokenPtr[1].size; - +#if 0 /* * Note there is a danger that modifying the string could have * undesirable side effects. In this case, TclLooksLikeInt has @@ -1967,6 +1969,7 @@ TclCompileIncrCmd(interp, parsePtr, envPtr) */ if (TclLooksLikeInt(word, numBytes)) { +#endif int code; Tcl_Obj *intObj = Tcl_NewStringObj(word, numBytes); Tcl_IncrRefCount(intObj); @@ -1976,7 +1979,9 @@ TclCompileIncrCmd(interp, parsePtr, envPtr) && (-127 <= immValue) && (immValue <= 127)) { haveImmValue = 1; } +#if 0 } +#endif if (!haveImmValue) { PushLiteral(envPtr, word, numBytes); } @@ -2280,8 +2285,11 @@ TclCompileLindexCmd(interp, parsePtr, envPtr) varTokenPtr = TokenAfter(parsePtr->tokenPtr); - if ((numWords == 3) && (varTokenPtr->type == TCL_TOKEN_SIMPLE_WORD) && - TclLooksLikeInt(varTokenPtr[1].start, varTokenPtr[1].size)) { + if ((numWords == 3) && (varTokenPtr->type == TCL_TOKEN_SIMPLE_WORD) +#if 0 + && TclLooksLikeInt(varTokenPtr[1].start, varTokenPtr[1].size) +#endif + ) { Tcl_Obj *tmpObj; int idx, result; |