luke
/
magic
mirror of https://github.com/RTimothyEdwards/magic.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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.
This commit is contained in:
Darryl L. Miles 2024-10-21 09:22:24 +01:00 committed by Tim Edwards
parent 4a32a82841
commit c339e9b845
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
commands/CmdLQ.c
View File

@ -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