diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-07-19 08:56:37 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-07-19 08:56:37 (GMT) |
| commit | 5131efcb132119c93ac199124ee80fe84e09db9b (patch) | |
| tree | 93a1e35e67145c546fea7c7c8577eb3fb5d424c9 /macosx | |
| parent | c2350850a9f065f4c85fa3a8f78b3a2329bb5e7d (diff) | |
| parent | 6f094ddde17be4284f76f82a83b5d5f2cba10db6 (diff) | |
| download | tcl-5131efcb132119c93ac199124ee80fe84e09db9b.zip tcl-5131efcb132119c93ac199124ee80fe84e09db9b.tar.gz tcl-5131efcb132119c93ac199124ee80fe84e09db9b.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'macosx')
| -rw-r--r-- | macosx/tclMacOSXFCmd.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/macosx/tclMacOSXFCmd.c b/macosx/tclMacOSXFCmd.c index 5030b2f..020288f 100644 --- a/macosx/tclMacOSXFCmd.c +++ b/macosx/tclMacOSXFCmd.c @@ -344,8 +344,8 @@ TclMacOSXSetFileAttribute( */ Tcl_DStringInit(&ds); - Tcl_DStringAppend(&ds, native, -1); - Tcl_DStringAppend(&ds, _PATH_RSRCFORKSPEC, -1); + Tcl_DStringAppend(&ds, native, TCL_INDEX_NONE); + Tcl_DStringAppend(&ds, _PATH_RSRCFORKSPEC, TCL_INDEX_NONE); result = truncate(Tcl_DStringValue(&ds), 0); if (result != 0) { @@ -459,11 +459,11 @@ TclMacOSXCopyFileAttributes( */ Tcl_DStringInit(&srcBuf); - Tcl_DStringAppend(&srcBuf, src, -1); - Tcl_DStringAppend(&srcBuf, _PATH_RSRCFORKSPEC, -1); + Tcl_DStringAppend(&srcBuf, src, TCL_INDEX_NONE); + Tcl_DStringAppend(&srcBuf, _PATH_RSRCFORKSPEC, TCL_INDEX_NONE); Tcl_DStringInit(&dstBuf); - Tcl_DStringAppend(&dstBuf, dst, -1); - Tcl_DStringAppend(&dstBuf, _PATH_RSRCFORKSPEC, -1); + Tcl_DStringAppend(&dstBuf, dst, TCL_INDEX_NONE); + Tcl_DStringAppend(&dstBuf, _PATH_RSRCFORKSPEC, TCL_INDEX_NONE); /* * Do the copy. |