Changeset c5e5e7f in git
- Timestamp:
- Sep 21, 2006, 7:08:48 PM (18 years ago)
- Branches:
- (u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
- Children:
- 09bbf540858ad0483955c1f09edd84fad0b43597
- Parents:
- dc25e4e6439781ca09a13e737f526f525db44d23
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/iparith.cc
rdc25e4 rc5e5e7f 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: iparith.cc,v 1.4 09 2006-09-21 16:00:10Singular Exp $ */4 /* $Id: iparith.cc,v 1.410 2006-09-21 17:08:48 Singular Exp $ */ 5 5 6 6 /* … … 519 519 if (r==0) 520 520 { 521 number h=nSub(pGetCoeff(p),pGetCoeff(q)); 521 522 /* compare lead coeffs */ 522 number h=nSub(pGetCoeff(p),pGetCoeff(q));523 523 r = -1+nIsZero(h)+2*nGreaterZero(h); /* -1: <, 0:==, 1: > */ 524 524 nDelete(&h); … … 637 637 WarnS("int overflow(^), result may be wrong"); 638 638 } 639 res->data = (char *) rc;639 res->data = (char *)((long)rc); 640 640 if (u!=NULL) return jjOP_REST(res,u,v); 641 641 return FALSE; … … 808 808 unsigned int b=(unsigned int)(unsigned long)v->Data(); 809 809 unsigned int c=a+b; 810 res->data = (char *) c;810 res->data = (char *)((long)c); 811 811 if (((Sy_bit(31)&a)==(Sy_bit(31)&b))&&((Sy_bit(31)&a)!=(Sy_bit(31)&c))) 812 812 { … … 890 890 WarnS("int overflow(-), result may be wrong"); 891 891 } 892 res->data = (char *) c;892 res->data = (char *)((long)c); 893 893 return jjPLUSMINUS_Gen(res,u,v); 894 894 } … … 936 936 if ((b!=0) && (c/b !=a)) 937 937 WarnS("int overflow(*), result may be wrong"); 938 res->data = (char *) c;938 res->data = (char *)((long)c); 939 939 if ((u->Next()!=NULL) || (v->Next()!=NULL)) 940 940 return jjOP_REST(res,u,v); … … 1117 1117 r= (a / b); break; 1118 1118 } 1119 res->data=(void *) r;1119 res->data=(void *)((long)r); 1120 1120 return FALSE; 1121 1121 } … … 1253 1253 static BOOLEAN jjEQUAL_Ma(leftv res, leftv u, leftv v) 1254 1254 { 1255 res->data = (char *) mpEqual((matrix)u->Data(),(matrix)v->Data());1255 res->data = (char *)((long)mpEqual((matrix)u->Data(),(matrix)v->Data())); 1256 1256 jjEQUAL_REST(res,u,v); 1257 1257 return FALSE; … … 1259 1259 static BOOLEAN jjEQUAL_N(leftv res, leftv u, leftv v) 1260 1260 { 1261 res->data = (char *) nEqual((number)u->Data(),(number)v->Data());1261 res->data = (char *)((long)nEqual((number)u->Data(),(number)v->Data())); 1262 1262 jjEQUAL_REST(res,u,v); 1263 1263 return FALSE; … … 1267 1267 poly p=(poly)u->Data(); 1268 1268 poly q=(poly)v->Data(); 1269 res->data = (char *) ( pEqualPolys(p,q));1269 res->data = (char *) ((long)pEqualPolys(p,q)); 1270 1270 jjEQUAL_REST(res,u,v); 1271 1271 return FALSE; … … 1326 1326 for (i=0;i<iv->length(); i++) 1327 1327 { 1328 t.data=(char *)( *iv)[i];1328 t.data=(char *)((long)(*iv)[i]); 1329 1329 if (p==NULL) 1330 1330 { … … 1477 1477 leftv p=NULL; 1478 1478 int i; 1479 intslen = strlen(u->name) + 14;1479 long slen = strlen(u->name) + 14; 1480 1480 char *n = (char*) omAlloc(slen); 1481 1481 … … 1634 1634 for(i=IDELEMS(I);i>=0;i--) d=si_max(d,(int)pDegW(I->m[i],iv)); 1635 1635 omFreeSize((ADDRESS)iv,(pVariables+1)*sizeof(short)); 1636 res->data = (char *) d;1636 res->data = (char *)((long)d); 1637 1637 return FALSE; 1638 1638 } … … 1675 1675 assumeStdFlag(v); 1676 1676 if(currQuotient==NULL) 1677 res->data = (char *) scDimInt((ideal)(v->Data()),(ideal)w->Data());1677 res->data = (char *)((long)scDimInt((ideal)(v->Data()),(ideal)w->Data())); 1678 1678 else 1679 1679 { 1680 1680 ideal q=idSimpleAdd(currQuotient,(ideal)w->Data()); 1681 res->data = (char *) scDimInt((ideal)(v->Data()),q);1681 res->data = (char *)((long)scDimInt((ideal)(v->Data()),q)); 1682 1682 idDelete(&q); 1683 1683 } … … 1760 1760 lists L=(lists)omAllocBin(slists_bin); 1761 1761 L->Init(3); 1762 L->m[0].rtyp=INT_CMD; L->m[0].data=(void *) p0;1763 L->m[1].rtyp=INT_CMD; L->m[1].data=(void *) a;1764 L->m[2].rtyp=INT_CMD; L->m[2].data=(void *) b;1762 L->m[0].rtyp=INT_CMD; L->m[0].data=(void *)(long)p0; 1763 L->m[1].rtyp=INT_CMD; L->m[1].data=(void *)(long)a; 1764 L->m[2].rtyp=INT_CMD; L->m[2].data=(void *)(long)b; 1765 1765 res->rtyp=LIST_CMD; 1766 1766 res->data=(char *)L; … … 1940 1940 } 1941 1941 res->rtyp=INT_CMD; 1942 res->data=(char *) p0;1942 res->data=(char *)(long)p0; 1943 1943 return FALSE; 1944 1944 }
Note: See TracChangeset
for help on using the changeset viewer.