diff options
Diffstat (limited to 'mac')
| -rw-r--r-- | mac/tclMacChan.c | 6 | ||||
| -rw-r--r-- | mac/tclMacFCmd.c | 10 | ||||
| -rw-r--r-- | mac/tclMacFile.c | 4 | ||||
| -rw-r--r-- | mac/tclMacLoad.c | 4 | ||||
| -rw-r--r-- | mac/tclMacResource.c | 8 |
5 files changed, 16 insertions, 16 deletions
diff --git a/mac/tclMacChan.c b/mac/tclMacChan.c index 0b36485..da74176 100644 --- a/mac/tclMacChan.c +++ b/mac/tclMacChan.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclMacChan.c,v 1.10 2002/01/15 21:19:07 dgp Exp $ + * RCS: @(#) $Id: tclMacChan.c,v 1.11 2002/01/18 03:22:36 das Exp $ */ #include "tclInt.h" @@ -558,7 +558,7 @@ StdIOOutput( *errorCode = 0; errno = 0; fd = (int) ((FileState*)instanceData)->fileRef; - written = write(fd, buf, (size_t) toWrite); + written = write(fd, (void*)buf, (size_t) toWrite); if (written > -1) { return written; } @@ -762,7 +762,7 @@ TclpOpenFileChannel( { Tcl_Channel chan; int mode; - char *native; + CONST char *native; int errorCode; mode = GetOpenMode(interp, modeString); diff --git a/mac/tclMacFCmd.c b/mac/tclMacFCmd.c index 723eb5d..27196f5 100644 --- a/mac/tclMacFCmd.c +++ b/mac/tclMacFCmd.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclMacFCmd.c,v 1.12 2002/01/17 04:37:33 dgp Exp $ + * RCS: @(#) $Id: tclMacFCmd.c,v 1.13 2002/01/18 03:22:40 das Exp $ */ #include "tclInt.h" @@ -1163,7 +1163,7 @@ GetFileFinderAttributes( OSErr err; FSSpec fileSpec; FInfo finfo; - char *native; + CONST char *native; native=Tcl_FSGetNativePath(fileName); err = FSpLocationFromPath(strlen(native), @@ -1241,7 +1241,7 @@ GetFileReadOnly( OSErr err; FSSpec fileSpec; CInfoPBRec paramBlock; - char *native; + CONST char *native; native=Tcl_FSGetNativePath(fileName); err = FSpLocationFromPath(strlen(native), @@ -1305,7 +1305,7 @@ SetFileFinderAttributes( OSErr err; FSSpec fileSpec; FInfo finfo; - char *native; + CONST char *native; native=Tcl_FSGetNativePath(fileName); err = FSpLocationFromPath(strlen(native), @@ -1397,7 +1397,7 @@ SetFileReadOnly( FSSpec fileSpec; HParamBlockRec paramBlock; int hidden; - char *native; + CONST char *native; native=Tcl_FSGetNativePath(fileName); err = FSpLocationFromPath(strlen(native), diff --git a/mac/tclMacFile.c b/mac/tclMacFile.c index 0084da5..d38d784 100644 --- a/mac/tclMacFile.c +++ b/mac/tclMacFile.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclMacFile.c,v 1.13 2001/11/23 01:27:32 das Exp $ + * RCS: @(#) $Id: tclMacFile.c,v 1.14 2002/01/18 03:22:52 das Exp $ */ /* @@ -39,7 +39,7 @@ FspLocationFromFsPath(pathPtr, specPtr) Tcl_Obj *pathPtr; FSSpec* specPtr; { - char *native = Tcl_FSGetNativePath(pathPtr); + CONST char *native = Tcl_FSGetNativePath(pathPtr); return FSpLocationFromPath(strlen(native), native, specPtr); } diff --git a/mac/tclMacLoad.c b/mac/tclMacLoad.c index 9dd32be..1082a23 100644 --- a/mac/tclMacLoad.c +++ b/mac/tclMacLoad.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclMacLoad.c,v 1.10 2002/01/17 03:03:12 dgp Exp $ + * RCS: @(#) $Id: tclMacLoad.c,v 1.11 2002/01/18 03:22:58 das Exp $ */ #include <CodeFragments.h> @@ -130,7 +130,7 @@ TclpLoadFile( Tcl_DString ds; char *native; - native = Tcl_FSGetNativePath(pathPtr); + native = (char *) Tcl_FSGetNativePath(pathPtr); err = FSpLocationFromPath(strlen(native), native, &fileSpec); if (err != noErr) { diff --git a/mac/tclMacResource.c b/mac/tclMacResource.c index 4c06237..4f72b9e 100644 --- a/mac/tclMacResource.c +++ b/mac/tclMacResource.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclMacResource.c,v 1.8 2001/07/31 19:12:07 vincentdarley Exp $ + * RCS: @(#) $Id: tclMacResource.c,v 1.9 2002/01/18 03:23:02 das Exp $ */ #include <Errors.h> @@ -149,7 +149,7 @@ Tcl_ResourceObjCmd( char macPermision; int mode; - static char *switches[] = {"close", "delete" ,"files", "list", + static CONST char *switches[] = {"close", "delete" ,"files", "list", "open", "read", "types", "write", (char *) NULL }; @@ -158,7 +158,7 @@ Tcl_ResourceObjCmd( RESOURCE_OPEN, RESOURCE_READ, RESOURCE_TYPES, RESOURCE_WRITE }; - static char *writeSwitches[] = { + static CONST char *writeSwitches[] = { "-id", "-name", "-file", "-force", (char *) NULL }; @@ -167,7 +167,7 @@ Tcl_ResourceObjCmd( RESOURCE_WRITE_FILE, RESOURCE_FORCE }; - static char *deleteSwitches[] = {"-id", "-name", "-file", (char *) NULL}; + static CONST char *deleteSwitches[] = {"-id", "-name", "-file", (char *) NULL}; enum {RESOURCE_DELETE_ID, RESOURCE_DELETE_NAME, RESOURCE_DELETE_FILE}; |