Changeset 90adb6a in git
- Timestamp:
- Feb 2, 2007, 4:19:46 PM (16 years ago)
- Branches:
- (u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')
- Children:
- 80a5be143bbd0daeb5d5d2adf0825aa060b9c8d2
- Parents:
- 846b09257601435fb0a4c993e3bd6233de390298
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
kernel/syz.cc
r846b09 r90adb6a 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: syz.cc,v 1.1 1 2006-11-24 10:29:08 SingularExp $ */4 /* $Id: syz.cc,v 1.12 2007-02-02 15:19:46 motsak Exp $ */ 5 5 6 6 /* … … 25 25 #include "prCopy.h" 26 26 27 #ifdef HAVE_PLURAL 28 #include "sca.h" 29 #endif // HAVE_PLURAL 27 30 28 31 void syDeleteRes(resolvente * res,int length) … … 613 616 syStrategy syResolution(ideal arg, int maxlength,intvec * w, BOOLEAN minim) 614 617 { 618 #ifdef HAVE_PLURAL 619 ideal idSaveCurrQuotient = currQuotient; 620 ideal idSaveCurrRingQuotient = currRing->qideal; 621 if( rIsSCA(currRing) ) 622 { 623 currQuotient = currRing->nc->SCAQuotient(); 624 currRing->qideal = currQuotient; 625 626 const unsigned int m_iFirstAltVar = scaFirstAltVar(currRing); 627 const unsigned int m_iLastAltVar = scaLastAltVar(currRing); 628 629 arg = id_KillSquares(arg, m_iFirstAltVar, m_iLastAltVar, currRing); // kill suares in input! 630 } 631 #endif 632 615 633 int typ0; 616 634 syStrategy result=(syStrategy)omAlloc0(sizeof(ssyStrategy)); 617 635 618 if ((w!=NULL) && (!idTestHomModule(arg,currQuotient,w))) 636 if ((w!=NULL) && (!idTestHomModule(arg,currQuotient,w))) // is this right in SCA case??? 619 637 { 620 638 WarnS("wrong weights given(2):");w->show();PrintLn(); … … 647 665 } 648 666 omFreeSize((ADDRESS)fr,(result->length)*sizeof(ideal)); 667 668 669 #ifdef HAVE_PLURAL 670 if( rIsSCA(currRing) ) 671 { 672 currQuotient = idSaveCurrQuotient; 673 currRing->qideal = idSaveCurrRingQuotient; 674 675 id_Delete(&arg, currRing); 676 } 677 #endif 678 679 649 680 return result; 650 681 }
Note: See TracChangeset
for help on using the changeset viewer.