summaryrefslogtreecommitdiffstats
path: root/compat/fixstrtod.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2018-11-01 14:50:14 (GMT)
committerdgp <dgp@users.sourceforge.net>2018-11-01 14:50:14 (GMT)
commitfc3971425ebb6b5c78c8300b280560a5d5920388 (patch)
treef63ef1dc835d10b8148cffdd135a4b51e490fbdc /compat/fixstrtod.c
parent00165cded4658bf4505913771dd3e26b2c754b65 (diff)
parent3788abb994534d04420c18ac71f18ad05fd98b88 (diff)
downloadtcl-fc3971425ebb6b5c78c8300b280560a5d5920388.zip
tcl-fc3971425ebb6b5c78c8300b280560a5d5920388.tar.gz
tcl-fc3971425ebb6b5c78c8300b280560a5d5920388.tar.bz2
merge 8.7
Diffstat (limited to 'compat/fixstrtod.c')
-rw-r--r--compat/fixstrtod.c36
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;
-}