allanger/ardour
1
0
Fork 0
Code Issues Pull Requests 1 Actions Packages Projects Releases Activity

Address some Wmissing-prototypes in qm-dsp

Browse Source
This commit is contained in:
Robin Gareus
2022-11-26 16:22:06 +01:00
parent b7aa98ee0c
commit bc6a9609ff
2 changed files with 49 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
libs/qm-dsp/maths/pca/pca.c
View File

@@ -30,7 +30,7 @@
/** Variance-covariance matrix: creation *****************************/
/* Create m * m covariance matrix from given n * m data matrix. */
void covcol(double** data, int n, int m, double** symmat)
static void covcol(double** data, int n, int m, double** symmat)
{
double *mean;
int i, j, j1, j2;
@@ -89,7 +89,7 @@ return;
/** Error handler **************************************************/
void erhand(char* err_msg)
static void erhand(char const* err_msg)
{
fprintf(stderr,"Run-time error:\n");
fprintf(stderr,"%s\n", err_msg);
@@ -106,7 +106,7 @@ Ref: Smith et al., Matrix Eigensystem Routines -- EISPACK Guide
Springer-Verlag, 1976, pp. 489-494.
W H Press et al., Numerical Recipes in C, Cambridge U P,
1988, pp. 373-374. */
void tred2(double** a, int n, double* d, double* e)
static void tred2(double** a, int n, double* d, double* e)
{
int l, k, j, i;
double scale, hh, h, g, f;
@@ -184,7 +184,7 @@ void tred2(double** a, int n, double* d, double* e)
/** Tridiagonal QL algorithm -- Implicit **********************/
void tqli(double* d, double* e, int n, double** z)
static void tqli(double* d, double* e, int n, double** z)
{
int m, l, iter, i, k;
double s, r, p, g, f, dd, c, b;