diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-03-20 13:49:02 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-03-20 13:49:02 (GMT) |
| commit | ae22ee577e1296427b927dda75f49560f6256c60 (patch) | |
| tree | 41badbabc8140d865699b5f639cd4c53edbe3851 /unix/dltest | |
| parent | a72c1f969cba896ca61001393f0f7b74fb52e194 (diff) | |
| parent | a9b046b5bd7c666a406a17cbb0d86a2842091bac (diff) | |
| download | tcl-ae22ee577e1296427b927dda75f49560f6256c60.zip tcl-ae22ee577e1296427b927dda75f49560f6256c60.tar.gz tcl-ae22ee577e1296427b927dda75f49560f6256c60.tar.bz2 | |
Few more spacing/formatting tweaks
Diffstat (limited to 'unix/dltest')
| -rw-r--r-- | unix/dltest/pkgb.c | 2 | ||||
| -rw-r--r-- | unix/dltest/pkgooa.c | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/unix/dltest/pkgb.c b/unix/dltest/pkgb.c index ca64a11..9c8aaae 100644 --- a/unix/dltest/pkgb.c +++ b/unix/dltest/pkgb.c @@ -52,7 +52,7 @@ Pkgb_SubObjCmd( || (Tcl_GetIntFromObj(interp, objv[2], &second) != TCL_OK)) { char buf[TCL_INTEGER_SPACE]; snprintf(buf, sizeof(buf), "%d", Tcl_GetErrorLine(interp)); - Tcl_AppendResult(interp, " in line: ", buf, (void *)NULL); + Tcl_AppendResult(interp, " in line: ", buf, (char *)NULL); return TCL_ERROR; } Tcl_SetObjResult(interp, Tcl_NewIntObj(first - second)); diff --git a/unix/dltest/pkgooa.c b/unix/dltest/pkgooa.c index 60e3864..7a84481 100644 --- a/unix/dltest/pkgooa.c +++ b/unix/dltest/pkgooa.c @@ -108,18 +108,18 @@ Pkgooa_Init( } if (tclStubsPtr == NULL) { Tcl_AppendResult(interp, "Tcl stubs are not initialized, " - "did you compile using -DUSE_TCL_STUBS? ", (void *)NULL); + "did you compile using -DUSE_TCL_STUBS? ", (char *)NULL); return TCL_ERROR; } if (Tcl_OOInitStubs(interp) == NULL) { return TCL_ERROR; } if (tclOOStubsPtr == NULL) { - Tcl_AppendResult(interp, "TclOO stubs are not initialized", (void *)NULL); + Tcl_AppendResult(interp, "TclOO stubs are not initialized", (char *)NULL); return TCL_ERROR; } if (tclOOIntStubsPtr == NULL) { - Tcl_AppendResult(interp, "TclOO internal stubs are not initialized", (void *)NULL); + Tcl_AppendResult(interp, "TclOO internal stubs are not initialized", (char *)NULL); return TCL_ERROR; } |