diff options
author | das <das@noemail.net> | 2002-01-27 11:09:18 (GMT) |
---|---|---|
committer | das <das@noemail.net> | 2002-01-27 11:09:18 (GMT) |
commit | 30eca791b646b2d2f2f5a7f817b289d32751b65e (patch) | |
tree | 8f740075fb62f904aa60a596cb07aebb02849a6f /generic/tclIntPlatDecls.h | |
parent | da60cfbf6311b66574506fff568f0ffcf2165dcc (diff) | |
download | tcl-30eca791b646b2d2f2f5a7f817b289d32751b65e.zip tcl-30eca791b646b2d2f2f5a7f817b289d32751b65e.tar.gz tcl-30eca791b646b2d2f2f5a7f817b289d32751b65e.tar.bz2 |
* generic/tclInt.decls:
* generic/tclIntPlatDecls.h:
* mac/tclMacChan.c:
* mac/tclMacFCmd.c:
* mac/tclMacFile.c:
* mac/tclMacInit.c:
* mac/tclMacLoad.c:
* mac/tclMacResource.c:
* mac/tclMacSock.c: TIP 27 CONSTification induced changes
* tests/event.test:
* tests/main.test: added catches/constraints to test that
use features that don't exist on the mac.
FossilOrigin-Name: 02f6dcb5d2e40852b7e678559c5f3964c826593e
Diffstat (limited to 'generic/tclIntPlatDecls.h')
-rw-r--r-- | generic/tclIntPlatDecls.h | 6 |
1 files changed, 3 insertions, 3 deletions
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; |