Changeset e0749e8 in git


Ignore:
Timestamp:
Oct 25, 2005, 7:14:12 PM (19 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '648d28f488f6ff08f5607ff229b9ad9e4a5b93c2')
Children:
2971ea6f2b7ed7331e23db7e6ddfb028a2239a36
Parents:
2a8ba2f495d0eef78f76a200311e4ef726eabbf2
Message:
*hannes: restrict max nesting too 1000


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

Legend:

Unmodified
Added
Removed
  • Singular/iplib.cc

    r2a8ba2 re0749e8  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: iplib.cc,v 1.118 2005-10-11 11:31:08 Singular Exp $ */
     4/* $Id: iplib.cc,v 1.119 2005-10-25 17:14:12 Singular Exp $ */
    55/*
    66* ABSTRACT: interpreter: LIB and help
     
    324324  /* start interpreter ======================================*/
    325325  myynest++;
    326   err=yyparse();
     326  if (myynest > 1000)
     327  {
     328    WerrorS("nesting too deep (>1000)");
     329    err=TRUE;
     330  }
     331  else
     332  {
     333    err=yyparse();
    327334#ifdef HAVE_NS
    328335#ifndef NDEBUG
    329   checkall();
    330 #endif
    331 #endif
    332   if (sLastPrinted.rtyp!=0)
    333   {
    334     sLastPrinted.CleanUp();
    335   }
    336   //Print("kill locals for %s (level %d)\n",IDID(pn),myynest);
    337   killlocals(myynest);
     336    checkall();
     337#endif
     338#endif
     339    if (sLastPrinted.rtyp!=0)
     340    {
     341      sLastPrinted.CleanUp();
     342    }
     343    //Print("kill locals for %s (level %d)\n",IDID(pn),myynest);
     344    killlocals(myynest);
    338345#ifdef HAVE_NS
    339346#ifndef NDEBUG
    340   checkall();
    341 #endif
    342 #endif
    343   //Print("end kill locals for %s (%d)\n",IDID(pn),myynest);
     347    checkall();
     348#endif
     349#endif
     350    //Print("end kill locals for %s (%d)\n",IDID(pn),myynest);
     351  }
    344352  myynest--;
    345353  si_echo=old_echo;
Note: See TracChangeset for help on using the changeset viewer.