# HG changeset patch
# User jwe
# Date 1109700114 0
# Node ID dc706eb5be9f7368b6263afa93011cc8d95fddfd
# Parent  b2322bcf4fba946584de71d0bbf81b15f89841bc
[project @ 2005-03-01 18:01:54 by jwe]

diff -r b2322bcf4fba -r dc706eb5be9f libcruft/ChangeLog
--- a/libcruft/ChangeLog	Tue Mar 01 06:23:08 2005 +0000
+++ b/libcruft/ChangeLog	Tue Mar 01 18:01:54 2005 +0000
@@ -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.
diff -r b2322bcf4fba -r dc706eb5be9f libcruft/misc/machar.c
--- a/libcruft/misc/machar.c	Tue Mar 01 06:23:08 2005 +0000
+++ b/libcruft/misc/machar.c	Tue Mar 01 18:01:54 2005 +0000
@@ -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);