From fa14255fc96902307b7415f6735b4c4c3bd0e77a Mon Sep 17 00:00:00 2001
From: rlar <rlar>
Date: Sun, 15 May 2016 20:00:47 +0200
Subject: [PATCH] numparam, use `strtoupper()', drop `stupcase()'

---
 src/frontend/numparam/general.h  |  1 -
 src/frontend/numparam/mystring.c | 14 --------------
 src/frontend/numparam/xpressn.c  |  2 +-
 3 files changed, 1 insertion(+), 16 deletions(-)

diff --git a/src/frontend/numparam/general.h b/src/frontend/numparam/general.h
index f96fbca1c..86a7a82f0 100644
--- a/src/frontend/numparam/general.h
+++ b/src/frontend/numparam/general.h
@@ -25,6 +25,5 @@ bool ci_prefix(const char *p, const char *s);
 
 bool alfa(char c);
 bool alfanum(char c);
-char *stupcase(char *s);
 
 int yes_or_no(void);
diff --git a/src/frontend/numparam/mystring.c b/src/frontend/numparam/mystring.c
index 753c19b9c..1b5e31fed 100644
--- a/src/frontend/numparam/mystring.c
+++ b/src/frontend/numparam/mystring.c
@@ -335,20 +335,6 @@ alfanum(char c)
 }
 
 
-char *
-stupcase(char *s)
-{
-    int i = 0;
-
-    while (s[i] != '\0') {
-        s[i] = toupper_c(s[i]);
-        i++;
-    }
-
-    return s;
-}
-
-
 /***** elementary math *******/
 
 int
diff --git a/src/frontend/numparam/xpressn.c b/src/frontend/numparam/xpressn.c
index aded42039..e7460f34d 100644
--- a/src/frontend/numparam/xpressn.c
+++ b/src/frontend/numparam/xpressn.c
@@ -1101,7 +1101,7 @@ evaluate_variable(dico_t *dico, SPICE_DSTRINGPTR qstr_p, char *t)
 
     spice_dstring_reinit(qstr_p);
 
-    stupcase(t);
+    strtoupper(t);
     entry = entrynb(dico, t);
 
     if (!entry)