Changeset 45cc71a in git


Ignore:
Timestamp:
Jan 31, 2003, 10:23:07 AM (21 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')
Children:
e72e73039536e8d9c3ef907b8981de363c152321
Parents:
70e604a5fcd8673841bd82eecde9193d014012fa
Message:
*hannes: NV_OPS


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

Legend:

Unmodified
Added
Removed
  • Singular/p_Procs_Set.h

    r70e604a r45cc71a  
    1212 *  Author:  obachman (Olaf Bachmann)
    1313 *  Created: 12/00
    14  *  Version: $Id: p_Procs_Set.h,v 1.5 2001-08-27 14:47:29 Singular Exp $
     14 *  Version: $Id: p_Procs_Set.h,v 1.6 2003-01-31 09:23:07 Singular Exp $
    1515 *******************************************************************/
    1616
     
    1818static inline p_Field p_FieldIs(ring r)
    1919{
    20   if (rField_is_Zp(r)) return FieldZp;
     20  if (rField_is_Zp(r))
     21#ifdef NV_OPS
     22  {
     23    if (r->ch<=NV_MAX_PRIME) return FieldZp;
     24    else                     return FieldGeneral;
     25  }
     26#else
     27    return FieldZp;
     28#endif
    2129  if (rField_is_R(r)) return FieldR;
    2230  if (rField_is_GF(r)) return FieldGF;
Note: See TracChangeset for help on using the changeset viewer.