Changeset 48a41a in git for Singular

Timestamp:

Feb 17, 2012, 11:35:47 AM (12 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

26acab557e4ad73e2c8ba02fa1ad998773365fff66e25f2bbb3969a1769c9710fee12d7ca6262dd7

Parents:

46eef0a30be9c81870e8f7f971a5e0748c9e8fcd

Message:

chg: introduce n_ParDeg for pardeg(number)

File:

• Singular/iparith.cc (modified) (1 diff)

Singular/iparith.cc

@@ -4445 +4445 @@
 static BOOLEAN jjPARDEG(leftv res, leftv v)
 {
-  res->data = (char *)0L;
   number nn=(number)v->Data();
-  if (nn!=NULL) 
-  {
-    if (getCoeffType(currRing->cf)==n_algExt)
-    {
-      poly qq=(poly)nn;
-      res->data = (char *)(long)currRing->cf->extRing->pFDeg(qq,
-        currRing->cf->extRing);
-    }
-    if(getCoeffType(currRing->cf)==n_transExt)
-    {
-      /* from transext.h:*/
-      struct fractionObject
-      {
-        poly numerator;
-        poly denominator;
-        int complexity;
-      };
-      typedef struct fractionObject * fraction;
-      #define NUM(f) (((fraction)f)->numerator)
-
-      fraction qq=(fraction)nn;
-      res->data = (char *)(long)currRing->cf->extRing->pFDeg(NUM(qq),
-        currRing->cf->extRing);
-    }
-  }
+  res->data = (char *)(long)n_ParDeg(nn,currRing->cf);
   return FALSE;
 }