Changeset c3b7d1e in git for Singular/iparith.cc

Timestamp:

Feb 1, 2021, 1:37:46 AM (3 years ago)

Author:

Karim Abou Zeid <karim23697@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b4f17ed1d25f93d46dbe29e4b499baecc2fd51bb')

Children:

7f6fff5afd5c76a57ccfa8440a2c329db0c215f5

Parents:

15fc5f19a9a19e268ea1f86d8e7d35f229908025

Message:

Enable fetch for LP

File:

• Singular/iparith.cc (modified) (2 diffs)

Singular/iparith.cc

@@ -2166 +2166 @@
       }
     }
-    if ((iiOp!=FETCH_CMD) || (r->N!=currRing->N) || (rPar(r)!=rPar(currRing)))
+    if (
+        (iiOp!=FETCH_CMD) || (r->N!=currRing->N) || (rPar(r)!=rPar(currRing))
+#ifdef HAVE_SHIFTBBA
+          || rIsLPRing(currRing)
+#endif
+        )
     {
       perm=(int *)omAlloc0((r->N+1)*sizeof(int));
@@ -2205 +2210 @@
       else
       {
-        unsigned i;
-        if (par_perm_size!=0)
-          for(i=si_min(rPar(r),rPar(currRing));i>0;i--) par_perm[i-1]=-i;
-        for(i=si_min(r->N,currRing->N);i>0;i--) perm[i]=i;
+#ifdef HAVE_SHIFTBBA
+        if (rIsLPRing(currRing))
+        {
+          maFetchPermLP(r, currRing, perm);
+        }
+        else
+#endif
+        {
+          unsigned i;
+          if (par_perm_size!=0)
+            for(i=si_min(rPar(r),rPar(currRing));i>0;i--) par_perm[i-1]=-i;
+          for(i=si_min(r->N,currRing->N);i>0;i--) perm[i]=i;
+        }
       }
     }