chiark / gitweb /
reformatted reverse_bits_in_byte slightly
authorian <ian>
Fri, 22 Oct 2004 21:07:13 +0000 (21:07 +0000)
committerian <ian>
Fri, 22 Oct 2004 21:07:13 +0000 (21:07 +0000)
layout/segcmapassign

index 84cdbc7921d90da14a2f847ebf3c9c9860b88fbc..48622ac92e9d7221b6a21d0d4f8b7c506a726cbc 100755 (executable)
@@ -74,9 +74,9 @@ while (<>) {
 sub reverse_bits_in_byte ($) {
     my ($a) = @_;
     my ($b,$c,$d);
-    $b = (($a >>  1) & 0x55) | (($a <<  1) & 0xaa);
-    $c = (($b >>  2) & 0x33) | (($b <<  2) & 0xcc);
-    $d = (($c >>  4) & 0x0f) | (($c <<  4) & 0xf0);
+    $b= (($a >> 1) & 0x55) | (($a << 1) & 0xaa);
+    $c= (($b >> 2) & 0x33) | (($b << 2) & 0xcc);
+    $d= (($c >> 4) & 0x0f) | (($c << 4) & 0xf0);
     return $d;
 }