Mercurial > hg > octave-nkf

diff src/ov-re-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-re-sparse.cc
+++ b/src/ov-re-sparse.cc
@@ -316,6 +316,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;
 
@@ -365,11 +367,10 @@
       m.xridx(i) = tmp;
     }
 
-  if (! is.read (X_CAST (char *, &tmp), 1))
+  if (! is.read (X_CAST (char *, &ctmp), 1))
     return false;
   
-  double *re = m.xdata ();
-  read_doubles (is, re, X_CAST (save_type, tmp), nz, swap, fmt);
+  read_doubles (is, m.xdata (), X_CAST (save_type, ctmp), nz, swap, fmt);
 
   if (error_state || ! is)
     return false;