Changeset b8027c in git for kernel/pInline2.h

Timestamp:

Dec 9, 2006, 12:55:35 PM (17 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

ab1d1cbf2127c32e349512cc14dbd970bcbf91e9

Parents:

bc49e512eda58a96a83ddfd550e0906f182ae01f

Message:

*hannes; ore extensions


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

File:

• kernel/pInline2.h (modified) (2 diffs)

kernel/pInline2.h

@@ -7 +7 @@
  *  Author:  obachman (Olaf Bachmann)
  *  Created: 8/00
- *  Version: $Id: pInline2.h,v 1.6 2006-11-23 15:04:54 Singular Exp $
+ *  Version: $Id: pInline2.h,v 1.7 2006-12-09 11:55:35 Singular Exp $
  *******************************************************************/
 #ifndef PINLINE2_H
@@ -147 +147 @@
 #endif
 }
+// partial compare exponent
+// r->VarOffset encodes the position in p->exp (lower 24 bits)
+// and number of bits to shift to the right in the upper 8 bits
+PINLINE2 int p_Comp_k_n(poly a, poly b, int k, ring r)
+{
+  p_LmCheckPolyRing2(a, r);
+  p_LmCheckPolyRing2(b, r);
+  pAssume2(k > 0 && k <= r->N);
+  int i=k;
+  for(;i<=r->N;i++)
+  {
+    if(a->exp[(r->VarOffset[i] & 0xffffff)]
+    != b->exp[(r->VarOffset[i] & 0xffffff)])
+      return FALSE;
+  }
+  return TRUE;
+}
 PINLINE2 int p_SetExp(poly p, int v, int e, ring r)
 {