diff options
| author | dgp <dgp@users.sourceforge.net> | 2012-11-16 19:17:21 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2012-11-16 19:17:21 (GMT) |
| commit | fd1f9d484eb12a94ef0005b475a12aa3429cfce5 (patch) | |
| tree | b53fde11422fed477ec07ef2e2a982075c11b963 /generic/tclExecute.c | |
| parent | b3a59469e023419e5a31fd41ed99714272b3819d (diff) | |
| download | tcl-fd1f9d484eb12a94ef0005b475a12aa3429cfce5.zip tcl-fd1f9d484eb12a94ef0005b475a12aa3429cfce5.tar.gz tcl-fd1f9d484eb12a94ef0005b475a12aa3429cfce5.tar.bz2 | |
Burn the octal bridges. We're not goin' back.
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 14 |
1 files changed, 3 insertions, 11 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 36f87c0..54b1867 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -8438,16 +8438,7 @@ IllegalExprOperandType( } if (GetNumberFromObj(NULL, opndPtr, &ptr, &type) != TCL_OK) { - int numBytes; - const char *bytes = Tcl_GetStringFromObj(opndPtr, &numBytes); - - if (numBytes == 0) { - description = "empty string"; - } else if (TclCheckBadOctal(NULL, bytes)) { - description = "invalid octal number"; - } else { - description = "non-numeric string"; - } + description = "non-numeric string"; } else if (type == TCL_NUMBER_NAN) { description = "non-numeric floating-point value"; } else if (type == TCL_NUMBER_DOUBLE) { @@ -8458,7 +8449,8 @@ IllegalExprOperandType( } Tcl_SetObjResult(interp, Tcl_ObjPrintf( - "can't use %s as operand of \"%s\"", description, operator)); + "can't use %s \"%s\" as operand of \"%s\"", description, + Tcl_GetString(opndPtr), operator)); Tcl_SetErrorCode(interp, "ARITH", "DOMAIN", description, NULL); } |