aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSteve Bennett <steveb@workware.net.au>2011-07-31 09:47:03 +1000
committerSteve Bennett <steveb@workware.net.au>2011-07-31 09:47:03 +1000
commit1500759453e7619ba2473669fcf463dba0f9c840 (patch)
treec5cdfd4b5fdc78b4e64a0aa71dede8068eb3a02a
parentbca1530aa96c2aae1c6405667ec5bb8c24ee2a5c (diff)
downloadjimtcl-1500759453e7619ba2473669fcf463dba0f9c840.zip
jimtcl-1500759453e7619ba2473669fcf463dba0f9c840.tar.gz
jimtcl-1500759453e7619ba2473669fcf463dba0f9c840.tar.bz2
debug show should not force object to 'string'
Signed-off-by: Steve Bennett <steveb@workware.net.au>
-rw-r--r--jim.c6
1 files changed, 5 insertions, 1 deletions
diff --git a/jim.c b/jim.c
index dd578ef..b19f85b 100644
--- a/jim.c
+++ b/jim.c
@@ -12133,7 +12133,11 @@ static int Jim_DebugCoreCommand(Jim_Interp *interp, int argc, Jim_Obj *const *ar
return JIM_ERR;
}
s = Jim_GetString(argv[2], &len);
- charlen = Jim_Utf8Length(interp, argv[2]);
+#ifdef JIM_UTF8
+ charlen = utf8_strlen(s, len);
+#else
+ charlen = len;
+#endif
printf("refcount: %d, type: %s\n", argv[2]->refCount, JimObjTypeName(argv[2]));
printf("chars (%d): <<%s>>\n", charlen, s);
printf("bytes (%d):", len);