diff options
author | Steve Bennett <steveb@workware.net.au> | 2011-07-31 09:47:03 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2011-07-31 09:47:03 +1000 |
commit | 1500759453e7619ba2473669fcf463dba0f9c840 (patch) | |
tree | c5cdfd4b5fdc78b4e64a0aa71dede8068eb3a02a | |
parent | bca1530aa96c2aae1c6405667ec5bb8c24ee2a5c (diff) | |
download | jimtcl-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.c | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -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); |