From 39a6527597bcd50558953eb3fa2c56899b93297b Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Tue, 11 Aug 2015 11:22:30 +0200 Subject: add static inline to avoid multiple definition error --- packages/base/THANKS.md | 3 ++- packages/base/src/Internal/C/lapack-aux.h | 4 ++-- 2 files changed, 4 insertions(+), 3 deletions(-) (limited to 'packages/base') diff --git a/packages/base/THANKS.md b/packages/base/THANKS.md index 13b93dc..de60445 100644 --- a/packages/base/THANKS.md +++ b/packages/base/THANKS.md @@ -194,7 +194,8 @@ module reorganization, monadic mapVectorM, and many other improvements. - "maxc01" solved uninstallability in FreeBSD and improved urandom -- "ntfrgl" added {take,drop}Last{Rows,Columns} and odeSolveVWith with generalized step control function. +- "ntfrgl" added {take,drop}Last{Rows,Columns} and odeSolveVWith with generalized step control function + and fixed link errors related to mod/mod_l. - "cruegge" discovered a bug in the conjugate gradient solver for sparse symmetric systems. diff --git a/packages/base/src/Internal/C/lapack-aux.h b/packages/base/src/Internal/C/lapack-aux.h index e0dd5f6..7a6fcbf 100644 --- a/packages/base/src/Internal/C/lapack-aux.h +++ b/packages/base/src/Internal/C/lapack-aux.h @@ -90,7 +90,7 @@ typedef short ftnlen; /********************************************************/ -inline +static inline int mod (int a, int b) { int m = a % b; if (b>0) { @@ -100,7 +100,7 @@ int mod (int a, int b) { } } -inline +static inline int64_t mod_l (int64_t a, int64_t b) { int64_t m = a % b; if (b>0) { -- cgit v1.2.3