Changeset 5161f3c in git for Singular/extra.cc

Timestamp:

Dec 7, 2018, 4:32:05 PM (5 years ago)

Author:

Karim Abou Zeid <karim23697@…>

Branches:

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

Children:

5efe1c22808baa18e28f9469d26921871fa028ed

Parents:

8cbdd9f7325dd4c21fcdff7f6793fb58db8195ba

git-author:

Karim Abou Zeid <karim23697@gmail.com>2018-12-07 16:32:05+01:00

git-committer:

Karim Abou Zeid <karim23697@gmail.com>2018-12-07 16:45:18+01:00

Message:

freeAlgebra in freegb.lib

File:

• Singular/extra.cc (modified) (1 diff)

Singular/extra.cc

@@ -1243 +1243 @@
     else
   #endif
+ /*==================== freeAlgebra for freeGB  ==================*/
+  #ifdef HAVE_SHIFTBBA
+    if (strcmp(sys_cmd, "freeAlgebra") == 0)
+    {
+      const short t[]={2,RING_CMD,INT_CMD};
+      if (iiCheckTypes(h,t,1))
+      {
+        ring r=(ring)h->CopyD();
+        int d=(int)((long)h->next->Data());
+        res->rtyp = RING_CMD;
+        res->data = freeAlgebra(r, d);
+        return FALSE;
+      }
+      else return TRUE;
+    }
+    else
+  #endif
   /*==================== pcv ==================================*/
   #ifdef HAVE_PCV