Changes in external/tcl/tclProc.c [d7d2da3:adeddd8] in git

File:

• external/tcl/tclProc.c (modified) (2 diffs)

external/tcl/tclProc.c

@@ -985 +985 @@
      */
 
-    if (tclTraceExec >= 1) {
-        fprintf(stdout, "Calling proc ");
-        for (i = 0;  i < objc;  i++) {
-            bytes = Tcl_GetStringFromObj(objv[i], &length);
-            TclPrintSource(stdout, bytes, TclMin(length, 15));
-            fprintf(stdout, " ");
-        }
-        fprintf(stdout, "\n");
-        fflush(stdout);
-    }
-
     iPtr->returnCode = TCL_OK;
     procPtr->refCount++;
@@ -1119 +1108 @@
         int numChars;
         char *ellipsis;
-        
-        if (tclTraceCompile >= 1) {
-            /*
-             * Display a line summarizing the top level command we
-             * are about to compile.
-             */
- 
-            numChars = strlen(procName);
-            ellipsis = "";
-            if (numChars > 50) {
-                numChars = 50;
-                ellipsis = "...";
-            }
-            fprintf(stdout, "Compiling %s \"%.*s%s\"\n",
-                    description, numChars, procName, ellipsis);
-        }
         
         /*