Changeset 7447d8 in git for Singular/ipshell.cc
- Timestamp:
- Jul 27, 2005, 5:48:29 PM (19 years ago)
- Branches:
- (u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
- Children:
- 0b5a8b964a0f8ffcf71b80e540492fabe3f379ce
- Parents:
- 7adb161bdb6d1b153d8380ad71f162acf6914d8f
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/ipshell.cc
r7adb161 r7447d8 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: ipshell.cc,v 1.1 19 2005-07-26 17:04:44Singular Exp $ */4 /* $Id: ipshell.cc,v 1.120 2005-07-27 15:47:57 Singular Exp $ */ 5 5 /* 6 6 * ABSTRACT: … … 919 919 r=liFindRes(l,&len,&typ0); 920 920 if (r==NULL) return TRUE; 921 res->data=(char *)syBetti(r,len,®,weights,(int) v->Data());921 res->data=(char *)syBetti(r,len,®,weights,(int)(long)v->Data()); 922 922 omFreeSize((ADDRESS)r,(len)*sizeof(ideal)); 923 923 atSet(res,omStrDup("rowShift"),(void*)add_row_shift,INT_CMD); … … 1734 1734 Werror("invald coeff. field description, expecting precision list"); 1735 1735 lists LL=(lists)L->m[1].data; 1736 int r1=(int) LL->m[0].data;1737 int r2=(int) LL->m[1].data;1736 int r1=(int)(long)LL->m[0].data; 1737 int r2=(int)(long)LL->m[1].data; 1738 1738 if ((r1<=SHORT_REAL_LENGTH) 1739 1739 && (r2=SHORT_REAL_LENGTH)) … … 1780 1780 if (L->m[0].Typ()==INT_CMD) 1781 1781 { 1782 R->ch=(int) L->m[0].Data();1782 R->ch=(int)(long)L->m[0].Data(); 1783 1783 } 1784 1784 else if (L->m[0].Typ()==LIST_CMD) … … 1897 1897 intvec *iv; 1898 1898 if (vv->m[1].Typ()==INT_CMD) 1899 iv=new intvec((int) vv->m[1].Data(),(int)vv->m[1].Data());1899 iv=new intvec((int)(long)vv->m[1].Data(),(int)(long)vv->m[1].Data()); 1900 1900 else 1901 1901 iv=ivCopy((intvec*)vv->m[1].Data()); //assume INTVEC … … 2043 2043 BOOLEAN mpKoszul(leftv res,leftv c/*ip*/, leftv b/*in*/, leftv id) 2044 2044 { 2045 int n=(int) b->Data();2046 int d=(int) c->Data();2045 int n=(int)(long)b->Data(); 2046 int d=(int)(long)c->Data(); 2047 2047 int k,l,sign,row,col; 2048 2048 matrix result; … … 2099 2099 { 2100 2100 syStrategy syzstr=(syStrategy)u->Data(); 2101 BOOLEAN minim=(int) w->Data();2101 BOOLEAN minim=(int)(long)w->Data(); 2102 2102 int row_shift=0; 2103 2103 int add_row_shift=0; … … 2305 2305 void spectrum::copy_deep( lists l ) 2306 2306 { 2307 mu = (int)(l ->m[0].Data( ));2308 pg = (int)(l ->m[1].Data( ));2309 n = (int)(l ->m[2].Data( ));2307 mu = (int)(long)(l->m[0].Data( )); 2308 pg = (int)(long)(l->m[1].Data( )); 2309 n = (int)(long)(l->m[2].Data( )); 2310 2310 2311 2311 copy_new( n ); … … 2913 2913 // ------------------------- 2914 2914 2915 int mu = (int)(l ->m[0].Data( ));2916 int pg = (int)(l ->m[1].Data( ));2917 int n = (int)(l ->m[2].Data( ));2915 int mu = (int)(long)(l->m[0].Data( )); 2916 int pg = (int)(long)(l->m[1].Data( )); 2917 int n = (int)(long)(l->m[2].Data( )); 2918 2918 2919 2919 if( n <= 0 ) … … 3007 3007 } 3008 3008 3009 if( mu != (int)(l ->m[0].Data( )) )3009 if( mu != (int)(long)(l->m[0].Data( )) ) 3010 3010 { 3011 3011 return semicListMilnorWrong; … … 3024 3024 } 3025 3025 3026 if( pg != (int)(l ->m[1].Data( )) )3026 if( pg != (int)(long)(l->m[1].Data( )) ) 3027 3027 { 3028 3028 return semicListPGWrong; … … 3091 3091 3092 3092 lists l = (lists)first->Data( ); 3093 int k = (int) second->Data( );3093 int k = (int)(long)second->Data( ); 3094 3094 3095 3095 if( (state=list_is_spectrum( l ))!=semicOK ) … … 3126 3126 { 3127 3127 semicState state; 3128 BOOLEAN qh=(((int) w->Data())==1);3128 BOOLEAN qh=(((int)(long)w->Data())==1); 3129 3129 3130 3130 // ----------------- … … 3455 3455 return TRUE; 3456 3456 else 3457 LP->m= (int)( v->Data());3457 LP->m= (int)(long)(v->Data()); 3458 3458 3459 3459 v= v->next; … … 3461 3461 return TRUE; 3462 3462 else 3463 LP->n= (int)( v->Data());3463 LP->n= (int)(long)(v->Data()); 3464 3464 3465 3465 v= v->next; … … 3467 3467 return TRUE; 3468 3468 else 3469 LP->m1= (int)( v->Data());3469 LP->m1= (int)(long)(v->Data()); 3470 3470 3471 3471 v= v->next; … … 3473 3473 return TRUE; 3474 3474 else 3475 LP->m2= (int)( v->Data());3475 LP->m2= (int)(long)(v->Data()); 3476 3476 3477 3477 v= v->next; … … 3479 3479 return TRUE; 3480 3480 else 3481 LP->m3= (int)( v->Data());3481 LP->m3= (int)(long)(v->Data()); 3482 3482 3483 3483 #ifdef mprDEBUG_PROT … … 3520 3520 { 3521 3521 ideal gls = (ideal)(arg1->Data()); 3522 int imtype= (int) arg2->Data();3522 int imtype= (int)(long)arg2->Data(); 3523 3523 3524 3524 uResultant::resMatType mtype= determineMType( imtype ); … … 3545 3545 poly gls; 3546 3546 gls= (poly)(arg1->Data()); 3547 int howclean= (int) arg3->Data();3547 int howclean= (int)(long)arg3->Data(); 3548 3548 3549 3549 if ( !(rField_is_R() || … … 3688 3688 int n= IDELEMS( p ); 3689 3689 int m= IDELEMS( w ); 3690 int tdg= (int) arg3->Data();3690 int tdg= (int)(long)arg3->Data(); 3691 3691 3692 3692 res->data= (void*)NULL; … … 3790 3790 if ( v->Typ() != INT_CMD ) 3791 3791 return TRUE; 3792 else imtype= (int) v->Data();3792 else imtype= (int)(long)v->Data(); 3793 3793 v= v->next; 3794 3794 … … 3806 3806 if ( v->Typ() != INT_CMD ) 3807 3807 return TRUE; 3808 else howclean= (int) v->Data();3808 else howclean= (int)(long)v->Data(); 3809 3809 3810 3810 uResultant::resMatType mtype= determineMType( imtype ); … … 4302 4302 if (pn->Typ()==INT_CMD) 4303 4303 { 4304 ch=(int) pn->Data();4304 ch=(int)(long)pn->Data(); 4305 4305 } 4306 4306 else if ((pn->name != NULL) … … 4311 4311 if ((pn->next!=NULL) && (pn->next->Typ()==INT_CMD)) 4312 4312 { 4313 float_len=(int) pn->next->Data();4313 float_len=(int)(long)pn->next->Data(); 4314 4314 float_len2=float_len; 4315 4315 pn=pn->next; 4316 4316 if ((pn->next!=NULL) && (pn->next->Typ()==INT_CMD)) 4317 4317 { 4318 float_len2=(int) pn->next->Data();4318 float_len2=(int)(long)pn->next->Data(); 4319 4319 pn=pn->next; 4320 4320 }
Note: See TracChangeset
for help on using the changeset viewer.