diff options
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclInt.decls | 4 | ||||
| -rw-r--r-- | generic/tclIntPlatDecls.h | 6 |
2 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclInt.decls b/generic/tclInt.decls index 008b1d3..67bd6f7 100644 --- a/generic/tclInt.decls +++ b/generic/tclInt.decls @@ -12,7 +12,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: tclInt.decls,v 1.44 2002/01/25 22:01:31 dgp Exp $ +# RCS: @(#) $Id: tclInt.decls,v 1.45 2002/01/27 11:09:30 das Exp $ library tcl @@ -780,7 +780,7 @@ declare 24 mac { char * TclpGetTZName(int isdst) } declare 25 mac { - int TclMacChmod(char *path, int mode) + int TclMacChmod(CONST char *path, int mode) } ############################ diff --git a/generic/tclIntPlatDecls.h b/generic/tclIntPlatDecls.h index 3ddaf22..907a648 100644 --- a/generic/tclIntPlatDecls.h +++ b/generic/tclIntPlatDecls.h @@ -9,7 +9,7 @@ * Copyright (c) 1998-1999 by Scriptics Corporation. * All rights reserved. * - * RCS: @(#) $Id: tclIntPlatDecls.h,v 1.15 2002/01/25 20:40:55 dgp Exp $ + * RCS: @(#) $Id: tclIntPlatDecls.h,v 1.16 2002/01/27 11:09:34 das Exp $ */ #ifndef _TCLINTPLATDECLS @@ -197,7 +197,7 @@ EXTERN FILE * TclMacFOpenHack _ANSI_ARGS_((CONST char * path, /* 24 */ EXTERN char * TclpGetTZName _ANSI_ARGS_((int isdst)); /* 25 */ -EXTERN int TclMacChmod _ANSI_ARGS_((char * path, int mode)); +EXTERN int TclMacChmod _ANSI_ARGS_((CONST char * path, int mode)); #endif /* MAC_TCL */ typedef struct TclIntPlatStubs { @@ -272,7 +272,7 @@ typedef struct TclIntPlatStubs { int (*tclMacCreateEnv) _ANSI_ARGS_((void)); /* 22 */ FILE * (*tclMacFOpenHack) _ANSI_ARGS_((CONST char * path, CONST char * mode)); /* 23 */ char * (*tclpGetTZName) _ANSI_ARGS_((int isdst)); /* 24 */ - int (*tclMacChmod) _ANSI_ARGS_((char * path, int mode)); /* 25 */ + int (*tclMacChmod) _ANSI_ARGS_((CONST char * path, int mode)); /* 25 */ #endif /* MAC_TCL */ } TclIntPlatStubs; |