diff options
| author | das <das> | 2007-04-23 20:46:13 (GMT) |
|---|---|---|
| committer | das <das> | 2007-04-23 20:46:13 (GMT) |
| commit | 6ced88f88c2cd3345e86e376f6a961b02c23f423 (patch) | |
| tree | 676d312403ec5f6d3d37a47e2982a24c4690c0c6 /macosx/tclMacOSXFCmd.c | |
| parent | b967b536f3733422c73415987136c8fb19c6f398 (diff) | |
| download | tcl-6ced88f88c2cd3345e86e376f6a961b02c23f423.zip tcl-6ced88f88c2cd3345e86e376f6a961b02c23f423.tar.gz tcl-6ced88f88c2cd3345e86e376f6a961b02c23f423.tar.bz2 | |
* macosx/Tcl-Common.xcconfig: enable more warnings.
* macosx/Tcl.xcodeproj/project.pbxproj: add 'DebugMemCompile' build
configuration that calls configure with --enable-symbols=all; override
configure check for __attribute__((__visibility__("hidden"))) in Debug
configuration to restore availability of ZeroLink.
* macosx/tclMacOSXNotify.c: fix warnings.
* macosx/tclMacOSXFCmd.c: const fixes.
* macosx/Tcl-Common.xcconfig: fix whitespace.
* macosx/Tcl-Debug.xcconfig:
* macosx/Tcl-Release.xcconfig:
* macosx/README:
* macosx/GNUmakefile: fix/add copyright and license refs.
* macosx/tclMacOSXBundle.c:
* macosx/Tcl-Info.plist.in:
* macosx/Wish-Info.plist.in:
* macosx/Tcl.xcode/project.pbxproj:
* macosx/Tcl.xcodeproj/project.pbxproj:
Diffstat (limited to 'macosx/tclMacOSXFCmd.c')
| -rw-r--r-- | macosx/tclMacOSXFCmd.c | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/macosx/tclMacOSXFCmd.c b/macosx/tclMacOSXFCmd.c index 6b32726..885a450 100644 --- a/macosx/tclMacOSXFCmd.c +++ b/macosx/tclMacOSXFCmd.c @@ -4,13 +4,12 @@ * This file implements the MacOSX specific portion of file manipulation * subcommands of the "file" command. * - * Copyright (c) 2003 Tcl Core Team. - * Copyright (c) 2003-2006 Daniel A. Steffen <das@users.sourceforge.net> + * Copyright (c) 2003-2007 Daniel A. Steffen <das@users.sourceforge.net> * * 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.11 2007/01/19 01:03:59 das Exp $ + * RCS: @(#) $Id: tclMacOSXFCmd.c,v 1.12 2007/04/23 20:46:14 das Exp $ */ #include "tclInt.h" @@ -71,7 +70,7 @@ typedef u_int32_t OSType; static int GetOSTypeFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, OSType *osTypePtr); -static Tcl_Obj * NewOSTypeObj(CONST OSType newOSType); +static Tcl_Obj * NewOSTypeObj(const OSType newOSType); static int SetOSTypeFromAny(Tcl_Interp *interp, Tcl_Obj *objPtr); static void UpdateStringOfOSType(Tcl_Obj *objPtr); @@ -135,7 +134,7 @@ TclMacOSXGetFileAttribute( fileinfobuf finfo; finderinfo *finder = (finderinfo*)(&finfo.data); off_t *rsrcForkSize = (off_t*)(&finfo.data); - CONST char *native; + const char *native; result = TclpObjStat(fileName, &statBuf); @@ -227,7 +226,7 @@ TclMacOSXSetFileAttribute( fileinfobuf finfo; finderinfo *finder = (finderinfo*)(&finfo.data); off_t *rsrcForkSize = (off_t*)(&finfo.data); - CONST char *native; + const char *native; result = TclpObjStat(fileName, &statBuf); @@ -585,7 +584,7 @@ GetOSTypeFromObj( static Tcl_Obj * NewOSTypeObj( - CONST OSType osType) /* OSType used to initialize the new object. */ + const OSType osType) /* OSType used to initialize the new object. */ { Tcl_Obj *objPtr; |