summaryrefslogtreecommitdiff
path: root/packages/base/src/Internal/C/vector-aux.c
diff options
context:
space:
mode:
authorntfrgl <ntfrgl@beronov.net>2015-08-09 00:06:32 +0200
committerntfrgl <ntfrgl@beronov.net>2015-08-09 00:06:32 +0200
commit6dc70f79414ded94e88755755ffa1c1d16509d9d (patch)
tree1c7bdc4b76a14520e16ed41bd35e2feefcfcfdb2 /packages/base/src/Internal/C/vector-aux.c
parent8811656fba770ba5ee6e6fe8df7b7c94300cd190 (diff)
Possible fix for #141
Diffstat (limited to 'packages/base/src/Internal/C/vector-aux.c')
-rw-r--r--packages/base/src/Internal/C/vector-aux.c20
1 files changed, 0 insertions, 20 deletions
diff --git a/packages/base/src/Internal/C/vector-aux.c b/packages/base/src/Internal/C/vector-aux.c
index 5528a9d..a52b969 100644
--- a/packages/base/src/Internal/C/vector-aux.c
+++ b/packages/base/src/Internal/C/vector-aux.c
@@ -716,16 +716,6 @@ int mapValF(int code, float* pval, KFVEC(x), FVEC(r)) {
716 } 716 }
717} 717}
718 718
719inline
720int mod (int a, int b) {
721 int m = a % b;
722 if (b>0) {
723 return m >=0 ? m : m+b;
724 } else {
725 return m <=0 ? m : m+b;
726 }
727}
728
729int mapValI(int code, int* pval, KIVEC(x), IVEC(r)) { 719int mapValI(int code, int* pval, KIVEC(x), IVEC(r)) {
730 int k; 720 int k;
731 int val = *pval; 721 int val = *pval;
@@ -742,16 +732,6 @@ int mapValI(int code, int* pval, KIVEC(x), IVEC(r)) {
742 } 732 }
743} 733}
744 734
745inline
746int64_t mod_l (int64_t a, int64_t b) {
747 int64_t m = a % b;
748 if (b>0) {
749 return m >=0 ? m : m+b;
750 } else {
751 return m <=0 ? m : m+b;
752 }
753}
754
755int mapValL(int code, int64_t* pval, KLVEC(x), LVEC(r)) { 735int mapValL(int code, int64_t* pval, KLVEC(x), LVEC(r)) {
756 int k; 736 int k;
757 int64_t val = *pval; 737 int64_t val = *pval;