diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-12-12 14:15:11 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-12-12 14:15:11 (GMT) |
| commit | 79a6447c8940471e466ce68835eb49ddc331554f (patch) | |
| tree | 337ac770ff64cdf7b7b89d29741738051cfef261 /generic/tclScan.c | |
| parent | 4e3f48519de94df6b76f852d5af5926088f11e9a (diff) | |
| download | tcl-79a6447c8940471e466ce68835eb49ddc331554f.zip tcl-79a6447c8940471e466ce68835eb49ddc331554f.tar.gz tcl-79a6447c8940471e466ce68835eb49ddc331554f.tar.bz2 | |
Proposed fix for [c4f365470e]: Size modifiers j, q, z, t not implemented
Diffstat (limited to 'generic/tclScan.c')
| -rw-r--r-- | generic/tclScan.c | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/generic/tclScan.c b/generic/tclScan.c index 48d2bcc..8940d87 100644 --- a/generic/tclScan.c +++ b/generic/tclScan.c @@ -731,6 +731,17 @@ Tcl_ScanObjCmd( */ switch (ch) { + case 'z': + case 't': + if (sizeof(void *) > sizeof(int)) { + flags |= SCAN_LONGER; + } + format += TclUtfToUniChar(format, &ch); + break; + case 'L': + flags |= SCAN_BIG; + format += TclUtfToUniChar(format, &ch); + break; case 'l': if (*format == 'l') { flags |= SCAN_BIG; @@ -739,7 +750,8 @@ Tcl_ScanObjCmd( break; } /* FALLTHRU */ - case 'L': + case 'j': + case 'q': flags |= SCAN_LONGER; /* FALLTHRU */ case 'h': |