Mercurial > hg > octave-lyh

diff src/ov-cx-sparse.cc @ 5327:68eae0f668c4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-05-02 08:57:21 by dbateman]
author dbateman
date Mon, 02 May 2005 08:57:21 +0000
parents 22994a5730f9
children 05adf9de7657
line wrap: on
line diff
--- a/src/ov-cx-sparse.cc
+++ b/src/ov-cx-sparse.cc
@@ -271,6 +271,8 @@
 				   oct_mach_info::float_format fmt)
 {
   FOUR_BYTE_INT nz, nc, nr, tmp;
+  char ctmp;
+
   if (! is.read (X_CAST (char *, &tmp), 4))
     return false;
 
@@ -320,10 +322,10 @@
       m.ridx(i) = tmp;
     }
 
-  if (! is.read (X_CAST (char *, &tmp), 1))
+  if (! is.read (X_CAST (char *, &ctmp), 1))
     return false;
   
-  read_doubles (is, X_CAST(double *, m.data()), X_CAST (save_type, tmp), 
+  read_doubles (is, X_CAST(double *, m.data()), X_CAST (save_type, ctmp), 
 		2 * nz, swap, fmt);
 
   if (error_state || ! is)