# HG changeset patch
# User jwe
# Date 1177447224 0
# Node ID e82cb026b89391bd2d8323fa15582bb697f1983b
# Parent  e9612a33cd1afab052e87abe05d4d506673cdfda
[project @ 2007-04-24 20:40:23 by jwe]

diff --git a/libcruft/ChangeLog b/libcruft/ChangeLog
--- a/libcruft/ChangeLog
+++ b/libcruft/ChangeLog
@@ -1,3 +1,9 @@
+2007-04-23  John W. Eaton  <jwe@octave.org>
+
+	* ranlib/phrtsd.f (phrtsd): Store result of call to index
+	instrinsic in an INTEGER variable to ensure that the types of the
+	arguments passed to mod really are the same even on 64-bit systems.
+
 2007-04-18  Michael Goffioul  <michael.goffioul@swing.be>
 
 	* libcruft/blas-xtra/xdnrm2.f, libcruft/blas-xtra/xdznrm2.f:
diff --git a/libcruft/ranlib/phrtsd.f b/libcruft/ranlib/phrtsd.f
--- a/libcruft/ranlib/phrtsd.f
+++ b/libcruft/ranlib/phrtsd.f
@@ -49,7 +49,7 @@
       CHARACTER phrase* (*)
 C     ..
 C     .. Local Scalars ..
-      INTEGER i,ichr,j,lphr
+      INTEGER i,ichr,j,lphr,idxval
 C     ..
 C     .. Local Arrays ..
       INTEGER shift(0:4),values(5)
@@ -75,7 +75,8 @@
       lphr = lennob(phrase)
       IF (lphr.LT.1) RETURN
       DO 30,i = 1,lphr
-          ichr = mod(index(table,phrase(i:i)),sixty4)
+          idxval = index(table,phrase(i:i))
+          ichr = mod(idxval,sixty4)
           IF (ichr.EQ.0) ichr = 63
           DO 10,j = 1,5
               values(j) = ichr - j
diff --git a/scripts/ChangeLog b/scripts/ChangeLog
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -1,3 +1,12 @@
+2007-04-24  John W. Eaton  <jwe@octave.org>
+
+	* io/beep.m: Fix cut and paste error.
+	From Søren Hauberg <soren@hauberg.org>.
+
+2007-04-23  John W. Eaton  <jwe@octave.org>
+
+	* plot/box.m: Delete extra endfunction keyword.
+
 2007-04-23  David Bateman  <dbateman@free.fr>
 
 	* plot/plot3.m: Call newplot.
diff --git a/scripts/io/beep.m b/scripts/io/beep.m
--- a/scripts/io/beep.m
+++ b/scripts/io/beep.m
@@ -18,7 +18,7 @@
 ## 02110-1301, USA.
 
 ## -*- texinfo -*-
-## @deftypefn {Function File} {} puts (@var{string})
+## @deftypefn {Function File} {} beep ()
 ## Produce a beep from the speaker (or visual bell).
 ## @seealso{puts, fputs, printf, fprintf}
 ## @end deftypefn
diff --git a/scripts/plot/box.m b/scripts/plot/box.m
--- a/scripts/plot/box.m
+++ b/scripts/plot/box.m
@@ -32,7 +32,6 @@
 
 function box (varargin)
 
-  ## [h, varargin] = __plt_get_axis_arg__ ("box", varargin{:});
   h = gca ();
 
   box_state = get (h, "box");
@@ -63,7 +62,3 @@
   set (h, "box", box_state);
 
 endfunction
-
-  
-
-endfunction