Mercurial > hg > octave-lyh

diff scripts/general/bitget.m @ 10635:d1978e7364ad

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Print name of function in error() string messages.
author Rik <octave@nomad.inbox5.com>
date Sun, 16 May 2010 22:26:54 -0700
parents 16f53d29049f
children c776f063fefe
line wrap: on
line diff
--- a/scripts/general/bitget.m
+++ b/scripts/general/bitget.m
@@ -67,13 +67,13 @@
       Amax = 64;
       _conv = @int64;
     else
-      error ("invalid class %s", class (A));
+      error ("bitget: invalid class %s", class (A));
     endif
   endif
 
   m = double (n(:));
   if (any (m < 1) || any (m > Amax))
-    error ("n must be in the range [1,%d]", Amax);
+    error ("bitget: n must be in the range [1,%d]", Amax);
   endif
 
   X = bitand (A, bitshift (_conv (1), uint8 (n) - uint8 (1))) != _conv (0);