Changeset a48078 in git


Ignore:
Timestamp:
Dec 8, 2008, 6:47:35 PM (15 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')
Children:
41ea815dd399c3ca48c9836a21414ca88ac8cf2e
Parents:
fe5b89fd5f0280af1971ddeb7fd02e4ed4c9eeb2
Message:
*hannes: bigint -> number


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

Legend:

Unmodified
Added
Removed

  • kernel/gnumpc.h

    rfe5b89 ra48078  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
    6 /* $Id: gnumpc.h,v 1.2 2008-03-19 17:44:08 Singular Exp $ */
     6/* $Id: gnumpc.h,v 1.3 2008-12-08 17:47:35 Singular Exp $ */
    77/*
    88* ABSTRACT: computations with GMP floating-point numbers
    … …  
    4242nMapFunc  ngcSetMap(ring src, ring dst);
    4343
     44number ngcMapQ(number from);
    4445#endif
    4546

  • kernel/gnumpfl.h

    rfe5b89 ra48078  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
    6 /* $Id: gnumpfl.h,v 1.2 2008-03-19 17:44:08 Singular Exp $ */
     6/* $Id: gnumpfl.h,v 1.3 2008-12-08 17:47:35 Singular Exp $ */
    77/*
    88* ABSTRACT: computations with GMP floating-point numbers
    … …  
    3939
    4040void setGMPFloatDigits( size_t digits, size_t rest );
     41number ngfMapQ(number from);
    4142#endif

  • kernel/numbers.cc

    rfe5b89 ra48078  
    22*  Computer Algebra System SINGULAR      *
    33*****************************************/
    4 /* $Id: numbers.cc,v 1.18 2008-08-06 13:55:42 Singular Exp $ */
     4/* $Id: numbers.cc,v 1.19 2008-12-08 17:47:35 Singular Exp $ */
    55
    66/*
    … …  
    3838void   (*nNew)(number *a);
    3939number (*nInit)(int i);
     40number  (*nInit_bigint)(number i);
    4041number (*nPar)(int i);
    4142int    (*nParDeg)(number n);
    … …  
    139140  {
    140141    naSetChar(c,r);
     142    if (rField_is_Q_a()) nInit_bigint=naMap00;
     143    if (rField_is_Zp_a()) nInit_bigint=naMap0P;
    141144  }
    142145#ifdef HAVE_RING2TOM
    … …  
    145148  {
    146149    nr2mSetExp(c, r);
     150    nInit_bigint=nr2mMapQ;
    147151  }
    148152#endif 
    … …  
    152156  {
    153157    nrzSetExp(c, r);
     158    nInit_bigint=nrzMapQ;
    154159  }
    155160#endif 
    … …  
    159164  {
    160165    nrnSetExp(c, r);
     166    nInit_bigint=nrnMapQ;
    161167  }
    162168#endif
    … …  
    166172  {
    167173    nrnSetExp(c, r);
     174    nInit_bigint=nrnMapQ;
    168175  }
    169176#endif
    … …  
    172179  {
    173180    npSetChar(c, r);
     181    nInit_bigint=npMap0;
    174182  }
    175183  /* -------------- GF(p^m) -----------------------*/
    … …  
    177185  {
    178186    nfSetChar(c,r->parameter);
     187    nInit_bigint=ndReturn0; // not impl.
    179188  }
    180189  /* -------------- R -----------------------*/
    … …  
    182191  else if (rField_is_R(r))
    183192  {
     193    nInit_bigint=nrMapQ;
    184194  }
    185195  /* -------------- long R -----------------------*/
    … …  
    189199  {
    190200    setGMPFloatDigits(r->float_len,r->float_len2);
     201    if (rField_is_long_R(r)) nInit_bigint=ngfMapQ;
     202    else                     nInit_bigint=ngcMapQ;
    191203  }
    192204#ifdef TEST

  • kernel/numbers.h

    rfe5b89 ra48078  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
    6 /* $Id: numbers.h,v 1.15 2008-08-06 13:55:42 Singular Exp $ */
     6/* $Id: numbers.h,v 1.16 2008-12-08 17:47:35 Singular Exp $ */
    77/*
    88* ABSTRACT: interface to coefficient aritmetics
    … …  
    4545extern void    (*nNew)(number * a);
    4646extern number  (*nInit)(int i);
     47extern number  (*nInit_bigint)(number i);
    4748extern number  (*nPar)(int i);
    4849extern int     (*nParDeg)(number n);

  • kernel/shortfl.h

    rfe5b89 ra48078  
    77* ABSTRACT
    88*/
    9 /* $Id: shortfl.h,v 1.2 2008-03-19 17:44:12 Singular Exp $ */
     9/* $Id: shortfl.h,v 1.3 2008-12-08 17:47:35 Singular Exp $ */
    1010#include "structs.h"
    1111
    … …  
    3535
    3636float   nrFloat(number n);
     37number nrMapQ(number from);
    3738#endif
    3839
Note: See TracChangeset for help on using the changeset viewer.