Mercurial > octave-nkf
changeset 6567:e82cb026b893
[project @ 2007-04-24 20:40:23 by jwe]
author | jwe |
---|---|
date | Tue, 24 Apr 2007 20:40:24 +0000 |
parents | e9612a33cd1a |
children | 9520d1004a73 |
files | libcruft/ChangeLog libcruft/ranlib/phrtsd.f scripts/ChangeLog scripts/io/beep.m scripts/plot/box.m |
diffstat | 5 files changed, 19 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/libcruft/ChangeLog Fri Feb 01 23:01:35 2008 -0500 +++ b/libcruft/ChangeLog Tue Apr 24 20:40:24 2007 +0000 @@ -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:
--- a/libcruft/ranlib/phrtsd.f Fri Feb 01 23:01:35 2008 -0500 +++ b/libcruft/ranlib/phrtsd.f Tue Apr 24 20:40:24 2007 +0000 @@ -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
--- a/scripts/ChangeLog Fri Feb 01 23:01:35 2008 -0500 +++ b/scripts/ChangeLog Tue Apr 24 20:40:24 2007 +0000 @@ -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.
--- a/scripts/io/beep.m Fri Feb 01 23:01:35 2008 -0500 +++ b/scripts/io/beep.m Tue Apr 24 20:40:24 2007 +0000 @@ -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
--- a/scripts/plot/box.m Fri Feb 01 23:01:35 2008 -0500 +++ b/scripts/plot/box.m Tue Apr 24 20:40:24 2007 +0000 @@ -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