Changeset d5e8f1 in git
 Timestamp:
 Mar 22, 2000, 5:33:45 PM (24 years ago)
 Branches:
 (u'fiekerDuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '648d28f488f6ff08f5607ff229b9ad9e4a5b93c2')
 Children:
 01cd520e3f85920b3d678626bea4f870041a3037
 Parents:
 607cfdb23678e0c010fe9a6d3ccf2ee5f3d62736
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

Singular/longrat.cc
r607cfd rd5e8f1 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: longrat.cc,v 1.2 5 19991115 17:20:20 obachmanExp $ */4 /* $Id: longrat.cc,v 1.26 20000322 16:33:45 Singular Exp $ */ 5 5 /* 6 6 * ABSTRACT: computation with long rational numbers (Hubert Grassmann) … … 700 700 } 701 701 mpz_add(&u>z,&b>z,&x); 702 mpz_clear(&x); 702 703 nlGmpSimple(&u>z); 703 mpz_clear(&x);704 704 if (mpz_cmp_ui(&u>z,(long)0)==0) 705 705 { … … 1191 1191 if (SR_HDL(a) & SR_HDL(b) & SR_INT) 1192 1192 { 1193 if (a==INT_TO_SR(0)) return INT_TO_SR(0); 1193 1194 if (b==INT_TO_SR(0)) return INT_TO_SR(0); 1194 1195 int r=(SR_HDL(a)1)*(SR_HDL(b)>>1); … … 1352 1353 return INT_TO_SR(0); 1353 1354 } 1355 if (a==INT_TO_SR(0)) 1356 return INT_TO_SR(0); 1354 1357 number u; 1355 1358 if (SR_HDL(a) & SR_HDL(b) & SR_INT) … … 1410 1413 return INT_TO_SR(0); 1411 1414 } 1415 if (a==INT_TO_SR(0)) 1416 return INT_TO_SR(0); 1412 1417 number u; 1413 1418 if (SR_HDL(a) & SR_HDL(b) & SR_INT) … … 1536 1541 } 1537 1542 if (a==INT_TO_SR(0)) 1538 1543 return INT_TO_SR(0); 1539 1544 number u; 1540 1545 if (SR_HDL(a) & SR_HDL(b) & SR_INT)
Note: See TracChangeset
for help on using the changeset viewer.