Mercurial > hg > octave-nkf

comparison src/error.cc @ 3986:7cb85d5c7aad

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-07-11 15:37:02 by jwe]
author jwe
date Thu, 11 Jul 2002 15:37:02 +0000
parents fab8337340a1
children 8eaf7182d48a
comparison
equal deleted inserted replaced
3985:fa0ae9105656 3986:7cb85d5c7aad
350 void 350 void
351 warning (const char *fmt, ...) 351 warning (const char *fmt, ...)
352 { 352 {
353 if (Vwarning_option != "off") 353 if (Vwarning_option != "off")
354 { 354 {
355 if (Vwarning_option == "backtrace" && ! warning_state)
356 pr_where ("warning");
357
355 va_list args; 358 va_list args;
356 va_start (args, fmt); 359 va_start (args, fmt);
357 vwarning ("warning", fmt, args); 360 vwarning ("warning", fmt, args);
358 va_end (args); 361 va_end (args);
359 362
360 warning_state = 1; 363 warning_state = 1;
361
362 if (Vwarning_option == "backtrace")
363 pr_where ("warning");
364 364
365 if ((interactive || forced_interactive) 365 if ((interactive || forced_interactive)
366 && Vdebug_on_warning && curr_function) 366 && Vdebug_on_warning && curr_function)
367 { 367 {
368 unwind_protect_bool (Vdebug_on_warning); 368 unwind_protect_bool (Vdebug_on_warning);