bc: simplify bc_program_len()

function                                             old     new   delta
bc_program_len                                        42      34      -8

Signed-off-by: Denys Vlasenko <vda.linux@googlemail.com>

1 files changed, 7 insertions, 5 deletions

diff --git a/miscutils/bc.c b/miscutils/bc.c
index 1879581e3..afd5c8d0e 100644
--- a/miscutils/bc.c
+++ b/miscutils/bc.c
@@ -6254,12 +6254,14 @@ static unsigned long bc_program_scale(BcNum *n)
 
 static unsigned long bc_program_len(BcNum *n)
 {
-        unsigned long len = n->len;
-        size_t i;
-
-        if (n->rdx != n->len) return len;
-        for (i = n->len - 1; i < n->len && n->num[i] == 0; --len, --i);
+        size_t len = n->len;
 
+        if (n->rdx != len) return len;
+        for (;;) {
+                if (len == 0) break;
+                len--;
+                if (n->num[len] != 0) break;
+        }
         return len;
 }