Changeset 528f5b7 in git

Timestamp:

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

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')

Children:

ca0d0431a9821ddf3d201e69e1baeaff1bb7a0e4

Parents:

ea57e3f6d984b6d884a87f764e8f8077c1704db9

Message:

fix tr. 317

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

Location:

kernel

Files:

• longalg.cc (modified) (1 diff)
• longtrans.cc (modified) (4 diffs)
• longtrans.h (modified) (1 diff)

kernel/longalg.cc

@@ -183 +183 @@
   nacIntDiv      = nacRing->cf->nIntDiv;
   nacInvers      = nacRing->cf->nInvers;
-  nacDelete      = nacRing->cf->cfDelete;
 }
 

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;

kernel/longtrans.h

@@ -111 +111 @@
 extern number      (*nacInit)(int i, const ring r);
 extern int         (*nacInt)(number &n, const ring r);
-extern void        (*nacDelete)(number *a, const ring r);
 extern void        (*nacNormalize)(number &a);
 extern number      (*nacNeg)(number a);