Changeset 1aa55bf in git for Singular/p_Procs.cc

Timestamp:

Oct 16, 2000, 2:06:41 PM (24 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'd08f5f0bb3329b8ca19f23b74cb1473686415c3a')

Children:

dc078459b7830eda29e3e82e01acd64423bbddc0

Parents:

b559f83182d4517c4869319c1caa185e21439112

Message:

* sparsemat.cc : faster smSelectCopy and relatives
* ring: VarL_* stuff
* divisiblity tests based on longs


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

File:

• Singular/p_Procs.cc (modified) (8 diffs)

Singular/p_Procs.cc

@@ -7 +7 @@
  *  Author:  obachman (Olaf Bachmann)
  *  Created: 8/00
- *  Version: $Id: p_Procs.cc,v 1.14 2000-10-04 15:37:54 obachman Exp $
+ *  Version: $Id: p_Procs.cc,v 1.15 2000-10-16 12:06:37 obachman Exp $
  *******************************************************************/
 #include <string.h>
@@ -46 +46 @@
 //   5 -- all Field*_Length*_Ord* procs
 #ifdef NDEBUG
-const int HAVE_FAST_P_PROCS = 2;
+const int HAVE_FAST_P_PROCS = 3;
 #else
 const int HAVE_FAST_P_PROCS = 0;
@@ -64 +64 @@
 //   3 -- special cases for length <= 4
 //   4 -- special cases for length <= 8
-const int HAVE_FAST_LENGTH = 4;
+const int HAVE_FAST_LENGTH = 3;
 
 // Set HAVE_FAST_ORD to:
@@ -180 +180 @@
   p_Minus_mm_Mult_qq_Proc,
   p_Neg_Proc,
+  pp_Mult_Coeff_mm_DivSelect_Proc,
   p_Unknown_Proc
 };
@@ -268 +269 @@
       case p_Minus_mm_Mult_qq_Proc: return "p_Minus_mm_Mult_qq_Proc";
       case p_Neg_Proc: return "p_Neg_Proc";
+      case pp_Mult_Coeff_mm_DivSelect_Proc: return "pp_Mult_Coeff_mm_DivSelect_Proc";
       case p_Unknown_Proc: return "p_Unknown_Proc";
   }
@@ -483 +485 @@
       case p_Mult_mm_Proc:
       case pp_Mult_nn_Proc:
+      case pp_Mult_Coeff_mm_DivSelect_Proc:
         return index(field, length);
 
@@ -636 +639 @@
     (p_Procs->p_Add_q != NULL) &&
     (p_Procs->p_Neg != NULL) &&
+    (p_Procs->pp_Mult_Coeff_mm_DivSelect != NULL) &&
     (p_Procs->p_Minus_mm_Mult_qq != NULL));
 }
@@ -901 +905 @@
   SetProc(p_Minus_mm_Mult_qq, field, length, ord);
   SetProc(p_Neg, field, LengthGeneral, OrdGeneral);
-}
-
-
-
+  SetProc(pp_Mult_Coeff_mm_DivSelect, field, length, OrdGeneral);
+}
+
+
+