From d8aadedcd8f7fb104306a72727e64954ae465851 Mon Sep 17 00:00:00 2001
From: Ivica Ico Bukvic <ico@vt.edu>
Date: Fri, 30 Aug 2013 03:05:16 -0400
Subject: [PATCH] disabled error reporting in t_tkcmd.c
---
pd/src/t_tkcmd.c | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/pd/src/t_tkcmd.c b/pd/src/t_tkcmd.c
index 7737f9c0c..32102133a 100644
--- a/pd/src/t_tkcmd.c
+++ b/pd/src/t_tkcmd.c
@@ -555,10 +555,10 @@ static int pdCmd(ClientData cd, Tcl_Interp *interp, int argc, char **argv)
void tcl_mess(char *s)
{
int result;
- //char catch_s[strlen(s)+10];
- //sprintf(catch_s, "catch { %s }", s);
- char catch_s[strlen(s)];
- sprintf(catch_s, "%s", s);
+ char catch_s[strlen(s)+10];
+ sprintf(catch_s, "catch { %s }", s);
+ //char catch_s[strlen(s)];
+ //sprintf(catch_s, "%s", s);
Tcl_Obj *messageObjPtr = Tcl_NewStringObj(catch_s,-1);
Tcl_IncrRefCount(messageObjPtr);
result = Tcl_EvalObjEx(tk_pdinterp, messageObjPtr, TCL_EVAL_GLOBAL);
--
GitLab