diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-12 21:39:40 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-12 21:39:40 (GMT) |
| commit | 32ab46ae406d7fd3db0516dd45f38c7c48c6bd3c (patch) | |
| tree | 34f1f0b6cff5df8b79be7a8455644f8093aed16e /generic/tclTest.c | |
| parent | 05dc6d00c28c40fef2b65cf96d5753927599c4d5 (diff) | |
| download | tcl-32ab46ae406d7fd3db0516dd45f38c7c48c6bd3c.zip tcl-32ab46ae406d7fd3db0516dd45f38c7c48c6bd3c.tar.gz tcl-32ab46ae406d7fd3db0516dd45f38c7c48c6bd3c.tar.bz2 | |
Fix [fba9c1fc12]: pointer arithmetic using NULL in PrintParse()
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 5774dfc..ed016fe 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -3596,8 +3596,9 @@ PrintParse( Tcl_NewIntObj(tokenPtr->numComponents)); } Tcl_ListObjAppendElement(NULL, objPtr, + parsePtr->commandStart ? Tcl_NewStringObj(parsePtr->commandStart + parsePtr->commandSize, - -1)); + -1) : Tcl_NewObj()); } /* |