Added lintlib, minor optim
authorceriel <none@none>
Mon, 18 May 1987 13:11:50 +0000 (13:11 +0000)
committerceriel <none@none>
Mon, 18 May 1987 13:11:50 +0000 (13:11 +0000)
modules/src/string/bts2str.c

index 50426d8..5887fdd 100644 (file)
@@ -21,16 +21,17 @@ bts2str(b, n, s)
                if (is_print(*f))
                        *t++ = *f++;
                else {
-                       register int n = (*f++ & 0377);
-                       register int i;
                        register char *p;
+                       register int n = (*f++ & 0377);
 
                        *t = '\\';
                        p = (t += 4);
-                       for (i = 0; i < 3; i++) {
-                               *--p = (n & 07) + '0';
-                               n >>= 3;
-                       }
+                       *--p = (n & 07) + '0';
+                       n >>= 3;
+                       *--p = (n & 07) + '0';
+                       n >>= 3;
+                       *--p = (n & 07) + '0';
+                       n >>= 3;
                }
        }
        *t = '\000';