summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorvasiljevic <zv@archiware.com>2006-09-07 18:49:27 (GMT)
committervasiljevic <zv@archiware.com>2006-09-07 18:49:27 (GMT)
commitb98d8af767943c732d5b80448d159a9a6cbb1b09 (patch)
tree8b1daadcd5787a5240b4cde6e87959baf69b496c
parent138c8d79c7b465225b655c4a273b13ffb2b5978c (diff)
downloadtcl-b98d8af767943c732d5b80448d159a9a6cbb1b09.zip
tcl-b98d8af767943c732d5b80448d159a9a6cbb1b09.tar.gz
tcl-b98d8af767943c732d5b80448d159a9a6cbb1b09.tar.bz2
* unix/tclUnixFCmd.c: Removed some false tests added
(and left by mistake) by fixing the Tcl Bug: 999544 * unix/tclUnixCompat.c: Added fallback to MT-unsafe library calls if TCL_THREADS is not defined. Fixed alignment of arrays copied by CopyArrayi() to be on the sizeof(char *) boundary.
-rw-r--r--ChangeLog10
-rw-r--r--unix/tclUnixCompat.c83
-rw-r--r--unix/tclUnixFCmd.c6
3 files changed, 75 insertions, 24 deletions
diff --git a/ChangeLog b/ChangeLog
index 45651a7..f43fe01 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,13 @@
+2006-09-07 Zoran Vasiljevic <vasiljevic@users.sourceforge.net>
+
+ * unix/tclUnixFCmd.c: Removed some false tests added
+ (and left by mistake) by fixing the Tcl Bug: 999544
+
+ * unix/tclUnixCompat.c: Added fallback to MT-unsafe
+ library calls if TCL_THREADS is not defined.
+ Fixed alignment of arrays copied by CopyArrayi() to be
+ on the sizeof(char *) boundary.
+
2006-09-07 Andreas Kupries <andreask@activestate.com>
* unix/configure: Regenerated using autoconf 2.13.
diff --git a/unix/tclUnixCompat.c b/unix/tclUnixCompat.c
index 5ab78aa..c719b59 100644
--- a/unix/tclUnixCompat.c
+++ b/unix/tclUnixCompat.c
@@ -6,7 +6,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclUnixCompat.c,v 1.1.2.4 2006/09/07 09:08:12 vasiljevic Exp $
+ * RCS: @(#) $Id: tclUnixCompat.c,v 1.1.2.5 2006/09/07 18:49:29 vasiljevic Exp $
*
*/
@@ -18,10 +18,22 @@
#include <string.h>
/*
+ * Used to pad structures at size'd boundaries
+ */
+
+#define PadBuffer(buffer, length, size) \
+ if (((length) % (size))) { \
+ (buffer) += ((length) % (size)); \
+ (length) += ((length) % (size)); \
+ }
+
+/*
* Per-thread private storage used to store values
* returned from MT-unsafe library calls.
*/
+#ifdef TCL_THREADS
+
typedef struct ThreadSpecificData {
struct passwd pwd;
@@ -45,8 +57,8 @@ static Tcl_ThreadDataKey dataKey;
Tcl_Mutex compatLock;
-#if !defined(HAVE_GETHOSTBYNAME_R) || !defined(HAVE_GETHOSTBYADDR_R) || \
- !defined(HAVE_GETPWNAM_R) || !defined(HAVE_GETGRNAM_R)
+#if (!defined(HAVE_GETHOSTBYNAME_R) && !defined(HAVE_GETHOSTBYADDR_R)) || \
+ (!defined(HAVE_GETPWUID_R) && !defined(HAVE_GETGRGID_R))
/*
@@ -140,10 +152,11 @@ CopyString(char *src, char *buf, int buflen)
return len;
}
+#endif /* !defined(HAVE_GETHOSTBYNAME_R) && !defined(HAVE_GETHOSTBYADDR_R) && \
+ !defined(HAVE_GETPWUID_R) && !defined(HAVE_GETGRGID_R) */
-#endif /* !defined(HAVE_GETHOSTBYNAME_R) || !defined(HAVE_GETHOSTBYADDR_R) ||
- !defined(HAVE_GETPWNAM_R) || !defined(HAVE_GETGRNAM_R) */
+#if !defined(HAVE_GETHOSTBYNAME_R) && !defined(HAVE_GETHOSTBYADDR_R)
/*
*---------------------------------------------------------------------------
@@ -162,7 +175,6 @@ CopyString(char *src, char *buf, int buflen)
*---------------------------------------------------------------------------
*/
-#if !defined(HAVE_GETHOSTBYNAME_R) || !defined(HAVE_GETHOSTBYADDR_R)
static int
CopyHostent(struct hostent *tgtPtr, char *buf, int buflen)
{
@@ -179,6 +191,7 @@ CopyHostent(struct hostent *tgtPtr, char *buf, int buflen)
len += copied;
p = buf + len;
+ PadBuffer(p, len, sizeof(char *));
copied = CopyArray(tgtPtr->h_aliases, -1, p, buflen - len);
if (copied == -1) {
goto range;
@@ -187,6 +200,7 @@ CopyHostent(struct hostent *tgtPtr, char *buf, int buflen)
len += copied;
p += len;
+ PadBuffer(p, len, sizeof(char *));
copied = CopyArray(tgtPtr->h_addr_list, tgtPtr->h_length, p, buflen - len);
if (copied == -1) {
goto range;
@@ -195,8 +209,9 @@ CopyHostent(struct hostent *tgtPtr, char *buf, int buflen)
return 0;
}
-#endif /* !defined(HAVE_GETHOSTBYNAME_R) || !defined(HAVE_GETHOSTBYADDR_R) */
+#endif /* !defined(HAVE_GETHOSTBYNAME_R) && !defined(HAVE_GETHOSTBYADDR_R) */
+#if !defined(HAVE_GETPWUID_R)
/*
*---------------------------------------------------------------------------
@@ -216,7 +231,6 @@ CopyHostent(struct hostent *tgtPtr, char *buf, int buflen)
*---------------------------------------------------------------------------
*/
-#if !defined(HAVE_GETPWNAM_R) || !defined(HAVE_GETPWUID_R)
static int
CopyPwd(struct passwd *tgtPtr, char *buf, int buflen)
{
@@ -257,8 +271,9 @@ CopyPwd(struct passwd *tgtPtr, char *buf, int buflen)
return 0;
}
-#endif /* HAVE_GETPWNAM_R || HAVE_GETPWUID_R*/
+#endif /* !defined(HAVE_GETPWUID_R) */
+#if !defined(HAVE_GETGRGID_R)
/*
*---------------------------------------------------------------------------
@@ -277,7 +292,6 @@ CopyPwd(struct passwd *tgtPtr, char *buf, int buflen)
*---------------------------------------------------------------------------
*/
-#if !defined(HAVE_GETGRNAM_R) || !defined(HAVE_GETGRGID_R)
static int
CopyGrp(struct group *tgtPtr, char *buf, int buflen)
{
@@ -305,6 +319,7 @@ CopyGrp(struct group *tgtPtr, char *buf, int buflen)
p = buf + len;
/* Copy group members */
+ PadBuffer(p, len, sizeof(char *));
copied = CopyArray((char **)tgtPtr->gr_mem, -1, p, buflen - len);
if (copied == -1) {
goto range;
@@ -313,7 +328,9 @@ CopyGrp(struct group *tgtPtr, char *buf, int buflen)
return 0;
}
-#endif /* HAVE_GETGRNAM_R || HAVE_GETGRGID_R*/
+#endif /* !defined(HAVE_GETGRGID_R) */
+
+#endif /* TCL_THREADS */
/*
@@ -335,13 +352,16 @@ CopyGrp(struct group *tgtPtr, char *buf, int buflen)
struct passwd *
TclpGetPwNam(const char *name)
-{
+{
+#if !defined(TCL_THREADS)
+ return getpwnam(name);
+#else
ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);
#if defined(HAVE_GETPWNAM_R_5)
- struct passwd *pwPtr;
- return (getpwnam_r(name, &tsdPtr->pwd, tsdPtr->pbuf, sizeof(tsdPtr->pbuf),
- &pwPtr) == 0) ? &tsdPtr->pwd : NULL;
+ struct passwd *pwPtr = NULL;
+ return (getpwnam_r(name, &tsdPtr->pwd, tsdPtr->pbuf, sizeof(tsdPtr->pbuf),
+ &pwPtr) == 0 && pwPtr != NULL) ? &tsdPtr->pwd : NULL;
#elif defined(HAVE_GETPWNAM_R_4)
return getpwnam_r(name, &tsdPtr->pwd, tsdPtr->pbuf, sizeof(tsdPtr->pbuf));
@@ -361,6 +381,7 @@ TclpGetPwNam(const char *name)
return pwPtr;
#endif
return NULL; /* Not reached */
+#endif /* TCL_THREADS */
}
@@ -384,12 +405,15 @@ TclpGetPwNam(const char *name)
struct passwd *
TclpGetPwUid(uid_t uid)
{
+#if !defined(TCL_THREADS)
+ return getpwuid(uid);
+#else
ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);
#if defined(HAVE_GETPWUID_R_5)
- struct passwd *pwPtr;
+ struct passwd *pwPtr = NULL;
return (getpwuid_r(uid, &tsdPtr->pwd, tsdPtr->pbuf, sizeof(tsdPtr->pbuf),
- &pwPtr) == 0) ? &tsdPtr->pwd : NULL;
+ &pwPtr) == 0 && pwPtr != NULL) ? &tsdPtr->pwd : NULL;
#elif defined(HAVE_GETPWUID_R_4)
return getpwuid_r(uid, &tsdPtr->pwd, tsdPtr->pbuf, sizeof(tsdPtr->pbuf));
@@ -409,6 +433,7 @@ TclpGetPwUid(uid_t uid)
return pwPtr;
#endif
return NULL; /* Not reached */
+#endif /* TCL_THREADS */
}
@@ -432,12 +457,15 @@ TclpGetPwUid(uid_t uid)
struct group *
TclpGetGrNam(const char *name)
{
+#if !defined(TCL_THREADS)
+ return getgrnam(name);
+#else
ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);
#if defined(HAVE_GETGRNAM_R_5)
- struct group *grPtr;
+ struct group *grPtr = NULL;
return (getgrnam_r(name, &tsdPtr->grp, tsdPtr->gbuf, sizeof(tsdPtr->gbuf),
- &grPtr) == 0) ? &tsdPtr->grp : NULL;
+ &grPtr) == 0 && grPtr != NULL) ? &tsdPtr->grp : NULL;
#elif defined(HAVE_GETGRNAM_R_4)
return getgrnam_r(name, &tsdPtr->grp, tsdPtr->gbuf, sizeof(tsdPtr->gbuf));
@@ -457,6 +485,7 @@ TclpGetGrNam(const char *name)
return grPtr;
#endif
return NULL; /* Not reached */
+#endif /* TCL_THREADS */
}
@@ -480,12 +509,15 @@ TclpGetGrNam(const char *name)
struct group *
TclpGetGrGid(gid_t gid)
{
+#if !defined(TCL_THREADS)
+ return getgrgid(gid);
+#else
ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);
#if defined(HAVE_GETGRGID_R_5)
- struct group *grPtr;
+ struct group *grPtr = NULL;
return (getgrgid_r(gid, &tsdPtr->grp, tsdPtr->gbuf, sizeof(tsdPtr->gbuf),
- &grPtr) == 0) ? &tsdPtr->grp : NULL;
+ &grPtr) == 0 && grPtr != NULL) ? &tsdPtr->grp : NULL;
#elif defined(HAVE_GETGRGID_R_4)
return getgrgid_r(gid, &tsdPtr->grp, tsdPtr->gbuf, sizeof(tsdPtr->gbuf));
@@ -505,6 +537,7 @@ TclpGetGrGid(gid_t gid)
return grPtr;
#endif
return NULL; /* Not reached */
+#endif /* TCL_THREADS */
}
@@ -528,6 +561,9 @@ TclpGetGrGid(gid_t gid)
struct hostent *
TclpGetHostByName(const char *name)
{
+#if !defined(TCL_THREADS)
+ return gethostbyname(name);
+#else
ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);
#if defined(HAVE_GETHOSTBYNAME_R_5)
@@ -562,6 +598,7 @@ TclpGetHostByName(const char *name)
return hePtr;
#endif
return NULL; /* Not reached */
+#endif /* TCL_THREADS */
}
@@ -585,6 +622,9 @@ TclpGetHostByName(const char *name)
struct hostent *
TclpGetHostByAddr(const char *addr, int length, int type)
{
+#if !defined(TCL_THREADS)
+ return gethostbyaddr(addr, length, type);
+#else
ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);
#if defined(HAVE_GETHOSTBYADDR_R_7)
@@ -614,4 +654,5 @@ TclpGetHostByAddr(const char *addr, int length, int type)
return hePtr;
#endif
return NULL; /* Not reached */
+#endif /* TCL_THREADS */
}
diff --git a/unix/tclUnixFCmd.c b/unix/tclUnixFCmd.c
index dc003ce..17432cc 100644
--- a/unix/tclUnixFCmd.c
+++ b/unix/tclUnixFCmd.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclUnixFCmd.c,v 1.28.2.12 2006/09/07 08:50:36 vasiljevic Exp $
+ * RCS: @(#) $Id: tclUnixFCmd.c,v 1.28.2.13 2006/09/07 18:49:28 vasiljevic Exp $
*
* Portions of this code were derived from NetBSD source code which has
* the following copyright notice:
@@ -1422,7 +1422,7 @@ SetGroupAttribute(interp, objIndex, fileName, attributePtr)
groupPtr = TclpGetGrNam(native); /* INTL: Native. */
Tcl_DStringFree(&ds);
- if (result == -1 || groupPtr == NULL) {
+ if (groupPtr == NULL) {
endgrent();
Tcl_AppendResult(interp, "could not set group for file \"",
Tcl_GetString(fileName), "\": group \"",
@@ -1484,7 +1484,7 @@ SetOwnerAttribute(interp, objIndex, fileName, attributePtr)
pwPtr = TclpGetPwNam(native); /* INTL: Native. */
Tcl_DStringFree(&ds);
- if (result == -1 || pwPtr == NULL) {
+ if (pwPtr == NULL) {
endpwent();
Tcl_AppendResult(interp, "could not set owner for file \"",
Tcl_GetString(fileName), "\": user \"",