Changeset 3cc3f6 in git

Timestamp:

Jan 13, 2000, 3:40:24 PM (23 years ago)

Author:

Thomas Siebert <siebert@…>

Branches:

(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')

Children:

ec595fe8a788c2eea6d6510932843091778e510a

Parents:

79f80f93fb1494aff19e2edf427e6a283e99fc45

Message:

Change of Procedure-calls in idLift


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

Location:

Singular

Files:

• ideals.cc (modified) (5 diffs)
• ideals.h (modified) (2 diffs)

Singular/ideals.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ideals.cc,v 1.82 2000-01-13 14:18:58 siebert Exp $ */
+/* $Id: ideals.cc,v 1.83 2000-01-13 14:40:24 siebert Exp $ */
 /*
 * ABSTRACT - all basic methods to manipulate ideals
@@ -1609 +1609 @@
 * of mod
 */
-ideal   idLiftNonStB (ideal  mod, ideal submod,ideal * rest,
-             BOOLEAN goodShape,BOOLEAN divide)
+ideal   idLiftNonStB (ideal  mod, ideal submod,ideal * rest, BOOLEAN goodShape,
+                    BOOLEAN divide,BOOLEAN lift1)
 {
   return idLift(mod, submod, rest, goodShape, FALSE);
@@ -1616 +1616 @@
 
 
-ideal   idLift (ideal mod, ideal submod,ideal * rest,
-             BOOLEAN goodShape, BOOLEAN isSB,BOOLEAN divide)
+ideal   idLift (ideal mod, ideal submod,ideal * rest, BOOLEAN goodShape, 
+               BOOLEAN isSB,BOOLEAN divide,BOOLEAN lift1)
 {
   int   lsmod =idRankFreeModule(submod), i, j, k;
-  int ordSgn=currRing->OrdSgn;
   int comps_to_add=0;
   poly p;
@@ -1636 +1635 @@
 #endif
 #ifdef NEW_LIFT
-  if (ordSgn==-1)
+  if (lift1)
   {
     comps_to_add = IDELEMS(submod);
@@ -1690 +1689 @@
   }
 #ifdef NEW_LIFT
-  if (ordSgn==-1)
+  if (lift1)
   {
     for(j = 0;j<comps_to_add;j++)

Singular/ideals.h

@@ -4 +4 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ideals.h,v 1.18 2000-01-13 14:18:57 siebert Exp $ */
+/* $Id: ideals.h,v 1.19 2000-01-13 14:40:23 siebert Exp $ */
 /*
 * ABSTRACT - all basic methods to manipulate ideals
@@ -89 +89 @@
 
 ideal   idLift (ideal mod, ideal sumod,ideal * rest=NULL,
-             BOOLEAN goodShape=FALSE, BOOLEAN isSB=TRUE,BOOLEAN divide=FALSE);
+             BOOLEAN goodShape=FALSE, BOOLEAN isSB=TRUE,BOOLEAN divide=FALSE,
+             BOOLEAN lift1=FALSE);
 ideal   idLiftNonStB (ideal  mod, ideal submod,ideal * rest=NULL,
-             BOOLEAN goodShape=FALSE,BOOLEAN divide=FALSE);
+             BOOLEAN goodShape=FALSE,BOOLEAN divide=FALSE,
+             BOOLEAN lift1=FALSE);
 
 intvec * idMWLift(ideal mod,intvec * weights);