Changeset 1c33e0d in git

Timestamp:

Jul 26, 2008, 6:05:41 PM (16 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

5bc4103ee51a6a028666ee3c666059e950974fb1

Parents:

b9022462e46849623dbd8805f96973d5369e7fb2

Message:

*hannes: p_One


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

Location:

kernel

Files:

• p_polys.cc (modified) (2 diffs)
• polys.h (modified) (2 diffs)

kernel/p_polys.cc

@@ -7 +7 @@
  *  Author:  obachman (Olaf Bachmann)
  *  Created: 8/00
- *  Version: $Id: p_polys.cc,v 1.13 2008-07-25 14:37:55 Singular Exp $
+ *  Version: $Id: p_polys.cc,v 1.14 2008-07-26 16:05:41 Singular Exp $
  *******************************************************************/
 
@@ -966 +966 @@
 
 /*2
+* an optimized version of p_ISet for the special case 1
+*/
+poly p_One(const ring r);
+{
+  poly rc = p_Init(r);
+  pSetCoeff0(rc,r->cf->nInit(1));
+  return rc;
+}
+
+/*2
 * returns a polynomial representing the number n
 * destroys n

kernel/polys.h

@@ -4 +4 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: polys.h,v 1.19 2008-07-26 10:04:55 Singular Exp $ */
+/* $Id: polys.h,v 1.20 2008-07-26 16:05:41 Singular Exp $ */
 /*
 * ABSTRACT - all basic methods to manipulate polynomials of the
@@ -358 +358 @@
 #define   pISet(i) p_ISet(i,currRing)
 #define   pNSet(n) p_NSet(n,currRing)
-//#define   pOne()   pISet(1)
-inline poly p_One(const ring r)
-{
-  poly rc = p_Init(r);
-  pSetCoeff0(rc,r->cf->nInit(1));
-  return rc;
-}
+
+poly p_One(const ring r);
 #define   pOne()   p_One(currRing)