diff options
-rw-r--r-- | jim.c | 4 | ||||
-rw-r--r-- | regtest.tcl | 5 |
2 files changed, 7 insertions, 2 deletions
@@ -9757,8 +9757,8 @@ static int SetScanFmtFromAny(Jim_Interp *interp, Jim_Obj *objPtr) ScanFmtStringObj *fmtObj; char *buffer; int maxCount, i, approxSize, lastPos = -1; - const char *fmt = objPtr->bytes; - int maxFmtLen = objPtr->length; + const char *fmt = Jim_String(objPtr); + int maxFmtLen = Jim_Length(objPtr); const char *fmtEnd = fmt + maxFmtLen; int curr; diff --git a/regtest.tcl b/regtest.tcl index 033f430..854d96a 100644 --- a/regtest.tcl +++ b/regtest.tcl @@ -320,6 +320,11 @@ puts "TEST 44 PASSED" catch [list regexp "u{0" x] puts "TEST 45 PASSED" +# REGTEST 46 +# scan with no stringrep +catch {scan $(1) $(1)} +puts "TEST 46 PASSED" + # TAKE THE FOLLOWING puts AS LAST LINE puts "--- ALL TESTS PASSED ---" |