Changeset 509f1cd in git

Timestamp:

Feb 2, 2000, 7:03:21 PM (24 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

b569016b27d14033881d2f4e0df254011c834f0f

Parents:

eb508c56858974e93821395bcb17cc4d7c11bcf7

Message:

*hannes: smIsScalar -> pIsConstantComp


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

File:

• Singular/sparsmat.cc (modified) (6 diffs)

Singular/sparsmat.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: sparsmat.cc,v 1.22 1999-12-20 08:46:14 pohl Exp $ */
+/* $Id: sparsmat.cc,v 1.23 2000-02-02 18:03:21 Singular Exp $ */
 
 /*
@@ -47 +47 @@
 /* declare internal 'C' stuff */
 static void smExactPolyDiv(poly, poly);
-static BOOLEAN smIsScalar(const poly);
 static BOOLEAN smIsNegQuot(poly, const poly, const poly);
 static poly smEMult(poly, const poly);
@@ -1754 +1753 @@
   if (pNext(b) == NULL)
   {
-    if (smIsScalar(b))
+    if (pIsConstantComp(b))
       return pMultCopyN(a, pGetCoeff(b));
     else
@@ -1785 +1784 @@
     do
     {
-      if (!smIsScalar(b))
+      if (!pIsConstantComp(b))
       {
         for (i=pVariables; i; i--)
@@ -1841 +1840 @@
     b = r;
   }
-  if ((c == NULL) || smIsScalar(c))
+  if ((c == NULL) || pIsConstantComp(c))
   {
     if (pNext(b) == NULL)
     {
-      if (smIsScalar(b))
+      if (pIsConstantComp(b))
         return pMultCopyN(a, pGetCoeff(b));
       else
@@ -1960 +1959 @@
 }
 
-static BOOLEAN smIsScalar(const poly Term)
-{
-  int i;
-
-  for (i=pVariables; i; i--)
-  {
-    if (pGetExp(Term,i)) return FALSE;
-  }
-  return TRUE;
-}
-
 static BOOLEAN smIsNegQuot(poly a, const poly b, const poly c)
 {