diff options
author | griffin <brian_griffin@mentor.com> | 2017-05-28 16:06:29 (GMT) |
---|---|---|
committer | griffin <brian_griffin@mentor.com> | 2017-05-28 16:06:29 (GMT) |
commit | 7ad256b22a418232031230af7c60a0e21e979df6 (patch) | |
tree | ac04ded8d534ad8b6c50900797f21f495bafdc63 /generic | |
parent | 7aab6826d8c0c63f62a1d8a8c42d514d5559e420 (diff) | |
download | tcl-7ad256b22a418232031230af7c60a0e21e979df6.zip tcl-7ad256b22a418232031230af7c60a0e21e979df6.tar.gz tcl-7ad256b22a418232031230af7c60a0e21e979df6.tar.bz2 |
0d in LinkVar
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tclLink.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclLink.c b/generic/tclLink.c index a39dfcd..7366acc 100644 --- a/generic/tclLink.c +++ b/generic/tclLink.c @@ -692,7 +692,7 @@ SetInvalidRealFromAny(Tcl_Interp *interp, Tcl_Obj *objPtr) { /* * This function checks for integer representations, which are valid * when linking with C variables, but which are invalid in other - * contexts in Tcl. Handled are "+", "-", "", "0x", "0b" and "0o" + * contexts in Tcl. Handled are "+", "-", "", "0x", "0b", "0d" and "0o" * (upperand lowercase). See bug [39f6304c2e]. */ int @@ -701,7 +701,7 @@ GetInvalidIntFromObj(Tcl_Obj *objPtr, int *intPtr) const char *str = TclGetString(objPtr); if ((objPtr->length == 0) || - ((objPtr->length == 2) && (str[0] == '0') && strchr("xXbBoO", str[1]))) { + ((objPtr->length == 2) && (str[0] == '0') && strchr("xXbBoOdD", str[1]))) { *intPtr = 0; return TCL_OK; } else if ((objPtr->length == 1) && strchr("+-", str[0])) { |