Mercurial > octave

changeset 25599:fcfedeff926c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
xerbla.c: Add missing prototypes to stop gcc warnings (bug #48505). * liboctave/external/blas-xtra/xerbla.c: Add prototypes for octave_set_xerbla_handler and xerbla_.
author Rik <rik@octave.org>
date Thu, 12 Jul 2018 22:35:57 -0700
parents 8090a118eb03
children 9ea68b9e277b
files liboctave/external/blas-xtra/xerbla.c
diffstat 1 files changed, 9 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/liboctave/external/blas-xtra/xerbla.c	Thu Jul 12 17:28:40 2018 -0700
+++ b/liboctave/external/blas-xtra/xerbla.c	Thu Jul 12 22:35:57 2018 -0700
@@ -44,6 +44,9 @@
 
 static xerbla_handler_fptr xerbla_handler = NULL;
 
+/* Prototype to stop -Wmissing-prototypes from triggering */
+void octave_set_xerbla_handler (xerbla_handler_fptr fcn);
+
 void
 octave_set_xerbla_handler (xerbla_handler_fptr fcn)
 {
@@ -53,6 +56,12 @@
 /* Replacement for BLAS and LAPACK XERBLA subroutine that calls an
    optionally installed handler function.  */
 
+/* Prototype to stop -Wmissing-prototypes from triggering */
+F77_RET_T
+F77_FUNC (xerbla, XERBLA) (F77_CONST_CHAR_ARG_DEF (s_arg, len),
+                           const F77_INT *info
+                           F77_CHAR_ARG_LEN_DEF (len));
+
 F77_RET_T
 F77_FUNC (xerbla, XERBLA) (F77_CONST_CHAR_ARG_DEF (s_arg, len),
                            const F77_INT *info