summaryrefslogtreecommitdiffstats
path: root/compat/fixstrtod.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2018-11-19 17:29:12 (GMT)
committerdgp <dgp@users.sourceforge.net>2018-11-19 17:29:12 (GMT)
commitcc6faa155b3ac525cab5b017159361b62c4a9c6a (patch)
tree7fcee0f1e0eb5fa165d2af2f118b1cd52c6352f8 /compat/fixstrtod.c
parent274d86b2ec1d33d42ce059946338c6e6e1086ea8 (diff)
parent1fae54c8c004d072d62e3d867ef4e66b238d0bcd (diff)
downloadtcl-cc6faa155b3ac525cab5b017159361b62c4a9c6a.zip
tcl-cc6faa155b3ac525cab5b017159361b62c4a9c6a.tar.gz
tcl-cc6faa155b3ac525cab5b017159361b62c4a9c6a.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;
-}