Changeset fc8d35 in git


Ignore:
Timestamp:
Mar 24, 2011, 4:22:39 PM (13 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '3720ae8bfcff4a4649ee98a15552089151d2d59b')
Children:
0dfa244172c41202ec5a6f6e99d2e04d2f572a2f
Parents:
22d1b1b8711921372328997bce54200d7b93ac90
Message:
fix tr. 120

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

Legend:

Unmodified
Added
Removed
  • Singular/ipassign.cc

    r22d1b1b rfc8d35  
    601601  if ((idElem(id)>1) || rIsSCA(currRing) || (currRing->qideal!=NULL))
    602602    assumeStdFlag(a);
    603    
     603
    604604#ifdef HAVE_RINGS
    605605  if (rField_is_Ring(currRing))
     
    781781          failed= dAssign[i].p(ld,rn,l->e);
    782782          if (TEST_V_ALLWARN)
    783             Print("assign %s=%s ok? %d\n",Tok2Cmdname(lt),Tok2Cmdname(rn->rtyp),!failed);
     783            Print("assign %s=%s ok? %d\n",Tok2Cmdname(lt),Tok2Cmdname(rn->rtyp),!failed);
    784784        }
    785785        // everything done, clean up temp. variables
     
    10431043  while (hh!=NULL)
    10441044  {
    1045     if (i>=iv->length()) break;
     1045    if (i>=iv->length())
     1046    {
     1047      if (TEST_V_ALLWARN)
     1048      {
     1049        Warn("expression list length(%d) does not match intmat size(%d)",
     1050              iv->length()+exprlist_length(hh),iv->length());
     1051      }
     1052      break;
     1053    }
    10461054    if (hh->Typ() == INT_CMD)
    10471055    {
     
    13821390          l->e=h;
    13831391        }
    1384         if ((!b) && (like_lists==1))
    1385         {
    1386           // check blackbox/newtype type:
    1387           if(bb->blackbox_Check(bb,l->Data())) return TRUE;
    1388         }
     1392        if ((!b) && (like_lists==1))
     1393        {
     1394          // check blackbox/newtype type:
     1395          if(bb->blackbox_Check(bb,l->Data())) return TRUE;
     1396        }
    13891397        return b;
    13901398      }
     
    13931401    rl=r->listLength();
    13941402    if (rl==1)
    1395     {               
     1403    {
    13961404      /* system variables = ... */
    13971405      if(((l->rtyp>=VECHO)&&(l->rtyp<=VPRINTLEVEL))
     
    15381546        num=olm->cols()*olm->rows();
    15391547        lm=mpNew(olm->rows(),olm->cols());
     1548        int el;
     1549        if ((TEST_V_ALLWARN) && (num!=(el=exprlist_length(hh))))
     1550        {
     1551          Warn("expression list length(%d) does not match matrix size(%d)",el,num);
     1552        }
    15401553      }
    15411554      else /* IDEAL_CMD or MODUL_CMD */
Note: See TracChangeset for help on using the changeset viewer.