Changeset 8a150b in git for Singular/polys1.cc

Timestamp:

Apr 29, 1999, 1:38:59 PM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'c5facdfddea2addfd91babd8b9019161dea4b695')

Children:

ce5fb2786eb5fa61fee54f85fe8647ef13e7be20

Parents:

4be737ee7176ba0340ece58c1e6920d666833ac2

Message:

* hannes: added long reals


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

File:

• Singular/polys1.cc (modified) (2 diffs)

Singular/polys1.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: polys1.cc,v 1.20 1999-04-14 18:32:00 Singular Exp $ */
+/* $Id: polys1.cc,v 1.21 1999-04-29 11:38:55 Singular Exp $ */
 
 /*
@@ -493 +493 @@
           if (rc == NULL)
             return pMonPower(p,i);
-          /* else: binom */
+          /* else: binom */
           int char_p=rChar(currRing);
           if (pNext(rc) != NULL)
             return pPow(p,i);
-          if ((char_p==0) || (i<=char_p))
-            return pTwoMonPower(p,i);
-          poly p_p=pTwoMonPower(pCopy(p),char_p);
-          return pMult(pPower(p,i-char_p),p_p);
+          if ((char_p==0) || (i<=char_p))
+            return pTwoMonPower(p,i);
+          poly p_p=pTwoMonPower(pCopy(p),char_p);
+          return pMult(pPower(p,i-char_p),p_p);
         }
       /*end default:*/