Changeset 9dfc1bc in git


Ignore:
Timestamp:
Nov 2, 1998, 9:45:05 AM (26 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'c7af8613769b29c741d6c338945669719f1fc4f8')
Children:
0c613546d39f9ca06e3380da347b6f1f81fe10b9
Parents:
307433474931d98c8be2eb484bdbb333650ad3fa
Message:
*hannes: vector input


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

Legend:

Unmodified
Added
Removed
  • Singular/grammar.y

    r3074334 r9dfc1bc  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: grammar.y,v 1.53 1998-10-30 19:11:55 Singular Exp $ */
     4/* $Id: grammar.y,v 1.54 1998-11-02 08:45:05 Singular Exp $ */
    55/*
    66* ABSTRACT: SINGULAR shell grammatik
     
    470470            while (v!=NULL)
    471471            {
    472               poly p = pOne();
    473               pSetCompP(p,++j);
    474               int k = (int)(v->Data());
    475472              int i,t;
    476473              sleftv tmp;
     
    479476              if((i==0) || (iiConvert(t /*v->Typ()*/,POLY_CMD,i,v,&tmp)))
    480477              {
    481                 pDelete1(&p);
    482478                pDelete((poly *)&$$.data);
    483479                $2.CleanUp();
    484480                MYYERROR("expected '[poly,...'");
    485481              }
    486               $$.data = (void *)pAdd((poly)$$.data,
    487                                                pMult(p,(poly)tmp.CopyD()));
     482              poly p = (poly)tmp.CopyD();
     483              pSetCompP(p,++j);
     484              $$.data = (void *)pAdd((poly)$$.data,p);
    488485              v->next=tmp.next;tmp.next=NULL;
    489486              tmp.CleanUp();
Note: See TracChangeset for help on using the changeset viewer.