Changeset f0f2fea in git


Ignore:
Timestamp:
Jul 31, 2010, 11:24:30 AM (14 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'spielwiese', '4a9821a93ffdc22a6696668bd4f6b8c9de3e6c5f')
Children:
c5e0e120f508ee9b07dab3a5e39ea7f84a4bc0f0
Parents:
ad095b3a00044601d1cdfcee9df36fec22361a1b
Message:
tr. 245: test for ring-cf case

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

Legend:

Unmodified
Added
Removed

  • Singular/iparith.cc

    rad095b rf0f2fea  
    85948594      {
    85958595        int r=res->rtyp=dArith1[i].res;
    8596         #ifdef HAVE_PLURAL
    8597         if ((currRing!=NULL) && (rIsPluralRing(currRing)))
    8598         {
    8599           if ((dArith1[i].valid_for &PLURAL_MASK)==0 /*NO_PLURAL*/)
     8596        if (currRing!=NULL)
     8597        {
     8598          #ifdef HAVE_PLURAL
     8599          if ((currRing!=NULL) && (rIsPluralRing(currRing)))
    86008600          {
    8601             WerrorS(ii_not_for_plural);
    8602             break;
     8601            if ((dArith1[i].valid_for &PLURAL_MASK)==0 /*NO_PLURAL*/)
     8602            {
     8603              WerrorS(ii_not_for_plural);
     8604              break;
     8605            }
     8606            else if ((dArith1[i].valid_for &PLURAL_MASK)==2 /*, COMM_PLURAL */)
     8607            {
     8608              Warn("assume commutative subalgebra for cmd `%s`",Tok2Cmdname(i));
     8609            }
     8610            /* else, ALLOW_PLURAL */
    86038611          }
    8604           else if ((dArith1[i].valid_for &PLURAL_MASK)==2 /*, COMM_PLURAL */)
     8612          #endif
     8613          #ifdef HAVE_RINGS
     8614          if (rField_is_Ring(currRing))
    86058615          {
    8606             Warn("assume commutative subalgebra for cmd `%s`",Tok2Cmdname(i));
     8616            if ((dArith1[i].valid_for & RING_MASK)==0 /*NO_RING*/)
     8617            {
     8618              WerrorS(ii_not_for_ring);
     8619              break;
     8620            }
     8621            /* else ALLOW_RING */
    86078622          }
    8608           /* else, ALLOW_PLURAL */
    8609         }
    8610         #endif
     8623          #endif
     8624        }
    86118625        if (r<0)
    86128626        {
    … …  
    87788792      {
    87798793        res->rtyp=dArith3[i].res;
    8780         #ifdef HAVE_PLURAL
    8781         if ((currRing!=NULL) && (rIsPluralRing(currRing)))
    8782         {
     8794        if (currRing!=NULL)
     8795        {
     8796          #ifdef HAVE_PLURAL
     8797          if (rIsPluralRing(currRing))
     8798          {
    87838799            if ((dArith3[i].valid_for &PLURAL_MASK)==0 /*NO_PLURAL*/)
    87848800            {
    … …  
    87918807            }
    87928808            /* else, ALLOW_PLURAL */
    8793         }
    8794         #endif
     8809          }
     8810          #endif
     8811          #ifdef HAVE_RINGS
     8812          if (rField_is_Ring(currRing))
     8813          {
     8814            if ((dArith3[i].valid_for & RING_MASK)==0 /*NO_RING*/)
     8815            {
     8816              WerrorS(ii_not_for_ring);
     8817              break;
     8818            }
     8819            /* else ALLOW_RING */
     8820          }
     8821          #endif
     8822        }
    87958823        if ((call_failed=dArith3[i].p(res,a,b,c)))
    87968824        {
    … …  
    90089036      {
    90099037        res->rtyp=dArithM[i].res;
    9010         #ifdef HAVE_PLURAL
    9011         if ((currRing!=NULL)
    9012         && (rIsPluralRing(currRing)))
    9013         {
    9014           if ((dArithM[i].valid_for &PLURAL_MASK)==0 /*NO_PLURAL*/)
     9038        if (currRing!=NULL)
     9039        {
     9040          #ifdef HAVE_PLURAL
     9041          if (rIsPluralRing(currRing))
    90159042          {
    9016             WerrorS(ii_not_for_plural);
    9017             break;
     9043            if ((dArithM[i].valid_for &PLURAL_MASK)==0 /*NO_PLURAL*/)
     9044            {
     9045              WerrorS(ii_not_for_plural);
     9046              break;
     9047            }
     9048            else if ((dArithM[i].valid_for &PLURAL_MASK)==2 /*, COMM_PLURAL */)
     9049            {
     9050              Warn("assume commutative subalgebra for cmd `%s`",Tok2Cmdname(i));
     9051            }
     9052            /* else ALLOW_PLURAL */
    90189053          }
    9019           else if ((dArithM[i].valid_for &PLURAL_MASK)==2 /*, COMM_PLURAL */)
     9054          #endif
     9055          #ifdef HAVE_RINGS
     9056          if (rField_is_Ring(currRing))
    90209057          {
    9021             Warn("assume commutative subalgebra for cmd `%s`",Tok2Cmdname(i));
     9058            if ((dArithM[i].valid_for & RING_MASK)==0 /*NO_RING*/)
     9059            {
     9060              WerrorS(ii_not_for_ring);
     9061              break;
     9062            }
     9063            /* else ALLOW_RING */
    90229064          }
    9023           /* else ALLOW_PLURAL */
    9024         }
    9025         #endif
     9065          #endif
     9066        }
    90269067        if (dArithM[i].p(res,a))
    90279068        {
Note: See TracChangeset for help on using the changeset viewer.