Changes in external/tcl/tclProc.c [adeddd8:d7d2da3] 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++;
@@ -1108 +1119 @@
         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);
+        }
         
         /*