summaryrefslogtreecommitdiff
path: root/packages/base/src/Internal/C/vector-aux.c
diff options
context:
space:
mode:
Diffstat (limited to 'packages/base/src/Internal/C/vector-aux.c')
-rw-r--r--packages/base/src/Internal/C/vector-aux.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/packages/base/src/Internal/C/vector-aux.c b/packages/base/src/Internal/C/vector-aux.c
index 580aa1c..c161556 100644
--- a/packages/base/src/Internal/C/vector-aux.c
+++ b/packages/base/src/Internal/C/vector-aux.c
@@ -71,7 +71,7 @@ int sumI(int m, KIVEC(x),IVEC(r)) {
71 OK 71 OK
72} 72}
73 73
74int sumL(int32_t m, KLVEC(x),LVEC(r)) { 74int sumL(int64_t m, KLVEC(x),LVEC(r)) {
75 REQUIRES(rn==1,BAD_SIZE); 75 REQUIRES(rn==1,BAD_SIZE);
76 int i; 76 int i;
77 int res = 0; 77 int res = 0;
@@ -148,7 +148,7 @@ int prodI(int m, KIVEC(x),IVEC(r)) {
148 OK 148 OK
149} 149}
150 150
151int prodL(int32_t m, KLVEC(x),LVEC(r)) { 151int prodL(int64_t m, KLVEC(x),LVEC(r)) {
152 REQUIRES(rn==1,BAD_SIZE); 152 REQUIRES(rn==1,BAD_SIZE);
153 int i; 153 int i;
154 int res = 1; 154 int res = 1;
@@ -761,8 +761,8 @@ int mapValL(int code, int64_t* pval, KLVEC(x), LVEC(r)) {
761 OPV(1,val/xp[k]) 761 OPV(1,val/xp[k])
762 OPV(2,val+xp[k]) 762 OPV(2,val+xp[k])
763 OPV(3,val-xp[k]) 763 OPV(3,val-xp[k])
764 OPV(6,mod(val,xp[k])) 764 OPV(6,mod_l(val,xp[k]))
765 OPV(7,mod(xp[k],val)) 765 OPV(7,mod_l(xp[k],val))
766 default: ERROR(BAD_CODE); 766 default: ERROR(BAD_CODE);
767 } 767 }
768} 768}