Changeset 7acd5f in git


Ignore:
Timestamp:
May 15, 2000, 4:21:45 PM (24 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
Children:
2d2cad9977bf9fafe63dcfe797a92cb67a0c2491
Parents:
e3315975c336d12ce993c6847c993fa709cbb7a0
Message:
*hannes; allow minpoly=0 always


git-svn-id: file:///usr/local/Singular/svn/trunk@4333 2c84dea3-7e68-4137-9b89-c4e89433aadc
File:
1 edited

Legend:

Unmodified
Added
Removed
  • Singular/ipassign.cc

    re331597 r7acd5f  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: ipassign.cc,v 1.54 2000-05-15 14:11:02 Singular Exp $ */
     4/* $Id: ipassign.cc,v 1.55 2000-05-15 14:21:45 Singular Exp $ */
    55
    66/*
     
    116116static BOOLEAN jjMINPOLY(leftv res, leftv a)
    117117{
    118   if ((rPar(currRing)!=1)
    119     || (rField_is_GF()))
    120   {
    121     WerrorS("no minpoly allowed");
    122     return TRUE;
    123   }
    124   if (currRing->minpoly!=NULL)
    125   {
    126     WerrorS("minpoly already set");
    127     return TRUE;
    128   }
    129118  number p=(number)a->CopyD(NUMBER_CMD);
    130   if (!nIsZero(p))
    131   {
     119  if (nIsZero(p))
     120  {
     121    currRing->minpoly=NULL;
     122    naMinimalPoly=NULL;
     123  }
     124  else
     125  {
     126    if ((rPar(currRing)!=1)
     127      || (rField_is_GF()))
     128    {
     129      WerrorS("no minpoly allowed");
     130      return TRUE;
     131    }
     132    if (currRing->minpoly!=NULL)
     133    {
     134      WerrorS("minpoly already set");
     135      return TRUE;
     136    }
    132137    nNormalize(p);
    133138    currRing->minpoly=p;
    134139    naMinimalPoly=((lnumber)currRing->minpoly)->z;
    135   }
    136   else
    137   {
    138     naMinimalPoly=NULL;
    139140  }
    140141  return FALSE;
Note: See TracChangeset for help on using the changeset viewer.