diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-07 20:13:24 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-07 20:13:24 (GMT) |
| commit | 73229a7e53190161f9fac4c02158d6a20645eab0 (patch) | |
| tree | 741cf370f0a04a846db70ed678808dc7c7cf9026 /macosx | |
| parent | f4618fc2d91563021eaec2308d4c7ff326e4e0e7 (diff) | |
| parent | 9aea48988c29a181e815be248de624c7bf29d5bc (diff) | |
| download | tcl-73229a7e53190161f9fac4c02158d6a20645eab0.zip tcl-73229a7e53190161f9fac4c02158d6a20645eab0.tar.gz tcl-73229a7e53190161f9fac4c02158d6a20645eab0.tar.bz2 | |
Merge 9.0
Diffstat (limited to 'macosx')
| -rw-r--r-- | macosx/tclMacOSXFCmd.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/macosx/tclMacOSXFCmd.c b/macosx/tclMacOSXFCmd.c index e24c555..78fa45c 100644 --- a/macosx/tclMacOSXFCmd.c +++ b/macosx/tclMacOSXFCmd.c @@ -203,7 +203,7 @@ TclMacOSXGetFileAttribute( return TCL_OK; #else Tcl_SetObjResult(interp, Tcl_NewStringObj( - "Mac OS X file attributes not supported", -1)); + "Mac OS X file attributes not supported", TCL_INDEX_NONE)); Tcl_SetErrorCode(interp, "TCL", "UNSUPPORTED", NULL); return TCL_ERROR; #endif /* HAVE_GETATTRLIST */ @@ -335,7 +335,7 @@ TclMacOSXSetFileAttribute( if (newRsrcForkSize != 0) { Tcl_SetObjResult(interp, Tcl_NewStringObj( - "setting nonzero rsrclength not supported", -1)); + "setting nonzero rsrclength not supported", TCL_INDEX_NONE)); Tcl_SetErrorCode(interp, "TCL", "UNSUPPORTED", NULL); return TCL_ERROR; } @@ -376,7 +376,7 @@ TclMacOSXSetFileAttribute( return TCL_OK; #else Tcl_SetObjResult(interp, Tcl_NewStringObj( - "Mac OS X file attributes not supported", -1)); + "Mac OS X file attributes not supported", TCL_INDEX_NONE)); Tcl_SetErrorCode(interp, "TCL", "UNSUPPORTED", NULL); return TCL_ERROR; #endif |