Changeset e40145 in git


Ignore:
Timestamp:
Nov 20, 2013, 3:57:53 PM (9 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '48f1dd268d0ff74ef2f7dccbf02545425002ddcc')
Children:
a9c2986e020e2efafd15932b4d1b2b2fa77407e4
Parents:
9aa61ab499a2001f8d1e5112b9908742b2f69659
git-author:
Hans Schoenemann <hannes@mathematik.uni-kl.de>2013-11-20 15:57:53+01:00
git-committer:
Hans Schoenemann <hannes@mathematik.uni-kl.de>2013-11-20 16:54:42+01:00
Message:
fix: assign expr_list to list elements: l[1]=1:2;l[1]=l[1],2;
File:
1 edited

Legend:

Unmodified
Added
Removed
  • Singular/ipassign.cc

    r9aa61a re40145  
    12221222    hh = hh->next;
    12231223  }
    1224   if (IDINTVEC((idhdl)l->data)!=NULL) delete IDINTVEC((idhdl)l->data);
    1225   IDINTVEC((idhdl)l->data)=iv;
     1224  if (l->rtyp==IDHDL)
     1225  {
     1226    if (IDINTVEC((idhdl)l->data)!=NULL) delete IDINTVEC((idhdl)l->data);
     1227    IDINTVEC((idhdl)l->data)=iv;
     1228  }
     1229  else
     1230  {
     1231    if (l->data!=NULL) delete ((intvec*)l->data);
     1232    l->data=(char*)iv;
     1233  }
    12261234  return FALSE;
    12271235}
     
    14551463  if (/*(ld->rtyp!=LIST_CMD)
    14561464  &&*/(ld->e==NULL)
    1457   &&(ld->Typ()!=r->Typ()))
     1465  && (ld->Typ()!=r->Typ()))
    14581466  {
    14591467    sleftv tmp;
    14601468    memset(&tmp,0,sizeof(sleftv));
    14611469    tmp.rtyp=DEF_CMD;
     1470    b=iiAssign(&tmp,r);
     1471    ld->CleanUp();
     1472    memcpy(ld,&tmp,sizeof(sleftv));
     1473  }
     1474  else if ((ld->e==NULL)
     1475  && (ld->Typ()==r->Typ())
     1476  && (ld->Typ()<MAX_TOK))
     1477  {
     1478    sleftv tmp;
     1479    memset(&tmp,0,sizeof(sleftv));
     1480    tmp.rtyp=r->Typ();
     1481    tmp.data=(char*)idrecDataInit(r->Typ());
    14621482    b=iiAssign(&tmp,r);
    14631483    ld->CleanUp();
Note: See TracChangeset for help on using the changeset viewer.