Mercurial > octave-nkf
changeset 3719:744755872311
[project @ 2000-10-10 21:42:20 by jwe]
author | jwe |
---|---|
date | Tue, 10 Oct 2000 21:42:21 +0000 |
parents | 65c6da68ddb3 |
children | ad3340974a7b |
files | src/ChangeLog src/error.cc src/xdiv.cc |
diffstat | 3 files changed, 37 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/ChangeLog Fri Sep 08 06:50:23 2000 +0000 +++ b/src/ChangeLog Tue Oct 10 21:42:21 2000 +0000 @@ -1,3 +1,12 @@ +2000-10-10 John W. Eaton <jwe@bevo.che.wisc.edu> + + * error.cc (pr_where_2): New function. + (pr_where_1): Use it instead of error_1 to avoid setting error_state. + +2000-10-02 John W. Eaton <jwe@bevo.che.wisc.edu> + + * xdiv.cc (xdiv): Warn if execution falls through to lssolve. + 2000-09-06 John W. Eaton <jwe@bevo.che.wisc.edu> * utils.cc (FERRNO): New function (currently commented out).
--- a/src/error.cc Fri Sep 08 06:50:23 2000 +0000 +++ b/src/error.cc Tue Oct 10 21:42:21 2000 +0000 @@ -211,11 +211,37 @@ } static void +pr_where_2 (const char *fmt, va_list args) +{ + if (fmt) + { + if (*fmt) + { + int len = strlen (fmt); + if (fmt[len - 1] == '\n') + { + if (len > 1) + { + char *tmp_fmt = strsave (fmt); + tmp_fmt[len - 1] = '\0'; + verror (0, tmp_fmt, args); + delete [] tmp_fmt; + } + } + else + verror (0, fmt, args); + } + } + else + panic ("pr_where_2: invalid format"); +} + +static void pr_where_1 (const char *fmt, ...) { va_list args; va_start (args, fmt); - error_1 (0, fmt, args); + pr_where_2 (fmt, args); va_end (args); }
--- a/src/xdiv.cc Fri Sep 08 06:50:23 2000 +0000 +++ b/src/xdiv.cc Tue Oct 10 21:42:21 2000 +0000 @@ -45,6 +45,7 @@ solve_singularity_warning (double rcond) { warning ("matrix singular to machine precision, rcond = %g", rcond); + warning ("attempting to find minimum norm solution"); } template <class T1, class T2>