diff options
| author | pooryorick <com.digitalsmarties@pooryorick.com> | 2021-09-02 22:38:32 (GMT) |
|---|---|---|
| committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2021-09-02 22:38:32 (GMT) |
| commit | 76871708808853f6b59ece6e2a6d6ec4a594df70 (patch) | |
| tree | 74203f7cb36f10e0840ed9c51f138d95d654b57e /generic/tclNamesp.c | |
| parent | 274f7dbfe0151611c97366d884cb1fdaeccbc3f3 (diff) | |
| download | tcl-76871708808853f6b59ece6e2a6d6ec4a594df70.zip tcl-76871708808853f6b59ece6e2a6d6ec4a594df70.tar.gz tcl-76871708808853f6b59ece6e2a6d6ec4a594df70.tar.bz2 | |
Backport fixes for [ccc448a6bfd5], namespace ensemble subcommand name prefix
matching and a subsequent error results in a segmentation fault.
Diffstat (limited to 'generic/tclNamesp.c')
| -rw-r--r-- | generic/tclNamesp.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclNamesp.c b/generic/tclNamesp.c index 5dc9659..2aed628 100644 --- a/generic/tclNamesp.c +++ b/generic/tclNamesp.c @@ -4921,8 +4921,9 @@ TclLogCommandInfo( * command (must be <= command). */ const char *command, /* First character in command that generated * the error. */ - int length, /* Number of bytes in command (-1 means use - * all bytes up to first null byte). */ + int length, /* Number of bytes in command (TCL_INDEX_NONE + * means use all bytes up to first null byte). + */ const unsigned char *pc, /* Current pc of bytecode execution context */ Tcl_Obj **tosPtr) /* Current stack of bytecode execution * context */ |