Changeset 6a13742 in git

Timestamp:

Dec 20, 2000, 6:18:53 PM (23 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

bfbc32c19cef318430013cfd78dc6aa9af738067

Parents:

be939130441cde83c49169517306405bb842d34b

Message:

* hp Anpassung


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

Location:

Singular

Files:

• p_Procs_Impl.h (modified) (3 diffs)
• p_Procs_Static.h (modified) (4 diffs)

Singular/p_Procs_Impl.h

@@ -7 +7 @@
  *  Author:  obachman (Olaf Bachmann)
  *  Created: 12/00
- *  Version: $Id: p_Procs_Impl.h,v 1.2 2000-12-12 08:44:50 obachman Exp $
+ *  Version: $Id: p_Procs_Impl.h,v 1.3 2000-12-20 17:18:52 obachman Exp $
  *******************************************************************/
 #ifndef P_PROCS_IMPL_H
@@ -387 +387 @@
  * 
  *******************************************************************/
+#ifdef p_Procs_Static
+static inline void StaticKernelFilter(p_Field &field, p_Length &length, 
+                                      p_Ord &ord, const p_Proc proc)
+{
+  // simply exclude some things
+  if ((proc == pp_Mult_mm_Noether_Proc || proc == p_kBucketSetLm_Proc) &&
+      (field != FieldZp))
+  {
+    field = FieldGeneral;
+    length = LengthGeneral;
+    ord = OrdGeneral;
+  }
+}
+#endif
+
 static inline void FastP_ProcsFilter(p_Field &field, p_Length &length, p_Ord &ord, const p_Proc proc)
 {
@@ -513 +528 @@
   FastFieldFilter(field);
   FastP_ProcsFilter(field, length, ord, proc);
+#ifdef p_Procs_Static
+  StaticKernelFilter(field, length, ord, proc);
+#endif
 }
 

Singular/p_Procs_Static.h

@@ -7 +7 @@
  *  Author:  obachman (Olaf Bachmann)
  *  Created: 12/00
- *  Version: $Id: p_Procs_Static.h,v 1.2 2000-12-12 08:44:51 obachman Exp $
+ *  Version: $Id: p_Procs_Static.h,v 1.3 2000-12-20 17:18:53 obachman Exp $
  *******************************************************************/
 
@@ -20 +20 @@
 //   4 -- plus FieldGeneral_Length*_OrdGeneral procs
 //   5 -- all Field*_Length*_Ord* procs
-#define HAVE_FAST_P_PROCS 2
+#define HAVE_FAST_P_PROCS 3
 
 // Set HAVE_FAST_FIELD to:
@@ -27 +27 @@
 //   2 -- plus special cases for FieldQ
 //   nothing else is implemented, yet
-#define HAVE_FAST_FIELD 1
+#define HAVE_FAST_FIELD 2
 
 // Set HAVE_FAST_LENGTH to:
@@ -50 +50 @@
 //  2 -- ZeroOrds for all
 #define HAVE_FAST_ZERO_ORD 1
+
+// on top of all this, see the StaticKernelFilter in p_Procs_Impl.h
 #endif