From c339e9b845155fc03e8fa9804125f83b19b90ef2 Mon Sep 17 00:00:00 2001
From: "Darryl L. Miles" <darryl.miles@darrylmiles.org>
Date: Mon, 21 Oct 2024 09:22:24 +0100
Subject: [PATCH] TCL9: CmdLQ.c Tcl_AppendResult(... (char*)NULL) cast sentinal

In the TCL8 to TCL9 porting information it was indicated the
sentinal NULL termination should be cast (char *) with API
call Tcl_AppendResult().

This was already in place for most of the codebase this
resolves the last few places.
---
 commands/CmdLQ.c | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/commands/CmdLQ.c b/commands/CmdLQ.c
index b9f42b29..28d6dadc 100644
--- a/commands/CmdLQ.c
+++ b/commands/CmdLQ.c
@@ -1875,7 +1875,7 @@ CmdPort(
 			{
 #ifdef MAGIC_WRAPPER
 			    Tcl_AppendResult(magicinterp, cmdPortClassTypes[idx],
-					NULL);
+					(char *)NULL);
 #else
 			    TxPrintf("Class = %s\n", cmdPortClassTypes[idx]);
 #endif
@@ -1920,7 +1920,7 @@ CmdPort(
 			{
 #ifdef MAGIC_WRAPPER
 			    Tcl_AppendResult(magicinterp, cmdPortUseTypes[idx],
-					NULL);
+					(char *)NULL);
 #else
 			    TxPrintf("Use = %s\n", cmdPortUseTypes[idx]);
 #endif
@@ -1965,7 +1965,7 @@ CmdPort(
 			{
 #ifdef MAGIC_WRAPPER
 			    Tcl_AppendResult(magicinterp, cmdPortShapeTypes[idx],
-					NULL);
+					(char *)NULL);
 #else
 			    TxPrintf("Shape = %s\n", cmdPortShapeTypes[idx]);
 #endif
@@ -2044,7 +2044,7 @@ CmdPort(
 		    if (pos & PORT_DIR_SOUTH) strcat(cdir, "s");
 		    if (pos & PORT_DIR_WEST) strcat(cdir, "w");
 #ifdef MAGIC_WRAPPER
-		    Tcl_AppendResult(magicinterp, cdir, NULL);
+		    Tcl_AppendResult(magicinterp, cdir, (char *)NULL);
 #else
 		    TxPrintf("Directions = %s\n", cdir);
 #endif