Please enter the commit message for your changes. Lines starting

[eos/base.git] / util / src / TclTk / tcl8.6.4 / compat / fixstrtod.c

diff --git a/util/src/TclTk/tcl8.6.4/compat/fixstrtod.c b/util/src/TclTk/tcl8.6.4/compat/fixstrtod.c
deleted file mode 100644 (file)
index 91f309e..0000000
--- a/util/src/TclTk/tcl8.6.4/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;
-}