Changeset a48078 in git for kernel/numbers.cc
 Timestamp:
 Dec 8, 2008, 6:47:35 PM (15 years ago)
 Branches:
 (u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')
 Children:
 41ea815dd399c3ca48c9836a21414ca88ac8cf2e
 Parents:
 fe5b89fd5f0280af1971ddeb7fd02e4ed4c9eeb2
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

kernel/numbers.cc
rfe5b89 ra48078 2 2 * Computer Algebra System SINGULAR * 3 3 *****************************************/ 4 /* $Id: numbers.cc,v 1.1 8 20080806 13:55:42Singular Exp $ */4 /* $Id: numbers.cc,v 1.19 20081208 17:47:35 Singular Exp $ */ 5 5 6 6 /* … … 38 38 void (*nNew)(number *a); 39 39 number (*nInit)(int i); 40 number (*nInit_bigint)(number i); 40 41 number (*nPar)(int i); 41 42 int (*nParDeg)(number n); … … 139 140 { 140 141 naSetChar(c,r); 142 if (rField_is_Q_a()) nInit_bigint=naMap00; 143 if (rField_is_Zp_a()) nInit_bigint=naMap0P; 141 144 } 142 145 #ifdef HAVE_RING2TOM … … 145 148 { 146 149 nr2mSetExp(c, r); 150 nInit_bigint=nr2mMapQ; 147 151 } 148 152 #endif … … 152 156 { 153 157 nrzSetExp(c, r); 158 nInit_bigint=nrzMapQ; 154 159 } 155 160 #endif … … 159 164 { 160 165 nrnSetExp(c, r); 166 nInit_bigint=nrnMapQ; 161 167 } 162 168 #endif … … 166 172 { 167 173 nrnSetExp(c, r); 174 nInit_bigint=nrnMapQ; 168 175 } 169 176 #endif … … 172 179 { 173 180 npSetChar(c, r); 181 nInit_bigint=npMap0; 174 182 } 175 183 /*  GF(p^m) */ … … 177 185 { 178 186 nfSetChar(c,r>parameter); 187 nInit_bigint=ndReturn0; // not impl. 179 188 } 180 189 /*  R */ … … 182 191 else if (rField_is_R(r)) 183 192 { 193 nInit_bigint=nrMapQ; 184 194 } 185 195 /*  long R */ … … 189 199 { 190 200 setGMPFloatDigits(r>float_len,r>float_len2); 201 if (rField_is_long_R(r)) nInit_bigint=ngfMapQ; 202 else nInit_bigint=ngcMapQ; 191 203 } 192 204 #ifdef TEST
Note: See TracChangeset
for help on using the changeset viewer.