Changeset 47bc1c in git for Singular/kstd1.cc

Timestamp:

Oct 23, 2000, 2:02:23 PM (24 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'd08f5f0bb3329b8ca19f23b74cb1473686415c3a')

Children:

e6ad3ebfbb2c2611080bdaeb70701b50c2ef9444

Parents:

cebf9e609bfa59b57202a95a5f952cdf6c85e7fa

Message:

* almost get rid off p_SetGlobals
* pFDeg, pLDeg ring dependent


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

File:

• Singular/kstd1.cc (modified) (2 diffs)

Singular/kstd1.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: kstd1.cc,v 1.56 2000-10-19 15:00:14 obachman Exp $ */
+/* $Id: kstd1.cc,v 1.57 2000-10-23 12:02:13 obachman Exp $ */
 /*
 * ABSTRACT:
@@ -1666 +1666 @@
 intvec * kModW, * kHomW;
 
-int kModDeg(poly p)
-{
-  int o=pWDegree(p);
-  int i=pGetComp(p);
+int kModDeg(poly p, ring r)
+{
+  int o=pWDegree(p, r);
+  int i=p_GetComp(p, r);
   if (i==0) return o;
   return o+(*kModW)[i-1];
 }
-int kHomModDeg(poly p)
+int kHomModDeg(poly p, ring r)
 {
   int i;
   int j=0;
 
-  for (i=pVariables;i>0;i--)
-    j+=pGetExp(p,i)*(*kHomW)[i-1];
+  for (i=r->N;i>0;i--)
+    j+=p_GetExp(p,i,r)*(*kHomW)[i-1];
   if (kModW == NULL) return j;
-  i = pGetComp(p);
+  i = p_GetComp(p,r);
   if (i==0) return j;
   return j+(*kModW)[i-1];