From 32ab46ae406d7fd3db0516dd45f38c7c48c6bd3c Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Wed, 12 Jan 2022 21:39:40 +0000
Subject: Fix [fba9c1fc12]: pointer arithmetic using NULL in PrintParse()

---
 generic/tclTest.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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());
 }
 
 /*
-- 
cgit v0.12