diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-10-19 18:09:11 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-10-19 18:09:11 (GMT) |
| commit | c90945e7f32fce45c4a00d249c7133156ee8a45b (patch) | |
| tree | dbcf2d1dd6e3132462b67b2e72e93e9f5151f6c0 /unix/tclUnixFCmd.c | |
| parent | fdb568c35f1cd6de7f1acd05fdbd4f8b6cf5aee1 (diff) | |
| parent | 6def0d48c1fff35f9f5b3bfbe1ddbe6cedd2c247 (diff) | |
| download | tcl-c90945e7f32fce45c4a00d249c7133156ee8a45b.zip tcl-c90945e7f32fce45c4a00d249c7133156ee8a45b.tar.gz tcl-c90945e7f32fce45c4a00d249c7133156ee8a45b.tar.bz2 | |
Fix [26870862f0]: Wrong sentinel in Tcl_SetErrorCode usage; Handle any C++-compiler as well
Diffstat (limited to 'unix/tclUnixFCmd.c')
| -rw-r--r-- | unix/tclUnixFCmd.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/unix/tclUnixFCmd.c b/unix/tclUnixFCmd.c index f8eaeb5..b009d97 100644 --- a/unix/tclUnixFCmd.c +++ b/unix/tclUnixFCmd.c @@ -1515,7 +1515,7 @@ SetGroupAttribute( " group \"%s\" does not exist", TclGetString(fileName), string)); Tcl_SetErrorCode(interp, "TCL", "OPERATION", "SETGRP", - "NO_GROUP", NULL); + "NO_GROUP", (void *)NULL); } return TCL_ERROR; } @@ -1581,7 +1581,7 @@ SetOwnerAttribute( " user \"%s\" does not exist", TclGetString(fileName), string)); Tcl_SetErrorCode(interp, "TCL", "OPERATION", "SETOWN", - "NO_USER", NULL); + "NO_USER", (void *)NULL); } return TCL_ERROR; } @@ -1676,7 +1676,7 @@ SetPermissionsAttribute( Tcl_SetObjResult(interp, Tcl_ObjPrintf( "unknown permission string format \"%s\"", modeStringPtr)); - Tcl_SetErrorCode(interp, "TCL", "VALUE", "PERMISSION", NULL); + Tcl_SetErrorCode(interp, "TCL", "VALUE", "PERMISSION", (void *)NULL); } return TCL_ERROR; } |