summaryrefslogtreecommitdiffstats
path: root/mac
diff options
context:
space:
mode:
Diffstat (limited to 'mac')
-rw-r--r--mac/tclMacFCmd.c4
-rw-r--r--mac/tclMacResource.c6
2 files changed, 5 insertions, 5 deletions
diff --git a/mac/tclMacFCmd.c b/mac/tclMacFCmd.c
index bf13e5c..528f5fc 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.14 2002/01/25 20:40:56 dgp Exp $
+ * RCS: @(#) $Id: tclMacFCmd.c,v 1.15 2002/01/26 01:10:08 dgp Exp $
*/
#include "tclInt.h"
@@ -1490,7 +1490,7 @@ TclpObjListVolumes(void)
break;
}
- Tcl_ExternalToUtfDString(NULL, (char *) &name[1], name[0], &dstr);
+ Tcl_ExternalToUtfDString(NULL, (CONST char *)&name[1], name[0], &dstr);
elemPtr = Tcl_NewStringObj(Tcl_DStringValue(&dstr),
Tcl_DStringLength(&dstr));
Tcl_AppendToObj(elemPtr, ":", 1);
diff --git a/mac/tclMacResource.c b/mac/tclMacResource.c
index 858bc1e..4e29420 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.10 2002/01/25 20:40:56 dgp Exp $
+ * RCS: @(#) $Id: tclMacResource.c,v 1.11 2002/01/26 01:10:08 dgp Exp $
*/
#include <Errors.h>
@@ -1974,7 +1974,7 @@ TclMacRegisterResourceFork(
if (tokenPtr != NULL) {
char *tokenVal;
int length;
- tokenVal = (char *) Tcl_GetStringFromObj(tokenPtr, &length);
+ tokenVal = Tcl_GetStringFromObj(tokenPtr, &length);
if (length > 0) {
nameHashPtr = Tcl_FindHashEntry(&nameTable, tokenVal);
if (nameHashPtr == NULL) {
@@ -2191,7 +2191,7 @@ BuildResourceForkList()
Tcl_SetStringObj(nameObj, "ROM Map", -1);
} else {
p2cstr((StringPtr) fileName);
- if (strcmp(fileName,(char *) appName) == 0) {
+ if (strcmp(fileName,appName) == 0) {
Tcl_SetStringObj(nameObj, "application", -1);
} else {
Tcl_SetStringObj(nameObj, fileName, -1);