Changeset 2147

Show
Ignore:
Timestamp:
01/08/99 10:08:31 (16 years ago)
Author:
ucackha
Message:

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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • rat/trunk/tcltk.c

    r2144 r2147  
    193193 
    194194        if (sp->mode == AUDIO_TOOL) { 
    195                 if (Tcl_EvalObj(interp, Tcl_NewStringObj(ui_audiotool, strlen(ui_audiotool))) != TCL_OK) { 
     195                int      len           = strlen(ui_audiotool); 
     196                Tcl_Obj *audiotool_obj = Tcl_NewStringObj(ui_audiotool, strlen(ui_audiotool)); 
     197                debug_msg("ui_script len %d bytes\n", len); 
     198                if (Tcl_EvalObj(interp, audiotool_obj) != TCL_OK) { 
    196199                        fprintf(stderr, "ui_audiotool error: %s\n", interp->result); 
    197200                }