Changeset b064be in git


Ignore:
Timestamp:
Sep 25, 2009, 2:49:21 PM (14 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')
Children:
8d82b45ee18297336e3aa534fb68fbfef6a45042
Parents:
441140e51ae339d92dbfd955c0e135d6a740c788
Message:
*hannes: more n_Init


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

Legend:

Unmodified
Added
Removed

  • kernel/rmodulo2m.cc

    r441140 rb064be  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: rmodulo2m.cc,v 1.28 2009-09-24 16:37:42 Singular Exp $ */
     4/* $Id: rmodulo2m.cc,v 1.29 2009-09-25 12:49:21 Singular Exp $ */
    55/*
    66* ABSTRACT: numbers modulo 2^m
    … …  
    114114  if (i==0)
    115115  {
    116     //npInit(1,result);
    117116    *(NATNUMBER *)result = 1;
    118117  }
    … …  
    502501 */
    503502
    504 void nr2mSetExp(int m, ring r)
     503void nr2mSetExp(int m, const ring r)
    505504{
    506505  if (m>1)
    … …  
    520519}
    521520
    522 void nr2mInitExp(int m, ring r)
     521void nr2mInitExp(int m, const ring r)
    523522{
    524523  nr2mSetExp(m, r);

  • kernel/rmodulo2m.h

    r441140 rb064be  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
    6 /* $Id: rmodulo2m.h,v 1.14 2009-09-24 16:37:42 Singular Exp $ */
     6/* $Id: rmodulo2m.h,v 1.15 2009-09-25 12:49:21 Singular Exp $ */
    77/*
    88* ABSTRACT: numbers modulo 2^m
    … …  
    4545BOOLEAN nr2mDBTest      (number a, const char *f, const int l);
    4646#endif
    47 void    nr2mSetExp(int c, ring r);
    48 void    nr2mInitExp(int c, ring r);
     47void    nr2mSetExp(int c, const ring r);
     48void    nr2mInitExp(int c, const ring r);
    4949
    5050

  • kernel/rmodulon.cc

    r441140 rb064be  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: rmodulon.cc,v 1.39 2009-09-24 16:37:42 Singular Exp $ */
     4/* $Id: rmodulon.cc,v 1.40 2009-09-25 12:49:21 Singular Exp $ */
    55/*
    66* ABSTRACT: numbers modulo n
    … …  
    3535  int_number erg = (int_number) omAllocBin(gmp_nrn_bin);
    3636  mpz_init_set_si(erg, i);
    37   mpz_mod(erg, erg, nrnModul);
     37  mpz_mod(erg, erg, r->ringflaga);
    3838  return (number) erg;
    3939}
Note: See TracChangeset for help on using the changeset viewer.