diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-05-27 21:15:27 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-05-27 21:15:27 (GMT) |
| commit | a53b30cd746bc36dff41401890341aceae4d79cb (patch) | |
| tree | ce5d7f6c3ca8faf0d0dca3f343acf35c896f0757 /generic/tclTestProcBodyObj.c | |
| parent | c7ebbbdfdd63cb05821f68a743ffcd82305779b3 (diff) | |
| parent | b727df70e6804bf6a51a40e69cde2ff1a61ce570 (diff) | |
| download | tcl-a53b30cd746bc36dff41401890341aceae4d79cb.zip tcl-a53b30cd746bc36dff41401890341aceae4d79cb.tar.gz tcl-a53b30cd746bc36dff41401890341aceae4d79cb.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclTestProcBodyObj.c')
| -rw-r--r-- | generic/tclTestProcBodyObj.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclTestProcBodyObj.c b/generic/tclTestProcBodyObj.c index 7342af7..8c32066 100644 --- a/generic/tclTestProcBodyObj.c +++ b/generic/tclTestProcBodyObj.c @@ -265,7 +265,7 @@ ProcBodyTestProcObjCmd( if (cmdPtr->objClientData != TclIsProc(cmdPtr)) { Tcl_AppendStringsToObj(Tcl_GetObjResult(interp), - "command \"", fullName, "\" is not a Tcl procedure", (void *)NULL); + "command \"", fullName, "\" is not a Tcl procedure", (char *)NULL); return TCL_ERROR; } @@ -276,7 +276,7 @@ ProcBodyTestProcObjCmd( procPtr = (Proc *) cmdPtr->objClientData; if (procPtr == NULL) { Tcl_AppendStringsToObj(Tcl_GetObjResult(interp), "procedure \"", - fullName, "\" does not have a Proc struct!", (void *)NULL); + fullName, "\" does not have a Proc struct!", (char *)NULL); return TCL_ERROR; } @@ -288,7 +288,7 @@ ProcBodyTestProcObjCmd( if (bodyObjPtr == NULL) { Tcl_AppendStringsToObj(Tcl_GetObjResult(interp), "failed to create a procbody object for procedure \"", - fullName, "\"", (void *)NULL); + fullName, "\"", (char *)NULL); return TCL_ERROR; } Tcl_IncrRefCount(bodyObjPtr); |