Changeset cc3cf2 in git

Timestamp:

Oct 13, 2008, 2:44:06 PM (16 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

e95ba11e6064c80d088f11d622678c2c669c7856

Parents:

6bcda60d37202943b162e70fec9fbc4153785b89

Message:

*hannes: intvec/intmat


git-svn-id: file:///usr/local/Singular/svn/trunk@11128 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

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

Singular/ipassign.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ipassign.cc,v 1.99 2008-10-10 15:49:08 Singular Exp $ */
+/* $Id: ipassign.cc,v 1.100 2008-10-13 12:44:06 Singular Exp $ */
 
 /*
@@ -425 +425 @@
 static BOOLEAN jiA_INTVEC(leftv res, leftv a, Subexpr e)
 {
-  if ((res->data==NULL) || (res->Typ()==a->Typ()))
+  //if ((res->data==NULL) || (res->Typ()==a->Typ()))
   {
     if (res->data!=NULL) delete ((intvec *)res->data);
@@ -432 +432 @@
     return FALSE;
   }
+#if 0
   else
   {
     intvec *r=(intvec *)(res->data);
-    intvec *s=(intvec *)(a->data);
+    intvec *s=(intvec *)(a->Data());
     int i=si_min(r->length(), s->length())-1;
     for(;i>=0;i--)
@@ -441 +442 @@
       (*r)[i]=(*s)[i];
     }
-    return (r->length()< s->length());
-  }
+    return FALSE; //(r->length()< s->length());
+  }
+#endif
 }
 static BOOLEAN jiA_IDEAL(leftv res, leftv a, Subexpr e)
@@ -658 +660 @@
 ,{jiA_INTVEC,   INTVEC_CMD,     INTVEC_CMD }
 ,{jiA_INTVEC,   INTMAT_CMD,     INTMAT_CMD }
-,{jiA_INTVEC,   INTMAT_CMD,     INTVEC_CMD }
+//,{jiA_INTVEC,   INTMAT_CMD,     INTVEC_CMD }
 ,{jiA_NUMBER,   NUMBER_CMD,     NUMBER_CMD }
 ,{jiA_BIGINT,   BIGINT_CMD,     BIGINT_CMD }