Changeset 41ea815 in git
 Timestamp:
 Dec 8, 2008, 6:48:07 PM (14 years ago)
 Branches:
 (u'jengelhdatetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '0604212ebb110535022efecad887940825b97c3f')
 Children:
 16ffb58aa2fb7d89cb13b506827574293b64bc37
 Parents:
 a48078e64d5cf6c4eadf3329daf985be7b2bd938
 Location:
 Singular
 Files:

 2 edited
Legend:
 Unmodified
 Added
 Removed

Singular/iparith.cc
ra48078 r41ea815 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: iparith.cc,v 1.48 1 20081112 12:51:15Singular Exp $ */4 /* $Id: iparith.cc,v 1.482 20081208 17:48:07 Singular Exp $ */ 5 5 6 6 /* … … 6318 6318 break; 6319 6319 } 6320 case BIGINT_CMD: 6321 { 6322 number b=(number)h>Data(BIGINT_CMD); 6323 number n=nInit_bigint(b); 6324 if (!nIsZero(n)) 6325 { 6326 p=pOne(); 6327 pSetCoeff(p,n); 6328 } 6329 else 6330 { 6331 p=NULL; 6332 nDelete(&n); 6333 } 6334 break; 6335 } 6320 6336 case NUMBER_CMD: 6321 6337 { 
Singular/ipconv.cc
ra48078 r41ea815 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: ipconv.cc,v 1. 39 20080716 12:51:26Singular Exp $ */4 /* $Id: ipconv.cc,v 1.40 20081208 17:48:07 Singular Exp $ */ 5 5 /* 6 6 * ABSTRACT: automatic type conversions … … 160 160 } 161 161 162 extern number ngfMapQ(number from); // gnumpfl.cc163 extern number ngcMapQ(number from); // gnumpc.cc164 extern number nrMapQ(number from); // shortfl.cc165 166 162 static void * iiBI2N(void *data) 167 163 { 168 164 if (currRing==NULL) return NULL; 169 165 // a bigint is really a number from char 0, with diffrent operations... 170 if (rField_is_Q()) return (void*)nlCopy((number)data); 171 if (rField_is_Zp()) return (void*)npMap0((number)data); 172 if (rField_is_long_R()) return (void*)ngfMapQ((number)data); 173 if (rField_is_long_C()) return (void*)ngcMapQ((number)data); 174 if (rField_is_R()) return (void*)nrMapQ((number)data); 175 if (rField_is_Q_a()) return (void*)naMap00((number)data); 176 if (rField_is_Zp_a()) return (void*)naMap0P((number)data); 177 #ifdef HAVE_RINGS 178 if (rField_is_Ring_Z()) return (void*)nrzMapQ((number)data); 179 if (rField_is_Ring_ModN()) return (void*)nrnMapQ((number)data); 180 if (rField_is_Ring_PtoM()) return (void*)nrnMapQ((number)data); 181 if (rField_is_Ring_2toM()) return (void*)nr2mMapQ((number)data); 182 #endif 183 WerrorS("cannot convert bigint to this ring"); 184 return NULL; 166 return (void*)nInit_bigint((number)data); 185 167 } 186 168
Note: See TracChangeset
for help on using the changeset viewer.