Mercurial > hg > octave-lojdl

changeset 17408:7d8d194f3f63

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
bitget.m, bitset.m: Make max bit index consistent * bitget.m, bitset.m: Compute maximum bit index consistently.
author Mike Miller <mtmiller@ieee.org>
date Sun, 08 Sep 2013 17:51:23 -0400
parents 4bcd301754ce
children e09cd91168d1
files scripts/general/bitget.m scripts/general/bitset.m
diffstat 2 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/general/bitget.m
+++ b/scripts/general/bitget.m
@@ -39,7 +39,7 @@
   endif
 
   if (isa (A, "double"))
-    Amax = log2 (bitmax) + 1;
+    Amax = ceil (log2 (bitmax));
     _conv = @double;
   else
     if (isa (A, "uint8"))
--- a/scripts/general/bitset.m
+++ b/scripts/general/bitset.m
@@ -54,10 +54,10 @@
 
   if (isfloat (A) && isreal (A))
     Bmax = bitmax (cl);
-    Amax = log2 (Bmax);
+    Amax = ceil (log2 (Bmax));
   elseif (isinteger (A))
     Bmax = intmax (cl);
-    Amax = round (log2 (Bmax));
+    Amax = ceil (log2 (Bmax));
   else
     error ("bitset: invalid class %s", cl);
   endif