Changeset b59aae in git for kernel/ring.cc
 Timestamp:
 Feb 4, 2008, 2:18:02 PM (16 years ago)
 Branches:
 (u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')
 Children:
 8373a71d6a2983af32cc5cf5277712fe65db7b37
 Parents:
 03387712e9aa1a0f1f773de125478cd7799366a4
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

kernel/ring.cc
r0338771 rb59aae 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: ring.cc,v 1.7 4 20080204 09:41:44Singular Exp $ */4 /* $Id: ring.cc,v 1.75 20080204 13:18:02 Singular Exp $ */ 5 5 6 6 /* … … 3580 3580 ring rAssure_HasComp(ring r) 3581 3581 { 3582 int last_block = rBlocks(r)  2;3583 int i= last_block;3582 int last_block; 3583 int i=0; 3584 3584 do 3585 3585 { 3586 3586 if (r>order[i] == ringorder_c  3587 3587 r>order[i] == ringorder_C) return r; 3588 i; 3589 } while (i>=0); 3588 if (r>order[i] == 0) 3589 break; 3590 i++; 3591 } while (1); 3592 last_block=i1; 3590 3593 3591 3594 ring new_r = rCopy0(r, FALSE, FALSE); 3592 i =last_block+3;3595 i+=2; 3593 3596 new_r>wvhdl=(int **)omAlloc0(i * sizeof(int_ptr)); 3594 new_r>order = (int *) omAlloc (i * sizeof(int));3595 new_r>block0 = (int *) omAlloc (i * sizeof(int));3596 new_r>block1 = (int *) omAlloc (i * sizeof(int));3597 new_r>order = (int *) omAlloc0(i * sizeof(int)); 3598 new_r>block0 = (int *) omAlloc0(i * sizeof(int)); 3599 new_r>block1 = (int *) omAlloc0(i * sizeof(int)); 3597 3600 memcpy4(new_r>order,r>order,(i1) * sizeof(int)); 3598 3601 memcpy4(new_r>block0,r>block0,(i1) * sizeof(int));
Note: See TracChangeset
for help on using the changeset viewer.