fix -Wunused-but-set-variable

perl11 · Dec 1, 2024 · e73d99f · e73d99f
1 parent 24b8fdb
commit e73d99f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/core/string.c b/core/string.c
@@ -111,12 +111,12 @@ static PN potion_str_eval(Potion *P, PN cl, PN self) {
 /// "number" method. as atoi/atof
 static PN potion_str_number(Potion *P, PN cl, PN self) {
   char *str = PN_STR_PTR(self);
-  int i = 0, dec = 0, sign = 0, len = PN_STR_LEN(self);
+  int i = 0, sign = 0, len = PN_STR_LEN(self);
   if (len < 1) return PN_ZERO;
 
   sign = (str[0] == '-' ? -1 : 1);
   if (str[0] == '-' || str[0] == '+') {
-    dec++; str++; len--;
+    str++; len--;
   }
   for (i = 0; i < len; i++)
     if (str[i] < '0' || str[i] > '9')