Changeset cf80ce in git for Singular/fglmcomb.cc

Timestamp:

Mar 27, 1998, 3:21:29 PM (26 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

0498af627b4dbd25f3b68c7b681256ffe9cfdda5

Parents:

427ba93431587575a0ada806631e26f2aa275abc

Message:

* wichmann: - use pCopy2() /pSetCoeff() instead of pSetExpV() in
              fglmNewLinearComb()


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

File:

• Singular/fglmcomb.cc (modified) (3 diffs)

Singular/fglmcomb.cc

@@ -1 +1 @@
 // emacs edit mode for this file is -*- C++ -*-
-// $Id: fglmcomb.cc,v 1.7 1998-01-27 14:16:14 pohl Exp $
+// $Id: fglmcomb.cc,v 1.8 1998-03-27 14:21:29 Singular Exp $
 
 /****************************************
@@ -193 +193 @@
     poly temp= monset;
     for ( k= 0; k < numMonoms; k++ ) {
-        m[k]= pOne();
-        pSetExpV( m[k], temp->exp );
-        pSetm( m[k] );
+//         m[k]= pOne();
+//         pSetExpV( m[k], temp->exp );
+//         pSetm( m[k] );
+        m[k]= pNew();
+        pCopy2( m[k], temp );
+        pSetCoeff( m[k], nInit(1) );
         temp= pIter( temp );
     }
@@ -250 +253 @@
                     basisMax+= basisBS;
                 }
-                basis[basisSize]= pOne();
-                pSetExpV( basis[basisSize], temp->exp );
-                pSetm( basis[basisSize] );
+//                 basis[basisSize]= pOne();
+//                 pSetExpV( basis[basisSize], temp->exp );
+//                 pSetm( basis[basisSize] );
+                basis[basisSize]= pNew();
+                pCopy2( basis[basisSize], temp );
+                pSetCoeff( basis[basisSize], nInit(1) );
                 basisSize++;
             }