Mercurial > hg > 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 +++ 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:
--- 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
--- 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.
--- 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