Changeset f7aa395 in git

Timestamp:

Nov 4, 2011, 3:07:21 PM (12 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

dcc8e4531456e365c43185a5cc52515ee891db05

Parents:

bc4dd17ae0bd4c02957f75f188075907873f7935

Message:

fix for tr. 382

File:

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

kernel/modulop.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id$ */
+/* $Id: modulop.cc 14402 2011-09-29 17:16:19Z hannes $ */
 /*
 * ABSTRACT: numbers modulo p (<=32003)
@@ -65 +65 @@
 {
   long ii=i;
-  while (ii <  0L)                         ii += (long)r->ch;
-  while ((ii>1L) && (ii >= ((long)r->ch))) ii -= (long)r->ch;
+  long p=(long)ABS(r->ch);
+  while (ii <  0L)             ii += p;
+  while ((ii>1L) && (ii >= p)) ii -= p;
   return (number)ii;
 }