Changeset 84c0d8 in git

Timestamp:

Dec 5, 2018, 4:40:57 PM (5 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

0ebc05c0101018a2b27db08973bc82d262812d57

Parents:

2a6e8ddfaa1412500c0701d7596589ab3a1fa261

Message:

add: intmat(<bigintmat>)

Location:

Singular

Files:

• iparith.cc (modified) (1 diff)
• table.h (modified) (1 diff)

Singular/iparith.cc

@@ -5449 +5449 @@
   number n=(number)u->Data();
   res->data=(char *)(long)iin_Int(n,coeffs_BIGINT );
+  return FALSE;
+}
+static BOOLEAN jjBim2Im(leftv res, leftv u)
+{
+  bigintmat* b=(bigintmat*)u->Data();
+  res->data=(char *)bim2iv(b);
   return FALSE;
 }

Singular/table.h

@@ -152 +152 @@
 ,{D(jjnInt),       INT_CMD,         INT_CMD,        NUMBER_CMD    , ALLOW_NC |ALLOW_RING}
 ,{D(jjP2I),        INT_CMD,         INT_CMD,        POLY_CMD      , ALLOW_NC |ALLOW_RING}
+,{D(jjBim2Im),     INTMAT_CMD,      INTMAT_CMD,     BIGINTMAT_CMD , ALLOW_NC |ALLOW_RING}
 ,{D(jjINTERRED),   INTERRED_CMD,    IDEAL_CMD,      IDEAL_CMD     , ALLOW_PLURAL |NO_RING}
 ,{D(jjINTERRED),   INTERRED_CMD,    MODUL_CMD,      MODUL_CMD     , ALLOW_PLURAL |NO_RING}