Changeset e025229 in git for kernel/longrat.cc

Timestamp:

Dec 20, 2005, 1:18:34 PM (18 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

f4e34d99cc05867675b175bef438814a9e03d3e4

Parents:

98bda98ac1feb6bced6fd4a2bd2da716af4a6e4f

Message:

*hannes: gcd for short numbers


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

File:

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

kernel/longrat.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: longrat.cc,v 1.10 2005-12-20 10:13:49 Singular Exp $ */
+/* $Id: longrat.cc,v 1.11 2005-12-20 12:18:34 Singular Exp $ */
 /*
 * ABSTRACT: computation with long rational numbers (Hubert Grassmann)
@@ -1106 +1106 @@
   if (SR_HDL(a) & SR_INT)
   {
-    mpz_gcd_ui(&result->z,&b->z,ABS(SR_TO_INT(a)));
+    unsigned long t=mpz_gcd_ui(NULL,&b->z,ABS(SR_TO_INT(a)));
+    return INT_TO_SR((int)t);
   }
   else
   if (SR_HDL(b) & SR_INT)
   {
-    mpz_gcd_ui(&result->z,&a->z,ABS(SR_TO_INT(b)));
+    unsigned long t=mpz_gcd_ui(NULL,&a->z,ABS(SR_TO_INT(b)));
+    return INT_TO_SR((int)t);
   }
   else