Changeset 7692efc in git for external/tcl/tclProc.c

Timestamp:

Aug 16, 2019, 11:14:50 AM (5 years ago)

Author:

Michele Selvaggi <michele.selvaggi@…>

Branches:

ImprovedOutputFile, Timing, master

Children:

0e7d64a

Parents:

94f8f5f (diff), 270bd4f (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent.

Message:

Merge branch 'master' of github.com:delphes/delphes

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);
-        }
         
         /*