Changeset 3074334 in git


Ignore:
Timestamp:
Oct 30, 1998, 8:11:55 PM (26 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'c7af8613769b29c741d6c338945669719f1fc4f8')
Children:
9dfc1bc6ba8cf5acb1a7ae30117ba921fadca819
Parents:
090fc84002c344aa561aa86d949d793e658f2127
Message:
*hannes: attribute fixes


git-svn-id: file:///usr/local/Singular/svn/trunk@2624 2c84dea3-7e68-4137-9b89-c4e89433aadc
Location:
Singular
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • Singular/grammar.y

    r090fc84 r3074334  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: grammar.y,v 1.52 1998-10-30 18:45:49 Singular Exp $ */
     4/* $Id: grammar.y,v 1.53 1998-10-30 19:11:55 Singular Exp $ */
    55/*
    66* ABSTRACT: SINGULAR shell grammatik
     
    473473              pSetCompP(p,++j);
    474474              int k = (int)(v->Data());
    475               //if (k!=0)
    476               //{
    477                 int i,t;
    478                 sleftv tmp;
    479                 memset(&tmp,0,sizeof(tmp));
    480                 i=iiTestConvert((t=v->Typ()),POLY_CMD);
    481                 if((i==0) || (iiConvert(t /*v->Typ()*/,POLY_CMD,i,v,&tmp)))
    482                 {
    483                   pDelete(&p);
    484                   pDelete((poly *)&$$.data);
    485                   $2.CleanUp();
    486                   MYYERROR("expected '[poly,...'");
    487                 }
    488                 $$.data = (void *)pAdd((poly)$$.data,
     475              int i,t;
     476              sleftv tmp;
     477              memset(&tmp,0,sizeof(tmp));
     478              i=iiTestConvert((t=v->Typ()),POLY_CMD);
     479              if((i==0) || (iiConvert(t /*v->Typ()*/,POLY_CMD,i,v,&tmp)))
     480              {
     481                pDelete1(&p);
     482                pDelete((poly *)&$$.data);
     483                $2.CleanUp();
     484                MYYERROR("expected '[poly,...'");
     485              }
     486              $$.data = (void *)pAdd((poly)$$.data,
    489487                                               pMult(p,(poly)tmp.CopyD()));
    490                 v->next=tmp.next;tmp.next=NULL;
    491                 tmp.CleanUp();
    492               //}
    493               //else
    494               //  pDelete1(&p);
     488              v->next=tmp.next;tmp.next=NULL;
     489              tmp.CleanUp();
    495490              v=v->next;
    496491            }
  • Singular/subexpr.cc

    r090fc84 r3074334  
    115115            if(((package)d)->libname!=NULL)
    116116              ::Print("// libname : %s\n", ((package)d)->libname);
    117            
     117
    118118            ::Print("// language: %-*.*s%s",spaces,spaces," ",typ);
    119119          }
     
    251251      store->rtyp=t/*Typ()*/;
    252252      store->data=CopyD();
     253      if((e!=NULL)||(attribute!=NULL))
     254      {
     255        store->attribute=CopyA();
     256      }
     257      if (e==NULL)
     258      {
     259        store->flag=flag;
     260      }
     261      //else
     262      //{
     263      //}
    253264    }
    254265  }
     
    263274  }
    264275  name=NULL;
     276  flag=0;
    265277#ifdef HAVE_NAMESPACES
    266278  packhdl = NULL;
     
    561573      #endif
    562574    }
    563     flag=source->flag;
    564575#ifdef HAVE_NAMESPACES
    565576    packhdl = source->packhdl;
     
    568579    if ((source->attribute!=NULL)||(source->e!=NULL))
    569580      attribute=source->CopyA();
     581    if(source->e==NULL)
     582    {
     583      flag=source->flag;
     584    }
     585    //else
     586    //{
     587    //}
    570588    if (source->next!=NULL)
    571589    {
Note: See TracChangeset for help on using the changeset viewer.