Changeset 0d008d in git


Ignore:
Timestamp:
Feb 24, 2012, 11:22:47 AM (12 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '4188d308699580d975efd0f6cca8dcb41c396f70')
Children:
80c87acb77e03ca7f5306ad9570c84bf74f61cb9
Parents:
2bc7fb980b5f9f7f028270339eb802b8f506c01e
git-author:
Hans Schoenemann <hannes@mathematik.uni-kl.de>2012-02-24 11:22:47+01:00
git-committer:
Andreas Steenpass <steenpass@mathematik.uni-kl.de>2013-09-19 10:05:26+02:00
Message:
fix: allow assignment def=def (for "undefinig" list entries)
(cherry picked from commit ee5be4b44ef3710c997a64552e4bf48a604dd4b3)

Signed-off-by: Andreas Steenpass <steenpass@mathematik.uni-kl.de>
File:
1 edited

Legend:

Unmodified
Added
Removed
  • Singular/ipassign.cc

    r2bc7fb r0d008d  
    822822  return FALSE;
    823823}
     824static BOOLEAN jiA_DEF(leftv res, leftv a, Subexpr e)
     825{
     826  res->data=(void *)0;
     827  return FALSE;
     828}
    824829/*=================== table =================*/
    825830#define IPASSIGN
     
    858863  if (lt==DEF_CMD)
    859864  {
    860     if (rt!=DEF_CMD)
    861     {
    862       if (l->rtyp==IDHDL)
    863       {
    864         IDTYP((idhdl)l->data)=rt;
    865       }
    866       else if (l->name!=NULL)
    867       {
    868         sleftv ll;
    869         iiDeclCommand(&ll,l,myynest,rt,&IDROOT);
    870         memcpy(l,&ll,sizeof(sleftv));
    871       }
    872       else
    873       {
    874         l->rtyp=rt;
    875       }
    876       lt=rt;
    877     }
    878     // else: def=def: silently ignored
     865    if (l->rtyp==IDHDL)
     866    {
     867      IDTYP((idhdl)l->data)=rt;
     868    }
     869    else if (l->name!=NULL)
     870    {
     871      sleftv ll;
     872      iiDeclCommand(&ll,l,myynest,rt,&IDROOT);
     873      memcpy(l,&ll,sizeof(sleftv));
     874    }
     875    else
     876    {
     877      l->rtyp=rt;
     878    }
     879    lt=rt;
    879880  }
    880881  else
Note: See TracChangeset for help on using the changeset viewer.