diff options
Diffstat (limited to 'packages/base')
-rw-r--r-- | packages/base/THANKS.md | 3 | ||||
-rw-r--r-- | packages/base/src/Internal/C/lapack-aux.h | 4 |
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 | ||
93 | inline | 93 | static inline |
94 | int mod (int a, int b) { | 94 | int 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 | ||
103 | inline | 103 | static inline |
104 | int64_t mod_l (int64_t a, int64_t b) { | 104 | int64_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) { |