(eval6): Cast strlen to int to avoid warning from gcc -Wall.

diff --git a/src/expr.c b/src/expr.c
index f31ce008225e598e70c68a667c3290a6b3e18eda..2f1970da8ab06f7d41d0c320c359ee7a245279f5 100644 (file)
--- a/src/expr.c
+++ b/src/expr.c
@@ -522,7 +522,7 @@ eval6 (void)
       tostring (l);
       tostring (r);
       v = int_value (strcspn (l->u.s, r->u.s) + 1);
-      if (v->u.i == strlen (l->u.s) + 1)
+      if (v->u.i == (int) strlen (l->u.s) + 1)
        v->u.i = 0;
       freev (l);
       freev (r);
@@ -536,7 +536,7 @@ eval6 (void)
       i2 = eval6 ();
       tostring (l);
       if (!toarith (i1) || !toarith (i2)
-         || i1->u.i > strlen (l->u.s)
+         || i1->u.i > (int) strlen (l->u.s)
          || i1->u.i <= 0 || i2->u.i <= 0)
        v = str_value ("");
       else