Changeset 6575 for nanoscale

Timestamp:

Nov 7, 2016 12:42:52 AM (8 years ago)

Author:

ldelgass

Message:

check for max servers in tcl parser

File:

• nanoscale/trunk/tclparser.c (modified) (1 diff)

nanoscale/trunk/tclparser.c

@@ -128 +128 @@
     }
     serverName = Tcl_GetString(objv[1]);
+    if (*s_numServers+1 >= MAX_SERVERS) {
+        Tcl_AppendResult(interp, "Too many servers in configuration", (char *)NULL);
+        return TCL_ERROR;
+    }
     serverPtr = NewServer(serverName);
     if (serverPtr == NULL) {