Changeset 980f81 in git for Singular/longrat.cc

Timestamp:

Aug 24, 2001, 4:10:09 PM (23 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

7a7499d2766dbca4b77d47c2cc7f4f8b23e4b382

Parents:

47c8f1203dc6663433e108e9e01f128d3ca726e3

Message:

*hannes: back numbers.cc longrat.cc longrat.h


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

File:

• Singular/longrat.cc (modified) (5 diffs)

Singular/longrat.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: longrat.cc,v 1.39 2001-08-24 13:41:35 Singular Exp $ */
+/* $Id: longrat.cc,v 1.40 2001-08-24 14:09:06 Singular Exp $ */
 /*
 * ABSTRACT: computation with long rational numbers (Hubert Grassmann)
@@ -109 +109 @@
 
 omBin rnumber_bin = omGetSpecBin(sizeof(rnumber));
-
-number nlOne=nlInit(1);
 
 static int nlPrimeM;
@@ -510 +508 @@
 }
 
-
-
 /*
 * 1/a
@@ -2201 +2197 @@
 }
 
-/*2
-* z := i/j
-*/
-number nlInit2 (int i, int j)
-{
-  number z=(number)omAllocBin(rnumber_bin);
-#if defined(LDEBUG)
-  z->debug=123456;
-#endif
-  mpz_init_set_si(&z->z,(long)i);
-  mpz_init_set_si(&z->n,(long)j);
-  z->s = 0;
-  nlNormalize(z);
-  return z;
-}
-
 #else // DO_LINLINE
 
@@ -2299 +2279 @@
 }
 
+LINLINE number nl_Copy(number a, ring r)
+{
+  if ((SR_HDL(a) & SR_INT)||(a==NULL))
+  {
+    return a;
+  }
+  return _nlCopy_NoImm(a);
+}
+
 
 LINLINE void nlNew (number * r)