Mercurial > octave

changeset 25600:9ea68b9e277b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
use lo-blas-proto.h for xerbla prototype * xerbla.c: Include lo-blas-proto.h for xerbla prototype instead of repeating the declaration in the source file.
author John W. Eaton <jwe@octave.org>
date Fri, 13 Jul 2018 02:27:00 -0400
parents fcfedeff926c
children a8325f2361c7
files liboctave/external/blas-xtra/xerbla.c
diffstat 1 files changed, 1 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/liboctave/external/blas-xtra/xerbla.c	Thu Jul 12 22:35:57 2018 -0700
+++ b/liboctave/external/blas-xtra/xerbla.c	Fri Jul 13 02:27:00 2018 -0400
@@ -27,6 +27,7 @@
 #include <stdio.h>
 
 #include "f77-fcn.h"
+#include "lo-blas-proto.h"
 
 typedef void (*xerbla_handler_fptr) (void);
 
@@ -56,12 +57,6 @@
 /* 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