Changeset fc7902 in git
- Timestamp:
- Apr 28, 2011, 2:54:39 PM (12 years ago)
- Branches:
- (u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a657104b677b4c461d018cbf3204d72d34ad66a9')
- Children:
- a76d93d8ebb2031b4f3e67a2e79ff69e0a549ec2
- Parents:
- afb23d35959b14b40779d0ed3c76340d0284df4c
- Location:
- kernel
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
kernel/ideals.cc
rafb23d rfc7902 51 51 * initialise an ideal 52 52 */ 53 #ifdef PDEBUG54 ideal idDBInit(int idsize, int rank, const char *f, int l)55 #else56 53 ideal idInit(int idsize, int rank) 57 #endif58 54 { 59 55 /*- initialise an ideal -*/ … … 393 389 * copy an ideal 394 390 */ 395 #ifdef PDEBUG396 ideal idDBCopy(ideal h1,const char *f,int l)397 {398 int i;399 ideal h2;400 401 idDBTest(h1,PDEBUG,f,l);402 //#ifdef TEST403 if (h1 == NULL)404 {405 h2=idDBInit(1,1,f,l);406 }407 else408 //#endif409 {410 h2=idDBInit(IDELEMS(h1),h1->rank,f,l);411 for (i=IDELEMS(h1)-1; i>=0; i--)412 h2->m[i] = pCopy(h1->m[i]);413 }414 return h2;415 }416 #endif417 391 418 392 ideal id_Copy (ideal h1, const ring r) … … 3948 3922 int rk_arg=arg->rank; //idRankFreeModule(arg); 3949 3923 int * componentIsUsed =(int *)omAlloc((rk_arg+1)*sizeof(int)); 3950 poly p ,q;3924 poly p; 3951 3925 3952 3926 while ((generator<0) && (i<IDELEMS(arg))) -
kernel/ideals.h
rafb23d rfc7902 46 46 extern omBin sip_sideal_bin; 47 47 48 #ifdef PDEBUG49 ideal idDBInit (int size, int rank, const char *f, int l);50 #define idInit(A,B) idDBInit(A,B,__FILE__,__LINE__)51 #else52 48 /*- creates an ideal -*/ 53 49 ideal idInit (int size, int rank=1); 54 #endif55 50 ideal idCopyFirstK (const ideal ide, const int k); 56 51 … … 97 92 98 93 ideal id_Copy (ideal h1,const ring r); 99 #ifdef PDEBUG100 ideal idDBCopy(ideal h1,const char *f,int l);101 #define idCopy(A) idDBCopy(A,__FILE__,__LINE__)102 #else103 94 #define idCopy(A) id_Copy(A,currRing) 104 #endif105 95 /*adds two ideals without simplifying the result*/ 106 96 ideal idSimpleAdd (ideal h1,ideal h2); -
kernel/p_ShallowCopyDelete__T.cc
rafb23d rfc7902 20 20 spolyrec dp; 21 21 poly d_p = &dp; 22 unsigned long* s_e;23 22 poly h; 24 23
Note: See TracChangeset
for help on using the changeset viewer.