diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-06-14 07:54:51 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-06-14 07:54:51 (GMT) |
| commit | e8d9fe8ebebaf0e0c0d6c1a22a3a498da2347771 (patch) | |
| tree | fd3f725641f7ff06608e6e77394d4bcefb5ef3ec /generic/tclLink.c | |
| parent | bbcbd64e3beffa016fdd4c8b74d2ea5f22b7dd94 (diff) | |
| parent | 2712a556fb87afc34f52a435a6b39ad81aa20a16 (diff) | |
| download | tcl-e8d9fe8ebebaf0e0c0d6c1a22a3a498da2347771.zip tcl-e8d9fe8ebebaf0e0c0d6c1a22a3a498da2347771.tar.gz tcl-e8d9fe8ebebaf0e0c0d6c1a22a3a498da2347771.tar.bz2 | |
Rebase to core-8-6-branch (who told that fossil doesn't know how to rebase ....)
Diffstat (limited to 'generic/tclLink.c')
| -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 7d1e3a8..70fe7d1 100644 --- a/generic/tclLink.c +++ b/generic/tclLink.c @@ -677,7 +677,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 @@ -687,7 +687,7 @@ GetInvalidIntFromObj(Tcl_Obj *objPtr, 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])) { |