Changeset e0749e8 in git for Singular/iplib.cc

Timestamp:

Oct 25, 2005, 7:14:12 PM (18 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

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:

• Singular/iplib.cc (modified) (2 diffs)

Singular/iplib.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iplib.cc,v 1.118 2005-10-11 11:31:08 Singular Exp $ */
+/* $Id: iplib.cc,v 1.119 2005-10-25 17:14:12 Singular Exp $ */
 /*
 * ABSTRACT: interpreter: LIB and help
@@ -324 +324 @@
   /* start interpreter ======================================*/
   myynest++;
-  err=yyparse();
+  if (myynest > 1000)
+  {
+    WerrorS("nesting too deep (>1000)");
+    err=TRUE;
+  }
+  else
+  {
+    err=yyparse();
 #ifdef HAVE_NS
 #ifndef NDEBUG
-  checkall();
-#endif
-#endif
-  if (sLastPrinted.rtyp!=0)
-  {
-    sLastPrinted.CleanUp();
-  }
-  //Print("kill locals for %s (level %d)\n",IDID(pn),myynest);
-  killlocals(myynest);
+    checkall();
+#endif
+#endif
+    if (sLastPrinted.rtyp!=0)
+    {
+      sLastPrinted.CleanUp();
+    }
+    //Print("kill locals for %s (level %d)\n",IDID(pn),myynest);
+    killlocals(myynest);
 #ifdef HAVE_NS
 #ifndef NDEBUG
-  checkall();
-#endif
-#endif
-  //Print("end kill locals for %s (%d)\n",IDID(pn),myynest);
+    checkall();
+#endif
+#endif
+    //Print("end kill locals for %s (%d)\n",IDID(pn),myynest);
+  }
   myynest--;
   si_echo=old_echo;