diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2008-04-27 22:21:26 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2008-04-27 22:21:26 (GMT) |
| commit | 26c09b8c918f8223a38fc764aa9a39fb8ce45991 (patch) | |
| tree | 4e7b1367d8eb030241db8325caa541ce387b7313 /macosx/tclMacOSXFCmd.c | |
| parent | 60e86b2a4795ded3f41e7361470071827477f5b0 (diff) | |
| download | tcl-26c09b8c918f8223a38fc764aa9a39fb8ce45991.zip tcl-26c09b8c918f8223a38fc764aa9a39fb8ce45991.tar.gz tcl-26c09b8c918f8223a38fc764aa9a39fb8ce45991.tar.bz2 | |
Get rid of pre-C89-isms (esp. CONST vs const).
Diffstat (limited to 'macosx/tclMacOSXFCmd.c')
| -rw-r--r-- | macosx/tclMacOSXFCmd.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/macosx/tclMacOSXFCmd.c b/macosx/tclMacOSXFCmd.c index 885a450..d230f4a 100644 --- a/macosx/tclMacOSXFCmd.c +++ b/macosx/tclMacOSXFCmd.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: tclMacOSXFCmd.c,v 1.12 2007/04/23 20:46:14 das Exp $ + * RCS: @(#) $Id: tclMacOSXFCmd.c,v 1.13 2008/04/27 22:21:33 dkf Exp $ */ #include "tclInt.h" @@ -382,9 +382,9 @@ TclMacOSXSetFileAttribute( int TclMacOSXCopyFileAttributes( - CONST char *src, /* Path name of source file (native). */ - CONST char *dst, /* Path name of target file (native). */ - CONST Tcl_StatBuf *statBufPtr) + const char *src, /* Path name of source file (native). */ + const char *dst, /* Path name of target file (native). */ + const Tcl_StatBuf *statBufPtr) /* Stat info for source file */ { #ifdef WEAK_IMPORT_COPYFILE @@ -489,8 +489,8 @@ TclMacOSXCopyFileAttributes( int TclMacOSXMatchType( Tcl_Interp *interp, /* Interpreter to receive errors. */ - CONST char *pathName, /* Native path to check. */ - CONST char *fileName, /* Native filename to check. */ + const char *pathName, /* Native path to check. */ + const char *fileName, /* Native filename to check. */ Tcl_StatBuf *statBufPtr, /* Stat info for file to check */ Tcl_GlobTypeData *types) /* Type description to match against. */ { |