Changeset 528f5b7 in git for kernel/longtrans.cc

Timestamp:

Mar 9, 2011, 4:40:54 PM (13 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

ca0d0431a9821ddf3d201e69e1baeaff1bb7a0e4

Parents:

ea57e3f6d984b6d884a87f764e8f8077c1704db9

Message:

fix tr. 317

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

File:

• kernel/longtrans.cc (modified) (4 diffs)

kernel/longtrans.cc

@@ -41 +41 @@
 number      (*nacInit)(int i, const ring r);
 int         (*nacInt)(number &n, const ring r);
-void        (*nacDelete)(number *a, const ring r);
 void        (*nacNormalize)(number &a);
 number      (*nacNeg)(number a);
@@ -114 +113 @@
   nacIntDiv      = nacRing->cf->nIntDiv;
   nacInvers      = nacRing->cf->nInvers;
-  nacDelete      = nacRing->cf->cfDelete;
 }
 
@@ -941 +939 @@
     nMap=currRing->cf->cfSetMap(oldRing->algring, currRing);
   if (nMap==NULL) return NULL; /* emergency exit only */
-  do
+  while(za!=NULL)
   {
     p = pInit();
@@ -1015 +1013 @@
     pIter(za);
   }
-  while (za!=NULL);
   pTest(res);
   return res;