Changeset 49c9a13 in git for Singular

Timestamp:

May 18, 2015, 2:33:39 PM (9 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')

Children:

6f774620e0ad405fababe6ff19529008700b1e74

Parents:

f642e4cab3c5a238b2e46464eda16c6edffafe45

Message:

assign ideal/module=exprlist: rank

File:

• Singular/ipassign.cc (modified) (4 diffs)

Singular/ipassign.cc

@@ -714 +714 @@
 }
 static BOOLEAN jiA_MODUL_P(leftv res, leftv a, Subexpr)
+/* module = poly */
 {
   if (res->data!=NULL) idDelete((ideal*)&res->data);
@@ -1880 +1881 @@
       sleftv t;
       matrix olm = (matrix)l->Data();
-      int rk=olm->rank;
+      int rk;
       char *pr=((map)olm)->preimage;
       BOOLEAN module_assign=(/*l->Typ()*/ lt==MODUL_CMD);
@@ -1892 +1893 @@
       if (lt /*l->Typ()*/==MATRIX_CMD)
       {
-        num=olm->cols()*olm->rows();
+        rk=olm->rows();
+        num=olm->cols()*rk /*olm->rows()*/;
         lm=mpNew(olm->rows(),olm->cols());
         int el;
@@ -1904 +1906 @@
         num=exprlist_length(hh);
         lm=(matrix)idInit(num,1);
-        rk=1;
         if (module_assign)
         {
+          rk=0;
           mtyp=MODUL_CMD;
           etyp=VECTOR_CMD;
         }
+        else
+          rk=1;
       }