Changeset b9020c3 in git

Timestamp:

Jan 19, 2002, 6:20:59 PM (22 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', 'e7cc1ebecb61be8b9ca6c18016352af89940b21a')

Children:

63d0ae66dd2fa2c9dc02d5a744eb6986ece841d4

Parents:

e63e2390bd2de7a38f9c6a092970ef10827a89b7

Message:

extended fast_map


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

Location:

Singular

Files:

• extra.cc (modified) (4 diffs)
• fast_maps.cc (modified) (2 diffs)
• ipshell.cc (modified) (2 diffs)
• ring.cc (modified) (2 diffs)

Singular/extra.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR      *
 *****************************************/
-/* $Id: extra.cc,v 1.172 2002-01-19 14:48:14 obachman Exp $ */
+/* $Id: extra.cc,v 1.173 2002-01-19 17:20:58 obachman Exp $ */
 /*
 * ABSTRACT: general interface to internals of Singular ("system" command)
@@ -651 +651 @@
 
 #include "mod_raw.h"
-#include "fast_maps.cc"
+// #include "fast_maps.cc"
    
 static BOOLEAN jjEXTENDED_SYSTEM(leftv res, leftv h)
@@ -791 +791 @@
       ring map_r = IDRING(idroot->get(theMap->preimage, myynest));
       ideal map_id = IDIDEAL(map_r->idroot->get(h->Next()->Name(), myynest));
-
+#if 0
       ring src_r, dest_r;
       maMap_CreateRings(map_id, map_r, image_id, image_r, src_r, dest_r);
@@ -799 +799 @@
       maMap_CreatePolyIdeal(map_id, map_r, src_r, dest_r, mp, mideal);
       maPoly_Out(mp, src_r);
+#endif
       return FALSE;
     }

Singular/fast_maps.cc

@@ -7 +7 @@
  *  Author:  obachman (Olaf Bachmann)
  *  Created: 02/01
- *  Version: $Id: fast_maps.cc,v 1.16 2002-01-19 17:11:42 obachman Exp $
+ *  Version: $Id: fast_maps.cc,v 1.17 2002-01-19 17:20:59 obachman Exp $
  *******************************************************************/
 #include "mod2.h"
@@ -24 +24 @@
 // define if you want to use optimization step
 #define HAVE_MAP_OPTIMIZATION 0
-
-
 
 /*******************************************************************************

Singular/ipshell.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ipshell.cc,v 1.72 2002-01-19 17:11:00 Singular Exp $ */
+/* $Id: ipshell.cc,v 1.73 2002-01-19 17:20:59 obachman Exp $ */
 /*
 * ABSTRACT:
@@ -39 +39 @@
 
 // define this if you want to use the fast_map routine for mapping ideals
-//#define FAST_MAP
+#define FAST_MAP
 
 #ifdef FAST_MAP

Singular/ring.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ring.cc,v 1.176 2002-01-19 17:11:42 obachman Exp $ */
+/* $Id: ring.cc,v 1.177 2002-01-19 17:20:59 obachman Exp $ */
 
 /*
@@ -2658 +2658 @@
 
 // construct lp ring
-ring rModifyRing_Simple(ring r, BOOLEAN ommit_degree, BOOLEAN ommit_comp, int exp_limit)
+ring rModifyRing_Simple(ring r, BOOLEAN ommit_degree, BOOLEAN ommit_comp, unsigned long exp_limit)
 {
   if (!rHasSimpleOrder(r))