Remove unused init_unsigned_integer function.

As pointed out by Bernhard Reutner-Fischer, this function is unused
since the fix for PR 53796 in November 2017.

2018-09-07  Janne Blomqvist  <jb@gcc.gnu.org>

        * runtime/environ.c (init_unsigned_integer): Remove.

From-SVN: r264163

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 6287b2b9dff94aeaeb4373d878407dae58257b02..e13390bd23b876753f042cdb86325486f491141a 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,7 @@
+2018-09-07  Janne Blomqvist  <jb@gcc.gnu.org>
+
+       * runtime/environ.c (init_unsigned_integer): Remove.
+
 2018-09-05  Hans-Peter Nilsson  <hp@axis.com>
 
        * io/async.h: Use __gthread_mutex_t, not pthread_mutex_t.

diff --git a/libgfortran/runtime/environ.c b/libgfortran/runtime/environ.c
index 22faad348da660b1645a14877170c3e255a7a5c6..484b569f1db280f9f746de50a8c96a9a0e922c3c 100644 (file)
--- a/libgfortran/runtime/environ.c
+++ b/libgfortran/runtime/environ.c
@@ -98,25 +98,6 @@ init_integer (variable * v)
 }
 
 
-/* Initialize an integer environment variable which has to be positive.  */
-
-static void
-init_unsigned_integer (variable * v)
-{
-  char *p, *q;
-
-  p = getenv (v->name);
-  if (p == NULL)
-    return;
-
-  for (q = p; *q; q++)
-    if (!isdigit (*q))
-      return;
-
-  *v->var = atoi (p);
-}
-
-
 /* Initialize a boolean environment variable. We only look at the first
    letter of the value. */