Mercurial > octave

comparison src/octave.cc @ 11157:c75130f19440

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
octave.cc: fix call to xerbla
author John W. Eaton <jwe@octave.org>
date Mon, 25 Oct 2010 17:05:48 -0400
parents 8aa93f43bae8
children 2718e1fdf82f
comparison
equal deleted inserted replaced
11156:83da69c6e7be 11157:c75130f19440
608 // link to our own version instead of the one provided by the BLAS 608 // link to our own version instead of the one provided by the BLAS
609 // library. But octave_NaN should never be -1, so we should never 609 // library. But octave_NaN should never be -1, so we should never
610 // actually call xerbla. 610 // actually call xerbla.
611 611
612 if (octave_NaN == -1) 612 if (octave_NaN == -1)
613 F77_FUNC (xerbla, XERBLA) ("octave", 13, 6L); 613 F77_FUNC (xerbla, XERBLA) ("octave", 13 F77_CHAR_ARG_LEN (6));
614 614
615 initialize_error_handlers (); 615 initialize_error_handlers ();
616 616
617 initialize_default_warning_state (); 617 initialize_default_warning_state ();
618 618