summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAlberto Ruiz <aruiz@um.es>2015-08-11 11:22:30 +0200
committerAlberto Ruiz <aruiz@um.es>2015-08-11 11:22:30 +0200
commit39a6527597bcd50558953eb3fa2c56899b93297b (patch)
tree62d156864d43b7c43ab87b7780a728d23281349d
parent773eeb0583dc49ab2d6725e4aae50e34e0672225 (diff)
add static inline to avoid multiple definition error
-rw-r--r--packages/base/THANKS.md3
-rw-r--r--packages/base/src/Internal/C/lapack-aux.h4
2 files changed, 4 insertions, 3 deletions
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.
194 194
195- "maxc01" solved uninstallability in FreeBSD and improved urandom 195- "maxc01" solved uninstallability in FreeBSD and improved urandom
196 196
197- "ntfrgl" added {take,drop}Last{Rows,Columns} and odeSolveVWith with generalized step control function. 197- "ntfrgl" added {take,drop}Last{Rows,Columns} and odeSolveVWith with generalized step control function
198 and fixed link errors related to mod/mod_l.
198 199
199- "cruegge" discovered a bug in the conjugate gradient solver for sparse symmetric systems. 200- "cruegge" discovered a bug in the conjugate gradient solver for sparse symmetric systems.
200 201
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;
90 90
91/********************************************************/ 91/********************************************************/
92 92
93inline 93static inline
94int mod (int a, int b) { 94int mod (int a, int b) {
95 int m = a % b; 95 int m = a % b;
96 if (b>0) { 96 if (b>0) {
@@ -100,7 +100,7 @@ int mod (int a, int b) {
100 } 100 }
101} 101}
102 102
103inline 103static inline
104int64_t mod_l (int64_t a, int64_t b) { 104int64_t mod_l (int64_t a, int64_t b) {
105 int64_t m = a % b; 105 int64_t m = a % b;
106 if (b>0) { 106 if (b>0) {