remove commented out strToL

diff --git a/lib/expr/exeval.c b/lib/expr/exeval.c
index d3a3792ec50ffbb8b7150f4584bd77084d0423e0..149d9a8577019879088424c3fbe37b7ce949acfc 100644 (file)
--- a/lib/expr/exeval.c
+++ b/lib/expr/exeval.c
@@ -1874,34 +1874,6 @@ exeval(Expr_t* ex, Exnode_t* expr, void* env)
        return v;
 }
 
-#if 0
-/* strToL:
- * Convert a string representation of an integer
- * to an integer. The string can specify its own form
- * using 0x, etc.
- * If p != NULL, it points to the first character in
- * s where numeric parsing fails, or the last character.
- * The value is returned, with 0 returned for "".
- */
-Sflong_t strToL(char *s, char **p)
-{
-    Sflong_t v;
-    int i;
-    int n;
-
-    v = 0;
-    if (p) {
-       n = sfsscanf(s, "%I*i%n", sizeof(v), &v, &i);
-       if (n > 0)
-           *p = s + i;
-       else
-           *p = s;
-    } else
-       sfsscanf(s, "%I*i", sizeof(v), &v);
-    return v;
-}
-#endif
-
 /* exstring:
  * Generate copy of input string using
  * string memory.

diff --git a/lib/expr/exlib.h b/lib/expr/exlib.h
index 46829bb066d40f9a0e726bb730ef52b353fd6a91..c84a169fdae674d19bf6e2ab77031d5ed4e84de6 100644 (file)
--- a/lib/expr/exlib.h
+++ b/lib/expr/exlib.h
@@ -181,7 +181,6 @@ extern const char*  exversion;
 extern Exstate_t       expr;
 
 extern int             exparse(void);  /* yacc should do this          */
-extern Sflong_t                strToL(char *, char **);
 
 #endif