Changeset a51351c in git for kernel/kstd1.cc

Timestamp:

May 25, 2009, 11:42:21 AM (15 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

28d306c5bcb585cd54fbc8cb49df55a6237ba2f2

Parents:

c5d07723189cb948490970b80d41ca3a86518caa

Message:

*hannes: wrong kModW access


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

File:

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

kernel/kstd1.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: kstd1.cc,v 1.50 2009-04-23 16:24:08 Singular Exp $ */
+/* $Id: kstd1.cc,v 1.51 2009-05-25 09:42:21 Singular Exp $ */
 /*
 * ABSTRACT:
@@ -1640 +1640 @@
   long i=p_GetComp(p, r);
   if (i==0) return o;
-  assume((i>0) && (i<=kModW->length()));
-  return o+(*kModW)[i-1];
+  //assume((i>0) && (i<=kModW->length()));
+  if (i<=kModW->length())
+    return o+(*kModW)[i-1];
+  return o;  
 }
 long kHomModDeg(poly p, ring r)