Changeset b77927 in git


Ignore:
Timestamp:
May 16, 1998, 2:15:27 PM (25 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')
Children:
682d063f0f123dc0979146af4b7370134cbabdaa
Parents:
ebecf83da487f4114cc92e8fb8979e46d7ee9f26
Message:
* hanens:avoid multiple objects of the same name (fix keepring)


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

Legend:

Unmodified
Added
Removed
  • Singular/ChangeLog

    rebecf83 rb77927  
     1Sat May 16 14:14:20 MET DST 1998 hannes
     2* avoid multiple objects of the same name (fix keepring)
    13Fri May 15 18:02:57 MET DST 1998 hannes
    24* added type conversion: ideal(map) -> map
  • Singular/grammar.y

    rebecf83 rb77927  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: grammar.y,v 1.35 1998-05-15 11:07:24 Singular Exp $ */
     4/* $Id: grammar.y,v 1.36 1998-05-16 12:15:27 Singular Exp $ */
    55/*
    66* ABSTRACT: SINGULAR shell grammatik
     
    781781            if(iiExprArith2(&$$,&$1,DOTDOT,&$3)) YYERROR;
    782782          }
    783         | NOT expr 
     783        | NOT expr
    784784          {
    785785            memset(&$$,0,sizeof($$));
     
    10971097killcmd:
    10981098        KILL_CMD exprlist
    1099         {
     1099        {
    11001100          leftv v=&$2;
    11011101          do
     
    11131113          } while (v!=NULL);
    11141114          $2.CleanUp();
    1115         }
     1115        }
    11161116        ;
    11171117
     
    11731173          {
    11741174            //noringvars = FALSE;
    1175             idhdl b=
    1176             rInit($2.name,        /* ringname */
     1175            idhdl b=
     1176            rInit($2.name,        /* ringname */
    11771177                  &$4,            /* characteristik and list of parameters*/
    11781178                  &$6,            /* names of ringvariables */
     
    12491249                    //{
    12501250                      idhdl p=IDRING(h)->idroot;
     1251                      idhdl root=p;
    12511252                      int prevlev=myynest-1;
    12521253                      while (p!=NULL)
    12531254                      {
    1254                         if (IDLEV(p)==myynest) IDLEV(p)=prevlev;
     1255                        if (IDLEV(p)==myynest)
     1256                        {
     1257                          idhdl old=root->get(IDID(p),prevlev);
     1258                          if (old!=NULL)
     1259                          {
     1260                            if (BVERBOSE(V_REDEFINE))
     1261                              Warn("redefining %s",IDID(p));
     1262                            killhdl(old,&root);
     1263                          }
     1264                          IDLEV(p)=prevlev;
     1265                        }
    12551266                        p=IDNEXT(p);
    12561267                      }
Note: See TracChangeset for help on using the changeset viewer.