From d4c0eb58b7c3388fb3f9410bf7a0eea876336e5c Mon Sep 17 00:00:00 2001 From: Janne Blomqvist Date: Fri, 7 Sep 2018 21:59:50 +0300 Subject: [PATCH] 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 * runtime/environ.c (init_unsigned_integer): Remove. From-SVN: r264163 --- libgfortran/ChangeLog | 4 ++++ libgfortran/runtime/environ.c | 19 ------------------- 2 files changed, 4 insertions(+), 19 deletions(-) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 6287b2b9dff..e13390bd23b 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,7 @@ +2018-09-07 Janne Blomqvist + + * runtime/environ.c (init_unsigned_integer): Remove. + 2018-09-05 Hans-Peter Nilsson * io/async.h: Use __gthread_mutex_t, not pthread_mutex_t. diff --git a/libgfortran/runtime/environ.c b/libgfortran/runtime/environ.c index 22faad348da..484b569f1db 100644 --- 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. */