Changeset 7f7573 in git

Timestamp:

Feb 20, 2008, 2:58:34 PM (15 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '8d54773d6c9e2f1d2593a28bc68b7eeab54ed529')

Children:

4c83d3052100e4000f1c6e56ada84b6c9a0d55d4

Parents:

61906921487c281e88d37f22b5177751f3f150a9

Message:

*hannes: nlBigInt


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

Location:

kernel

Files:

• longrat.cc (modified) (2 diffs)
• longrat.h (modified) (2 diffs)

kernel/longrat.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: longrat.cc,v 1.27 2008-01-07 13:38:55 Singular Exp $ */
+/* $Id: longrat.cc,v 1.28 2008-02-20 13:58:34 Singular Exp $ */
 /*
 * ABSTRACT: computation with long rational numbers (Hubert Grassmann)
@@ -451 +451 @@
 }
 
+/*2
+* convert number to bigint
+*/
+number nlBigInt(number &i)
+{
+#ifdef LDEBUG
+  nlTest(i);
+#endif
+  nlNormalize(i);
+  if (SR_HDL(i) &SR_INT) return (i);
+  if (i->s==3)
+  {
+    return nlCopy(i);
+  }
+  number tmp=nlRInit(1);
+  MPZ_DIV(&tmp->z,&i->z,&i->n);
+  nlNormalize(tmp);
+  return tmp;
+}
+
 /*
 * 1/a

kernel/longrat.h

@@ -4 +4 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: longrat.h,v 1.7 2007-08-03 11:32:05 Singular Exp $ */
+/* $Id: longrat.h,v 1.8 2008-02-20 13:58:34 Singular Exp $ */
 /*
 * ABSTRACT: computation with long rational numbers
@@ -67 +67 @@
 BOOLEAN  nlIsMOne(number a);
 int      nlInt(number &n);
+number   nlBigInt(number &n);
 BOOLEAN  nlGreaterZero(number za);
 number   nlInvers(number a);