Changeset 77bb59 in git for Singular/ipshell.cc

Timestamp:

Aug 12, 2011, 7:28:54 PM (13 years ago)

Author:

Oleksandr Motsak <motsak@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

d1433769dfd20e9bf7a4179195d41d4095c91fc7

Parents:

d914cf06d3d3be1689cf60fc38f82a7c3dbdf2c6

git-author:

Oleksandr Motsak <motsak@mathematik.uni-kl.de>2011-08-12 19:28:54+02:00

git-committer:

Mohamed Barakat <mohamed.barakat@rwth-aachen.de>2011-11-09 13:24:03+01:00

Message:

CHG: minor changes

File:

• Singular/ipshell.cc (modified) (7 diffs)

Singular/ipshell.cc

@@ -6 +6 @@
 * ABSTRACT:
 */
-
-#include <math.h>
+#include <kernel/mod2.h>
+#include <misc/auxiliary.h>
+
 
 #include <misc/options.h>
-#include <misc/auxiliary.h>
+#include <misc/mylimits.h>
+
 #ifdef HAVE_FACTORY
 #define SI_DONT_HAVE_GLOBAL_VARS
@@ -17 +19 @@
 
 #include <Singular/maps_ip.h>
-#include <kernel/mod2.h>
 #include <Singular/tok.h>
 #include <misc/options.h>
@@ -46 +47 @@
 #include <kernel/splist.h>
 #include <kernel/spectrum.h>
-#include <coeffs/gnumpfl.h>
+////// #include <coeffs/gnumpfl.h>
 //#include <kernel/mpr_base.h>
-#include <coeffs/ffields.h>
+////// #include <coeffs/ffields.h>
 #include <polys/clapsing.h>
 #include <kernel/hutil.h>
@@ -55 +56 @@
 #include <polys/ext_fields/algext.h>
 #include <coeffs/mpr_complex.h>
-#include <coeffs/longrat.h>
+////// #include <coeffs/longrat.h>
 #include <numeric/mpr_base.h>
 #include <numeric/mpr_numeric.h>
+
+#include <math.h>
 
 // define this if you want to use the fast_map routine for mapping ideals
@@ -659 +662 @@
     //             rPar(IDRING(r)),
     //             IDRING(r)->minpoly)))
-    if ((nMap=nSetMap(IDRING(r)->cf))==NULL)
-    {
-      if (rEqual(IDRING(r),currRing))
-      {
-        nMap=n_SetMap(currRing->cf, currRing->cf);
-      }
-      else
-      {
+    if ((nMap=n_SetMap(IDRING(r)->cf, currRing->cf))==NULL)
+    {
+////////// WTF?
+//      if (rEqual(IDRING(r),currRing))
+//      {
+//        nMap = n_SetMap(currRing->cf, currRing->cf);
+//      }
+//      else
+//      {
         Werror("can not map from ground field of %s to current ground field",
           theMap->preimage);
         return NULL;
-      }
+//      }
     }
     if (IDELEMS(theMap)<IDRING(r)->N)
@@ -4881 +4885 @@
 }
 
+const short MAX_SHORT = SHRT_MAX; // (1 << (sizeof(short)*8)) - 1;
+
 ////////////////////
 //
@@ -5103 +5109 @@
   {
     int l=rv->listLength();
-#if SIZEOF_SHORT == 2
-#define MAX_SHORT 0x7fff
-#endif
+
     if (l>MAX_SHORT)
     {