Changeset 2147

Timestamp:

01/08/99 10:08:31 (14 years ago)

Author:

ucackha

Message:

- Added debugging info for win32 since insure++ complains script length is too long for strlen(?).

Files:

• rat/trunk/tcltk.c (modified) (1 diff)

rat/trunk/tcltk.c

@@ -193 +193 @@
 
         if (sp->mode == AUDIO_TOOL) {
-                if (Tcl_EvalObj(interp, Tcl_NewStringObj(ui_audiotool, strlen(ui_audiotool))) != TCL_OK) {
+                int      len           = strlen(ui_audiotool);
+                Tcl_Obj *audiotool_obj = Tcl_NewStringObj(ui_audiotool, strlen(ui_audiotool));
+                debug_msg("ui_script len %d bytes\n", len);
+                if (Tcl_EvalObj(interp, audiotool_obj) != TCL_OK) {
                         fprintf(stderr, "ui_audiotool error: %s\n", interp->result);
                 }