Changeset 344c8c in git


Ignore:
Timestamp:
Jan 15, 2007, 9:41:25 AM (17 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b21a664aa22dc6e196223af8a74ad4885e83547c')
Children:
9be487a3eaa4fd744fcf9a5e32eaad3021224f23
Parents:
2381568d9d382d0ba33856958bce68cc490a19b0
Message:
*hannes: static stuff


git-svn-id: file:///usr/local/Singular/svn/trunk@9714 2c84dea3-7e68-4137-9b89-c4e89433aadc
Location:
kernel
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • kernel/p_Procs_Impl.h

    r2381568 r344c8c  
    77 *  Author:  obachman (Olaf Bachmann)
    88 *  Created: 12/00
    9  *  Version: $Id: p_Procs_Impl.h,v 1.4 2007-01-12 14:28:30 Singular Exp $
     9 *  Version: $Id: p_Procs_Impl.h,v 1.5 2007-01-15 08:41:25 Singular Exp $
    1010 *******************************************************************/
    1111#ifndef P_PROCS_IMPL_H
     
    107107  FieldGeneral = 0,
    108108  FieldZp,         
    109 #ifdef NV_OPS
    110   FieldZpGeneral,
    111 #endif
    112109  FieldQ,
    113110  FieldR,
  • kernel/p_Procs_Set.h

    r2381568 r344c8c  
    1212 *  Author:  obachman (Olaf Bachmann)
    1313 *  Created: 12/00
    14  *  Version: $Id: p_Procs_Set.h,v 1.9 2007-01-12 14:28:31 Singular Exp $
     14 *  Version: $Id: p_Procs_Set.h,v 1.10 2007-01-15 08:41:25 Singular Exp $
    1515 *******************************************************************/
    1616#include "modulop.h"
     
    2323{
    2424  if (rField_is_Zp(r))
    25 #ifdef NV_OPS
    26   {
    27     if (r->ch<=NV_MAX_PRIME) return FieldZp;
    28     else                     return FieldZpGeneral;
    29   }
    30 #else
    3125    return FieldZp;
    32 #endif
    3326  if (rField_is_R(r)) return FieldR;
    3427  if (rField_is_GF(r)) return FieldGF;
     
    126119#endif
    127120
    128 #if (defined(HAVE_DL) && defined(HAVE_DYNAMIC_LOADING))
    129 
    130121#define CheckProc(which)                                    \
    131122do                                                          \
     
    141132while (0);
    142133
    143 #else
    144 // static variant
    145 #define CheckProc(which)                                    \
    146 do                                                          \
    147 {                                                           \
    148   if (p_Procs->which == NULL)                               \
    149   {                                                         \
    150     p_Procs->which = (which##_Proc_Ptr)                     \
    151       which##__FieldGeneral_LengthGeneral_OrdGeneral;       \
    152   }                                                         \
    153 }                                                           \
    154 while (0);
    155 
    156 #endif
    157134// Choose a set of p_Procs
    158135void p_ProcsSet(ring r, p_Procs_s* p_Procs)
     
    170147  SetProcs(field, length, ord);
    171148  #ifdef NV_OPS
    172   if (field==FieldZpGeneral)
     149  if ((field==FieldZp) && (r->ch>NV_MAX_PRIME))
    173150  {
    174151    // set all (mult/div.) routines to FieldGeneral-variants
Note: See TracChangeset for help on using the changeset viewer.