Mercurial > hg > octave-nkf
changeset 4663:bf7272f8ba8c
[project @ 2003-11-25 06:05:20 by jwe]
author | jwe |
---|---|
date | Tue, 25 Nov 2003 06:07:28 +0000 |
parents | 55211d6748c4 |
children | 19bcdc6a9bb8 |
files | liboctave/Array-util.cc liboctave/ChangeLog liboctave/CmplxQR.cc liboctave/cmd-edit.cc liboctave/dbleQR.cc liboctave/kpse.cc liboctave/oct-group.cc src/ChangeLog src/ls-hdf5.cc src/ls-hdf5.h src/pr-output.cc |
diffstat | 11 files changed, 28 insertions(+), 15 deletions(-) [+] |
line wrap: on
line diff
--- a/liboctave/Array-util.cc +++ b/liboctave/Array-util.cc @@ -310,8 +310,8 @@ } dim_vector -get_zero_len_size (const dim_vector& frozen_lengths, - const dim_vector& dimensions) +get_zero_len_size (const dim_vector& /* frozen_lengths */, + const dim_vector& /* dimensions */) { dim_vector retval; assert (0);
--- a/liboctave/ChangeLog +++ b/liboctave/ChangeLog @@ -1,5 +1,11 @@ 2003-11-24 John W. Eaton <jwe@bevo.che.wisc.edu> + * dbleQR.cc (QR::init): Use separate pwork pointers. + * CmplxQR.cc (ComplexQR::init): Likewise. + + * oct-group.cc (octave_group::getgrnam): Pass correct args to + two-arg getgrnam version. + * Array.cc (assignN): Allow single indexing to work. (Array<T>::range_error (const char*, const Array<int>&)): Report index values. @@ -9,6 +15,9 @@ * DASRT.cc (ddasrt_f, ddasrt_g): Likewise. * DASPK.cc (ddaspk_psol): Likewise. * lo-mappers.cc (imag): Likewise. + * Array-util.cc (get_zero_len_size): Likewise. + * kpse.cc (path_search, path_find_first_of): Likewise. + * cmd-edit.cc (do_generate_filename_completions): Likewise. * dim-vector.h (dim_vector::all_ones): New function.
--- a/liboctave/CmplxQR.cc +++ b/liboctave/CmplxQR.cc @@ -124,7 +124,7 @@ lwork = 32 * n2; work.resize (lwork); - pwork = work.fortran_vec (); + Complex *pwork2 = work.fortran_vec (); F77_XFCN (zungqr, ZUNGQR, (m, n2, min_mn, tmp_data, m, ptau, pwork, lwork, info));
--- a/liboctave/cmd-edit.cc +++ b/liboctave/cmd-edit.cc @@ -556,7 +556,7 @@ } string_vector -default_command_editor::do_generate_filename_completions (const std::string& text) +default_command_editor::do_generate_filename_completions (const std::string&) { // XXX FIXME XXX return string_vector ();
--- a/liboctave/dbleQR.cc +++ b/liboctave/dbleQR.cc @@ -115,10 +115,10 @@ lwork = 32 * n2; work.resize (lwork); - pwork = work.fortran_vec (); + double *pwork2 = work.fortran_vec (); F77_XFCN (dorgqr, DORGQR, (m, n2, min_mn, tmp_data, m, ptau, - pwork, lwork, info)); + pwork2, lwork, info)); if (f77_exception_encountered) (*current_liboctave_error_handler)
--- a/liboctave/kpse.cc +++ b/liboctave/kpse.cc @@ -848,7 +848,7 @@ static string_vector path_search (const std::string& path, const std::string& name, - bool must_exist, bool all) + bool /* must_exist */, bool all) { string_vector ret_list; bool done = false; @@ -1025,7 +1025,7 @@ static string_vector path_find_first_of (const std::string& path, const string_vector& names, - bool must_exist, bool all) + bool /* must_exist */, bool all) { string_vector ret_list; bool done = false;
--- a/liboctave/oct-group.cc +++ b/liboctave/oct-group.cc @@ -117,7 +117,7 @@ octave_group::getgrnam (const std::string& nm) { std::string msg; - return getgrnam (msg); + return getgrnam (nm, msg); } octave_group
--- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,5 @@ +2003-11-25 John W. Eaton <jwe@bevo.che.wisc.edu> + 2003-11-24 John W. Eaton <jwe@bevo.che.wisc.edu> * version.h (OCTAVE_VERSION): Now 2.1.52. @@ -6,6 +8,8 @@ * ov.h (octave_value::all_strings): Pass second arg to rep function. * DLD-FUNCTIONS/dasrt.cc (dasrt_user_f): Delete unused arg names. + * ls-hdf5.h (hdf5_streambase::hdf5_streambase): Likewise. + * ls-hdf5.cc (read_hdf5_data): Likewise. * ls-utils.cc (get_save_type): Likewise. * parse.y (Fassignin): Likewise. * utils.cc (empty_arg): Likewise. @@ -22,8 +26,8 @@ * pt-check.cc (tree_checker::visit_subplot_axes): Likewise. * pr-output.cc (octave_print_internal (std::ostream&, double, bool), octave_print_internal (std::ostream&, const Complex&, bool), - octave_print_internal (std::ostream& const charNDArray&, bool, - int, bool): Likewise. + octave_print_internal (std::ostream&, const ArrayN<std::string>&, + bool, int): Likewise. * oct-stream.cc (octave_scan<> (std::istream&, const scanf_format_elt&, char*): Likewise * TEMPLATE-INST/Array-tc.cc (resize_fill_value<octave_value>):
--- a/src/ls-hdf5.cc +++ b/src/ls-hdf5.cc @@ -785,7 +785,7 @@ // job anyway. (c.f. load -import documentation.) std::string read_hdf5_data (std::istream& is, - const std::string& filename, bool& global, + const std::string& /* filename */, bool& global, octave_value& tc, std::string& doc, bool import) { std::string retval;
--- a/src/ls-hdf5.h +++ b/src/ls-hdf5.h @@ -41,7 +41,7 @@ hdf5_fstreambase () { file_id = -1; } - hdf5_fstreambase (const char *name, int mode, int prot = 0) + hdf5_fstreambase (const char *name, int mode, int /* prot */ = 0) { if (mode == std::ios::in) file_id = H5Fopen (name, H5F_ACC_RDONLY, H5P_DEFAULT);
--- a/src/pr-output.cc +++ b/src/pr-output.cc @@ -1965,7 +1965,7 @@ void octave_print_internal (std::ostream& os, const charNDArray& nda, - bool pr_as_read_syntax, int /* extra_indent */, + bool pr_as_read_syntax, int extra_indent, bool pr_as_string) { switch (nda.ndims ()) @@ -1984,7 +1984,7 @@ void octave_print_internal (std::ostream& os, const ArrayN<std::string>& nda, - bool pr_as_read_syntax, int extra_indent) + bool pr_as_read_syntax, int /* extra_indent */) { // XXX FIXME XXX -- this mostly duplicates the code in the // PRINT_ND_ARRAY macro.