Changeset fe7fe88 in git


Ignore:
Timestamp:
Feb 13, 2014, 8:56:27 AM (10 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
Children:
9006a0c407c5d3ba0a6b0a0fd1f610fe62afd1e4
Parents:
c3cc38b83fd81b94849d3c15571059e901c02dca
Message:
fix: assigning minpoly
File:
1 edited

Legend:

Unmodified
Added
Removed
  • Singular/ipassign.cc

    rc3cc38 rfe7fe88  
    223223
    224224  number p = (number)a->CopyD(NUMBER_CMD);
     225  n_Normalize(p, currRing->cf);
    225226
    226227  if (n_IsZero(p, currRing->cf))
    227228  {
    228229    n_Delete(&p, currRing);
    229 
    230 
    231230    if( nCoeff_is_transExt(currRing->cf) )
    232231    {
     
    236235      return FALSE;
    237236    }
    238 
    239237    WarnS("cannot set minpoly to 0 / alg. extension?");
    240 
    241 //    return TRUE;
     238    return TRUE;
    242239  }
    243240
     
    250247    killhdl2(currRing->idroot,&(currRing->idroot),currRing);
    251248  }
    252 
    253   n_Normalize(p, currRing->cf);
    254249
    255250  assume( currRing->cf->extRing->qideal == NULL );
Note: See TracChangeset for help on using the changeset viewer.