summaryrefslogtreecommitdiffstats
path: root/mac
diff options
context:
space:
mode:
Diffstat (limited to 'mac')
-rw-r--r--mac/tclMacChan.c6
-rw-r--r--mac/tclMacFCmd.c10
-rw-r--r--mac/tclMacFile.c4
-rw-r--r--mac/tclMacLoad.c4
-rw-r--r--mac/tclMacResource.c8
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};