Changeset b6c58b8 in git
 Timestamp:
 Nov 21, 1999, 1:26:48 PM (24 years ago)
 Branches:
 (u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')
 Children:
 ee18d834abff867b46994a318310f1f246196a70
 Parents:
 14886285e83e0dc2a6c001743a4256960d770b5d
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

Singular/ring.cc
r148862 rb6c58b8 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: ring.cc,v 1.9 0 19991120 10:17:24 siebertExp $ */4 /* $Id: ring.cc,v 1.91 19991121 12:26:48 Singular Exp $ */ 5 5 6 6 /* … … 3106 3106 if (r>mm_specHeap != NULL) 3107 3107 mmUnGetSpecHeap(&(r>mm_specHeap)); 3108 3108 3109 3109 Free((ADDRESS)r>VarOffset, (r>N +1)*sizeof(int)); 3110 3110 if (r>order != NULL) … … 3194 3194 } 3195 3195 #ifdef HAVE_SHIFTED_EXPONENTS 3196 if( r>pCompIndex==j ) Print ("v0; ");3196 if( r>pCompIndex==j ) PrintS("v0; "); 3197 3197 #endif 3198 3198 for(i=0;i<r>OrdSize;i++) … … 3204 3204 } 3205 3205 } 3206 if (j<r>pCompLSize) 3207 Print("ordsgn %d\n", r>ordsgn[j]); 3206 if (j<r>pCompLSize) Print("ordsgn %d ", r>ordsgn[j]); 3207 3208 if (j==r>pOrdIndex) 3209 PrintS("pOrdIndex\n"); 3208 3210 else 3209 3211 PrintLn(); … … 3332 3334 { 3333 3335 int last_block = rBlocks(r)  2; 3334 if (r>order[last_block] != ringorder_c && 3336 if (r>order[last_block] != ringorder_c && 3335 3337 r>order[last_block] != ringorder_C) 3336 3338 { 3337 3339 int c_pos = 0; 3338 3340 int i; 3339 3341 3340 3342 for (i=0; i< last_block; i++) 3341 3343 { … … 3346 3348 } 3347 3349 } 3348 if (c_pos != 1) 3350 if (c_pos != 1) 3349 3351 { 3350 3352 ring new_r = rCopy0(r, FALSE, TRUE); … … 3387 3389 ring new_r_1 = rAssure_CompLastBlock(currRing, FALSE); 3388 3390 ring new_r = rAssure_SyzComp(new_r_1, FALSE); 3389 3391 3390 3392 if (new_r != currRing) 3391 3393 { 3392 ring old_r = currRing; 3394 ring old_r = currRing; 3393 3395 if (new_r_1 != new_r && new_r_1 != old_r) rDelete(new_r_1); 3394 3396 rComplete(new_r, 1); … … 3414 3416 b2 == ringorder_c  b2 == ringorder_C  3415 3417 b2 == ringorder_S); 3416 if ((r_blocks == 3) && 3417 (currRing>order[0] == b1) && 3418 if ((r_blocks == 3) && 3419 (currRing>order[0] == b1) && 3418 3420 (currRing>order[1] == b2) && 3419 3421 (currRing>order[2] == 0))
Note: See TracChangeset
for help on using the changeset viewer.