Changeset f7ac05 in git for Singular/kutil.cc

Timestamp:

Jul 23, 1998, 11:07:04 AM (26 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')

Children:

51d0ed6388f48127f8364ae76fdf627c4b8b355f

Parents:

1735b4e423c6efaf7ab69865d8dfb26783f5981f

Message:

 * hannes: fixes for enterid(_,PROC_CMD,TRUE)
            cancelunit also for modules
            (grammar.y kutil.cc polys.h polys1.cc ring.cc ring.h)


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

File:

• Singular/kutil.cc (modified) (4 diffs)

Singular/kutil.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: kutil.cc,v 1.23 1998-06-12 10:13:34 Singular Exp $ */
+/* $Id: kutil.cc,v 1.24 1998-07-23 09:07:00 Singular Exp $ */
 /*
 * ABSTRACT: kernel: utils for kStd
@@ -132 +132 @@
   poly h;
 
-  if(!pIsVector((*p).p) && ((*p).ecart != 0))
-  {
+  if(pIsVector((*p).p))
+  {
+    if(!pOneComp((*p).p)) return;
+  }
+  if ((*p).ecart != 0)
+  {
+    for(i=1;i<=pVariables;i++)
+    {
+      if ((pGetExp((*p).p,1)>0) && (rIsPolyVar(i)==TRUE)) return;
+    }
     h = pNext(((*p).p));
     loop
     {
-      if (!h)
+      if (h==NULL)
       {
         pDelete(&(pNext((*p).p)));
@@ -3151 +3159 @@
           strat->S[i] = redBba(strat->S[i],i-1,strat);
           if ((strat->ak!=0)&&(strat->S[i]!=NULL))
-            strat->S[i]=redQ(strat->S[i],i+1,strat); /*reduce S[i] mod Q*/
+            strat->S[i]=redQ(strat->S[i],i+1,strat); /*reduce S[i] mod Q*/
           if (TEST_OPT_PROT && (pComp(redSi,strat->S[i])!=0))
           {
@@ -3812 +3820 @@
       {
         //if (strat->redTailChange)
-          pCleardenom(strat->S[i]);
+          pCleardenom(strat->S[i]);
       }
       if (TEST_OPT_PROT)