diff options
| author | patthoyts <patthoyts@users.sourceforge.net> | 2007-08-01 13:27:46 (GMT) |
|---|---|---|
| committer | patthoyts <patthoyts@users.sourceforge.net> | 2007-08-01 13:27:46 (GMT) |
| commit | 151923cca7b86c51a2292b427fbf70e75b05bbe3 (patch) | |
| tree | 21bf6522d2470c253e81d43377bbbb994415144c /generic/tclVar.c | |
| parent | 24d28892567192aedf221dde8efe1939487fd017 (diff) | |
| download | tcl-151923cca7b86c51a2292b427fbf70e75b05bbe3.zip tcl-151923cca7b86c51a2292b427fbf70e75b05bbe3.tar.gz tcl-151923cca7b86c51a2292b427fbf70e75b05bbe3.tar.bz2 | |
Abstracted the 'offsetof' to a TclOffset macro as per Tk_Offset to permit
compilation with MSVC6 and anything else that may not define this macro.
Diffstat (limited to 'generic/tclVar.c')
| -rw-r--r-- | generic/tclVar.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclVar.c b/generic/tclVar.c index 967f539..58849c0 100644 --- a/generic/tclVar.c +++ b/generic/tclVar.c @@ -16,7 +16,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclVar.c,v 1.146 2007/08/01 12:09:04 msofer Exp $ + * RCS: @(#) $Id: tclVar.c,v 1.147 2007/08/01 13:27:48 patthoyts Exp $ */ #include "tclInt.h" @@ -46,7 +46,7 @@ static inline Var * VarHashNextVar(Tcl_HashSearch *searchPtr); static inline void CleanupVar(Var *varPtr, Var *arrayPtr); #define VarHashGetValue(hPtr) \ - ((Var *) ((char *)hPtr - offsetof(VarInHash, entry))) + ((Var *) ((char *)hPtr - TclOffset(VarInHash, entry))) static inline Var * VarHashCreateVar(TclVarHashTable *tablePtr, Tcl_Obj *key, int *newPtr) |