Changeset 35ee46c in git for Singular/iparith.cc

Timestamp:

Jan 18, 2007, 11:31:37 AM (17 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

b533b3485b6a73ce0d27992c22e0a15f371e296c

Parents:

60dfdc97489d07341b6d2a1dc70c68564a3a77fc

Message:

*hannes: 64bit: jjLONG2N


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

File:

• Singular/iparith.cc (modified) (2 diffs)

Singular/iparith.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iparith.cc,v 1.436 2007-01-16 18:20:04 Singular Exp $ */
+/* $Id: iparith.cc,v 1.437 2007-01-18 10:31:37 Singular Exp $ */
 
 /*
@@ -3827 +3827 @@
 }
 #if SIZEOF_LONG == 8
-static number jjLONG2N(long d);
+static number jjLONG2N(long d)
+{
+  int i=(int)d;
+  if ((long)i == d)
+  {
+    return nlInit(i);
+  }
+  else
+  {
+    number z=(number)omAllocBin(rnumber_bin);
+    #if defined(LDEBUG)
+    z->debug=123456;
+    #endif
+    mpz_init_set_si(&z->z,d);
+    return z;
+  }
+}
 #else
 #define jjLONG2N(D) nlInit((int)D)