diff options
| author | dgp <dgp@users.sourceforge.net> | 2012-08-08 20:30:37 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2012-08-08 20:30:37 (GMT) |
| commit | 23754cbbc81ac0eda71610fe3737a8bc8ae31c65 (patch) | |
| tree | a6fadf3d6bc55a704065f4543ea894d5ebddfe46 /win/tclWinFCmd.c | |
| parent | ff0e2463cb108f9b0481ac516251142506818114 (diff) | |
| parent | 7ce9d6f8fc9b0c2b4fd1a18a85c54bb37387dda0 (diff) | |
| download | tcl-23754cbbc81ac0eda71610fe3737a8bc8ae31c65.zip tcl-23754cbbc81ac0eda71610fe3737a8bc8ae31c65.tar.gz tcl-23754cbbc81ac0eda71610fe3737a8bc8ae31c65.tar.bz2 | |
merge trunk
Diffstat (limited to 'win/tclWinFCmd.c')
| -rw-r--r-- | win/tclWinFCmd.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/win/tclWinFCmd.c b/win/tclWinFCmd.c index 77a5b82..80fad3e 100644 --- a/win/tclWinFCmd.c +++ b/win/tclWinFCmd.c @@ -1530,8 +1530,8 @@ StatError( * error. */ { TclWinConvertError(GetLastError()); - Tcl_AppendResult(interp, "could not read \"", TclGetString(fileName), - "\": ", Tcl_PosixError(interp), (char *) NULL); + Tcl_SetObjResult(interp, Tcl_ObjPrintf("could not read \"%s\": %s", + TclGetString(fileName), Tcl_PosixError(interp))); } /* @@ -1649,9 +1649,9 @@ ConvertFileNameFormat( if (splitPath == NULL || pathc == 0) { if (interp != NULL) { - Tcl_AppendResult(interp, "could not read \"", - Tcl_GetString(fileName), "\": no such file or directory", - (char *) NULL); + Tcl_SetObjResult(interp, Tcl_ObjPrintf( + "could not read \"%s\": no such file or directory", + Tcl_GetString(fileName))); errno = ENOENT; Tcl_PosixError(interp); } @@ -1941,9 +1941,9 @@ CannotSetAttribute( Tcl_Obj *fileName, /* The name of the file. */ Tcl_Obj *attributePtr) /* The new value of the attribute. */ { - Tcl_AppendResult(interp, "cannot set attribute \"", - tclpFileAttrStrings[objIndex], "\" for file \"", - Tcl_GetString(fileName), "\": attribute is readonly", NULL); + Tcl_SetObjResult(interp, Tcl_ObjPrintf( + "cannot set attribute \"%s\" for file \"%s\": attribute is readonly", + tclpFileAttrStrings[objIndex], Tcl_GetString(fileName))); errno = EINVAL; Tcl_PosixError(interp); return TCL_ERROR; |