Changeset 4e3468 in git for Singular/ipshell.cc

Timestamp:

Jan 16, 2001, 2:26:57 PM (23 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

b9b9069272a257e1724ad47e9b76d246a6e960fc

Parents:

49bec69100d73ab84e1edda6408fd13e13cd5ab0

Message:

*hannes: highcorner


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

File:

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

Singular/ipshell.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ipshell.cc,v 1.59 2000-12-15 18:49:31 Singular Exp $ */
+/* $Id: ipshell.cc,v 1.60 2001-01-16 13:26:57 Singular Exp $ */
 /*
 * ABSTRACT:
@@ -1133 +1133 @@
     if(UsedAxis[i]==FALSE) return NULL; // not zero-dim.
   }
+  po=NULL;
   if (currRing->OrdSgn== -1)
   {
-    po=NULL;
     scComputeHC(I,ak,po);
     if (po!=NULL)
@@ -1144 +1144 @@
         if (pGetExp(po, i) > 0) pDecrExp(po,i);
       }
-    }
-  }
-  if (po!=NULL)
-  {
-    pSetComp(po,ak);
-    pSetm(po);
-  }
+      pSetComp(po,ak);
+      pSetm(po);
+    }
+  }
+  else
+    po=pOne();
   return po;
 }