From 7c446e77a52dc0a979c0fe570f1e7b6127d9ff42 Mon Sep 17 00:00:00 2001
From: Alberto Ruiz <aruiz@um.es>
Date: Mon, 8 Jun 2015 12:07:15 +0200
Subject: instances for Mod m Z and Mod m I

---
 packages/base/src/Internal/C/lapack-aux.c | 2 +-
 packages/base/src/Internal/C/vector-aux.c | 8 ++++----
 2 files changed, 5 insertions(+), 5 deletions(-)

(limited to 'packages/base/src/Internal/C')

diff --git a/packages/base/src/Internal/C/lapack-aux.c b/packages/base/src/Internal/C/lapack-aux.c
index 1601bef..dcce1c5 100644
--- a/packages/base/src/Internal/C/lapack-aux.c
+++ b/packages/base/src/Internal/C/lapack-aux.c
@@ -1308,7 +1308,7 @@ int multiplyQ(int ta, int tb, KQMAT(a),KQMAT(b),QMAT(r)) {
     } OK }
 
 int multiplyI(int     m, KOIMAT(a), KOIMAT(b), OIMAT(r)) MULT_IMP
-int multiplyL(int32_t m, KOLMAT(a), KOLMAT(b), OLMAT(r)) MULT_IMP
+int multiplyL(int64_t m, KOLMAT(a), KOLMAT(b), OLMAT(r)) MULT_IMP
 
 
 ////////////////// sparse matrix-product ///////////////////////////////////////
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)) {
     OK
 }
 
-int sumL(int32_t m, KLVEC(x),LVEC(r)) {
+int sumL(int64_t m, KLVEC(x),LVEC(r)) {
     REQUIRES(rn==1,BAD_SIZE);
     int i;
     int res = 0;
@@ -148,7 +148,7 @@ int prodI(int m, KIVEC(x),IVEC(r)) {
     OK
 }
 
-int prodL(int32_t m, KLVEC(x),LVEC(r)) {
+int prodL(int64_t m, KLVEC(x),LVEC(r)) {
     REQUIRES(rn==1,BAD_SIZE);
     int i;
     int res = 1;
@@ -761,8 +761,8 @@ int mapValL(int code, int64_t* pval, KLVEC(x), LVEC(r)) {
         OPV(1,val/xp[k])
         OPV(2,val+xp[k])
         OPV(3,val-xp[k])
-        OPV(6,mod(val,xp[k]))
-        OPV(7,mod(xp[k],val))
+        OPV(6,mod_l(val,xp[k]))
+        OPV(7,mod_l(xp[k],val))
         default: ERROR(BAD_CODE);
     }
 }
-- 
cgit v1.2.3