Changeset 652cd1 in git for Singular/iparith.cc

Timestamp:

May 19, 1998, 7:58:56 PM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

908d5a0aeb292dbcdc5ec47e422cb2121de69df5

Parents:

c6534cb0ad2d8107878ae2b928c0f0fb9f1253f0

Message:

* hannes: minor optimizations in iparith.cc


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

File:

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

Singular/iparith.cc

@@ -2288 +2288 @@
   if (currRing->parameter==NULL)
   {
-    for(i=1;i<=m->rows();i++)
-    {
-      for(j=1;j<=m->cols();j++)
+    for(i=m->rows();i>0;i--)
+    {
+      for(j=m->cols();j>0;j--)
       {
         if((MATELEM(m,i,j)!=NULL)
@@ -2299 +2299 @@
       }
     }
-
     res->data = (char *)singclap_det(m);
     return FALSE;
@@ -2467 +2466 @@
   ideal i=idInit(pVariables,1);
   int k;
-  for (k=0;k<pVariables;k++)
-  {
-    i->m[k]=pDiff(pCopy((poly)(v->Data())),k+1);
+  for (k=pVariables;k>0;k--)
+  {
+    i->m[k-1]=pDiff(pCopy((poly)(v->Data())),k);
   }
   res->data = (char *)i;
@@ -3759 +3758 @@
   ideal I=(ideal)u->CopyD(IDEAL_CMD);
   int i=min(IDELEMS(I),(int)v->Data()*(int)w->Data());
-  for(i=i-1;i>=0;i--)
-  {
-    m->m[i]=I->m[i];
-    I->m[i]=NULL;
-  }
+  //for(i=i-1;i>=0;i--)
+  //{
+  //  m->m[i]=I->m[i];
+  //  I->m[i]=NULL;
+  //}
+  memcpy4(m->m,I->m,i*sizeof(poly));
+  memset(I->m,0,i*sizeof(poly));
   idDelete(&I);
   res->data = (char *)m;