Mercurial > octave-nkf

comparison src/ov-cell.cc @ 5828:22e23bee74c8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-05-23 06:05:14 by jwe]
author jwe
date Tue, 23 May 2006 06:05:14 +0000
parents 080c08b192d8
children db0598f94c0f
comparison
equal deleted inserted replaced
5827:1fe78adb91bc 5828:22e23bee74c8
618 dim_vector d = dims (); 618 dim_vector d = dims ();
619 if (d.length () < 1) 619 if (d.length () < 1)
620 return false; 620 return false;
621 621
622 // Use negative value for ndims 622 // Use negative value for ndims
623 FOUR_BYTE_INT di = - d.length(); 623 int32_t di = - d.length();
624 os.write (reinterpret_cast<char *> (&di), 4); 624 os.write (reinterpret_cast<char *> (&di), 4);
625 for (int i = 0; i < d.length (); i++) 625 for (int i = 0; i < d.length (); i++)
626 { 626 {
627 di = d(i); 627 di = d(i);
628 os.write (reinterpret_cast<char *> (&di), 4); 628 os.write (reinterpret_cast<char *> (&di), 4);
648 bool 648 bool
649 octave_cell::load_binary (std::istream& is, bool swap, 649 octave_cell::load_binary (std::istream& is, bool swap,
650 oct_mach_info::float_format fmt) 650 oct_mach_info::float_format fmt)
651 { 651 {
652 bool success = true; 652 bool success = true;
653 FOUR_BYTE_INT mdims; 653 int32_t mdims;
654 if (! is.read (reinterpret_cast<char *> (&mdims), 4)) 654 if (! is.read (reinterpret_cast<char *> (&mdims), 4))
655 return false; 655 return false;
656 if (swap) 656 if (swap)
657 swap_bytes<4> (&mdims); 657 swap_bytes<4> (&mdims);
658 if (mdims >= 0) 658 if (mdims >= 0)
659 return false; 659 return false;
660 660
661 mdims = -mdims; 661 mdims = -mdims;
662 FOUR_BYTE_INT di; 662 int32_t di;
663 dim_vector dv; 663 dim_vector dv;
664 dv.resize (mdims); 664 dv.resize (mdims);
665 665
666 for (int i = 0; i < mdims; i++) 666 for (int i = 0; i < mdims; i++)
667 { 667 {