diff options
author | dgp <dgp@users.sourceforge.net> | 2018-11-01 14:50:14 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2018-11-01 14:50:14 (GMT) |
commit | fc3971425ebb6b5c78c8300b280560a5d5920388 (patch) | |
tree | f63ef1dc835d10b8148cffdd135a4b51e490fbdc /compat/fixstrtod.c | |
parent | 00165cded4658bf4505913771dd3e26b2c754b65 (diff) | |
parent | 3788abb994534d04420c18ac71f18ad05fd98b88 (diff) | |
download | tcl-fc3971425ebb6b5c78c8300b280560a5d5920388.zip tcl-fc3971425ebb6b5c78c8300b280560a5d5920388.tar.gz tcl-fc3971425ebb6b5c78c8300b280560a5d5920388.tar.bz2 |
merge 8.7
Diffstat (limited to 'compat/fixstrtod.c')
-rw-r--r-- | compat/fixstrtod.c | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/compat/fixstrtod.c b/compat/fixstrtod.c deleted file mode 100644 index 63fb8ef..0000000 --- a/compat/fixstrtod.c +++ /dev/null @@ -1,36 +0,0 @@ -/* - * fixstrtod.c -- - * - * Source code for the "fixstrtod" procedure. This procedure is - * used in place of strtod under Solaris 2.4, in order to fix - * a bug where the "end" pointer gets set incorrectly. - * - * Copyright (c) 1995 Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#include <stdio.h> - -#undef strtod - -/* - * Declare strtod explicitly rather than including stdlib.h, since in - * somes systems (e.g. SunOS 4.1.4) stdlib.h doesn't declare strtod. - */ - -extern double strtod(char *, char **); - -double -fixstrtod( - char *string, - char **endPtr) -{ - double d; - d = strtod(string, endPtr); - if ((endPtr != NULL) && (*endPtr != string) && ((*endPtr)[-1] == 0)) { - *endPtr -= 1; - } - return d; -} |