Changeset 91733c4 in git
- Timestamp:
- Feb 22, 2001, 1:50:13 PM (23 years ago)
- Branches:
- (u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
- Children:
- b0d37f803fcbbd573dbea12fc39bf302bb2ed4f7
- Parents:
- 0750dc3a640b73f5e765a62b01fc8353be4502d4
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/polys-impl.cc
r0750dc3 r91733c4 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: polys-impl.cc,v 1.5 3 2000-12-06 11:03:27Singular Exp $ */4 /* $Id: polys-impl.cc,v 1.54 2001-02-22 12:50:13 Singular Exp $ */ 5 5 6 6 /*************************************************************** … … 104 104 105 105 if (n == 0) 106 { 107 for (; j<=(unsigned long) r->N; j++) 108 { 109 if (p_GetExp(p,j,r) > 0) i++; 110 if (i == BIT_SIZEOF_LONG) break; 111 } 112 ev = (unsigned long) ~0 >> ((unsigned long) (BIT_SIZEOF_LONG - i)); 113 return ev; 114 } 106 { 107 n=1; 108 m1=0; 109 } 110 //{ 111 // for (; j<=(unsigned long) r->N; j++) 112 // { 113 // if (p_GetExp(p,j,r) > 0) i++; 114 // if (i == BIT_SIZEOF_LONG) break; 115 // } 116 // ev = ~((unsigned long)0) >> ((unsigned long) (BIT_SIZEOF_LONG - i)); 117 // return ev; 118 //} 115 119 else 116 120 {
Note: See TracChangeset
for help on using the changeset viewer.