Changeset af378f7 in git for kernel/rintegers.cc

Timestamp:

Jan 30, 2008, 7:49:43 PM (16 years ago)

Author:

Oliver Wienand <wienand@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

2f959e83f22c8e788ce3941f4ac3eb2fb1df74c1

Parents:

12ea9df042d8c883f3d3c722b2388c0424347a88

Message:

anpassungen an gmp


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

File:

• kernel/rintegers.cc (modified) (3 diffs)

kernel/rintegers.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: rintegers.cc,v 1.5 2008-01-30 13:03:41 wienand Exp $ */
+/* $Id: rintegers.cc,v 1.6 2008-01-30 18:49:43 wienand Exp $ */
 /*
 * ABSTRACT: numbers modulo n
@@ -274 +274 @@
 {
   char * start=s;
-
+  if (!(*s >= '0' && *s <= '9'))
+  {
+    mpz_init_set_si(i, 1);
+    return s;
+  }
+  mpz_init(i);
   while (*s >= '0' && *s <= '9') s++;
   if (*s=='\0')
@@ -290 +295 @@
 }
 
+
 char * nrzRead (char *s, number *a)
 {