Mercurial > octave-libgccjit
diff liboctave/dMatrix.cc @ 7478:d7c5b101bb0f
ilaenv --> xilaenv
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Tue, 12 Feb 2008 23:45:20 -0500 |
| parents | 8b22207ef9ca |
| children | 29980c6b8604 |
line wrap: on
line diff
--- a/liboctave/dMatrix.cc Tue Feb 12 21:13:21 2008 -0500 +++ b/liboctave/dMatrix.cc Tue Feb 12 23:45:20 2008 -0500 @@ -59,13 +59,13 @@ extern "C" { - octave_idx_type + F77_RET_T F77_FUNC (xilaenv, XILAENV) (const octave_idx_type&, F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, const octave_idx_type&, - const octave_idx_type&, const octave_idx_type& - F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL, - octave_idx_type&); + const octave_idx_type&, const octave_idx_type&, + octave_idx_type& + F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); F77_RET_T F77_FUNC (dgebal, DGEBAL) (F77_CONST_CHAR_ARG_DECL, @@ -2114,9 +2114,9 @@ octave_idx_type smlsiz; F77_FUNC (xilaenv, XILAENV) (9, F77_CONST_CHAR_ARG2 ("DGELSD", 6), F77_CONST_CHAR_ARG2 (" ", 1), - 0, 0, 0, 0 + 0, 0, 0, 0, smlsiz F77_CHAR_ARG_LEN (6) - F77_CHAR_ARG_LEN (1), smlsiz); + F77_CHAR_ARG_LEN (1)); // We compute the size of iwork because DGELSD in older versions // of LAPACK does not return it on a query call.