Mercurial > hg > octave-nkf
changeset 5171:dc706eb5be9f
[project @ 2005-03-01 18:01:54 by jwe]
author | jwe |
---|---|
date | Tue, 01 Mar 2005 18:01:54 +0000 |
parents | b2322bcf4fba |
children | 9d9bbda4f00c |
files | libcruft/ChangeLog libcruft/misc/machar.c |
diffstat | 2 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/libcruft/ChangeLog +++ b/libcruft/ChangeLog @@ -1,3 +1,7 @@ +2005-03-01 John W. Eaton <jwe@octave.org> + + * misc/machar.c (rmachar): Declare local REAL variables volatile. + 2005-02-25 John W. Eaton <jwe@octave.org> * blas/zher.f: New file.
--- a/libcruft/misc/machar.c +++ b/libcruft/misc/machar.c @@ -123,8 +123,8 @@ { int i,iz,j,k; int mx,itmp,nxres; - REAL a,b,beta,betain,one,y,z,zero; - REAL betah,t,tmp,tmpa,tmp1,two; + volatile REAL a,b,beta,betain,one,y,z,zero; + volatile REAL betah,two,t,tmp,tmpa,tmp1; (*irnd) = 1; one = (REAL)(*irnd);