Changeset 6e56de in git for Singular/polys.cc

Timestamp:

Aug 24, 2000, 1:21:47 PM (24 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

51e993f9b344a8396d1aacab475782ed749fc581

Parents:

660ad3261b8221e209ee2df3ffc488c824260573

Message:

*hannes: removed exp.e


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

File:

• Singular/polys.cc (modified) (5 diffs)

Singular/polys.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: polys.cc,v 1.55 2000-08-14 12:56:45 obachman Exp $ */
+/* $Id: polys.cc,v 1.56 2000-08-24 11:21:45 Singular Exp $ */
 
 /*
@@ -93 +93 @@
           a=o->data.dp.start;
           e=o->data.dp.end;
-          long ord=0;
+          long ord=0; //0x40000000;
           for(int i=a;i<=e;i++) ord+=pGetExp(p,i);
           p->exp.l[o->data.dp.place]=ord;
@@ -104 +104 @@
           e=o->data.wp.end;
           int *w=o->data.wp.weights;
-          long ord=0;
+          long ord=0; //0x40000000;
           for(int i=a;i<=e;i++) ord+=pGetExp(p,i)*w[i-a];
           p->exp.l[o->data.wp.place]=ord;
@@ -115 +115 @@
           e=o->data.cp.end;
           int pl=o->data.cp.place;
+          #ifdef HAVE_SHIFTED_EXPONENTS
+          for(int i=a;i<=e;i++) { p->exp.l[pl]=pGetExp(p,i); pl++; }
+          #else
           for(int i=a;i<=e;i++) { p->exp.e[pl]=pGetExp(p,i); pl++; }
+          #endif
           break;
         }
@@ -195 +199 @@
           e=o->data.cp.end;
           int pl=o->data.cp.place;
+          #ifdef HAVE_SHIFTED_EXPONENTS
+          for(int i=a;i<=e;i++) { p->exp.l[pl]=pGetExp(p,i); pl++; }
+          #else
           for(int i=a;i<=e;i++) { p->exp.e[pl]=pGetExp(p,i); pl++; }
+          #endif
           break;
         }