Tcl Source Code

Check-in [eff5ac7172]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:fix gcc warning signed<->unsigned warning for cygwin
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-4-branch
Files: files | file ages | folders
SHA1: eff5ac7172c39b4a220fe88013953d43aab3a233
User & Date: jan.nijtmans 2012-03-26 14:29:32
Context
2012-03-26
21:01
enable cygwin build in /win directory (using mingw-w64 compiler) check-in: b5a4dfa5f1 user: jan.nijtmans tags: core-8-4-branch
14:29
fix gcc warning signed<->unsigned warning for cygwin check-in: eff5ac7172 user: jan.nijtmans tags: core-8-4-branch
07:20
forgot 3 stub macros for cygwin: TclpCreateProcess, TclpMakefile and TclpOpenFile check-in: c5df3bc724 user: jan.nijtmans tags: core-8-4-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclCmdAH.c.

1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
	    value = 0;
	    if (GetStatBuf(NULL, objv[2], Tcl_FSStat, &buf) == TCL_OK) {
		/*
		 * For Windows and Macintosh, there are no user ids 
		 * associated with a file, so we always return 1.
		 */

#if (defined(__WIN32__) || defined(MAC_TCL))
		value = 1;
#else
		value = (geteuid() == buf.st_uid);
#endif
	    }	    
	    Tcl_SetBooleanObj(Tcl_GetObjResult(interp), value);
	    return TCL_OK;







|







1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
	    value = 0;
	    if (GetStatBuf(NULL, objv[2], Tcl_FSStat, &buf) == TCL_OK) {
		/*
		 * For Windows and Macintosh, there are no user ids 
		 * associated with a file, so we always return 1.
		 */

#if defined(__WIN32__) || defined(MAC_TCL) || defined(__CYGWIN__)
		value = 1;
#else
		value = (geteuid() == buf.st_uid);
#endif
	    }	    
	    Tcl_SetBooleanObj(Tcl_GetObjResult(interp), value);
	    return TCL_OK;