diff options
Diffstat (limited to 'generic/tclPathObj.c')
-rw-r--r-- | generic/tclPathObj.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclPathObj.c b/generic/tclPathObj.c index 0095469..7282709 100644 --- a/generic/tclPathObj.c +++ b/generic/tclPathObj.c @@ -2286,7 +2286,7 @@ SetFsPathFromAny( "couldn't find HOME environment variable to" " expand path", -1)); Tcl_SetErrorCode(interp, "TCL", "VALUE", "PATH", - "HOMELESS", NULL); + "HOMELESS", (void *)NULL); } return TCL_ERROR; } @@ -2311,7 +2311,7 @@ SetFsPathFromAny( Tcl_SetObjResult(interp, Tcl_ObjPrintf( "user \"%s\" doesn't exist", expandedUser)); Tcl_SetErrorCode(interp, "TCL", "VALUE", "PATH", "NOUSER", - NULL); + (void *)NULL); } Tcl_DStringFree(&userName); Tcl_DStringFree(&temp); @@ -2630,7 +2630,7 @@ MakeTildeRelativePath( "couldn't find HOME environment variable to" " expand path", -1)); Tcl_SetErrorCode(interp, "TCL", "VALUE", "PATH", - "HOMELESS", NULL); + "HOMELESS", (void *)NULL); } return TCL_ERROR; } @@ -2642,7 +2642,7 @@ MakeTildeRelativePath( Tcl_SetObjResult(interp, Tcl_ObjPrintf( "user \"%s\" doesn't exist", user)); Tcl_SetErrorCode(interp, "TCL", "VALUE", "PATH", "NOUSER", - NULL); + (void *)NULL); } return TCL_ERROR; } |