diff options
| author | rmax <rmax> | 2006-03-13 17:02:27 (GMT) |
|---|---|---|
| committer | rmax <rmax> | 2006-03-13 17:02:27 (GMT) |
| commit | 0090672a25372ba0e9c52f4aa25c45aa995adcc5 (patch) | |
| tree | 57ac99b75bca8556ee04a290e720b1e2a273004c | |
| parent | e7c6e0ca85731660713714016acde44d23e78e30 (diff) | |
| download | tcl-0090672a25372ba0e9c52f4aa25c45aa995adcc5.zip tcl-0090672a25372ba0e9c52f4aa25c45aa995adcc5.tar.gz tcl-0090672a25372ba0e9c52f4aa25c45aa995adcc5.tar.bz2 | |
silence a strict aliasing warning from gcc
| -rw-r--r-- | generic/tclNamesp.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/generic/tclNamesp.c b/generic/tclNamesp.c index aac705a..f1466f0 100644 --- a/generic/tclNamesp.c +++ b/generic/tclNamesp.c @@ -22,7 +22,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclNamesp.c,v 1.94 2006/02/02 09:54:58 dkf Exp $ + * RCS: @(#) $Id: tclNamesp.c,v 1.95 2006/03/13 17:02:27 rmax Exp $ */ #include "tclInt.h" @@ -3784,7 +3784,7 @@ NamespaceInscopeCmd( Tcl_Obj *CONST objv[]) /* Argument objects. */ { Tcl_Namespace *namespacePtr; - CallFrame *framePtr; + CallFrame *framePtr, **framePtrPtr; int i, result; if (objc < 4) { @@ -3810,7 +3810,8 @@ NamespaceInscopeCmd( * Make the specified namespace the current namespace. */ - result = TclPushStackFrame(interp, (Tcl_CallFrame **)&framePtr, + framePtrPtr = &framePtr; /* This is needed to satisfy GCC's strict aliasing rules */ + result = TclPushStackFrame(interp, (Tcl_CallFrame **)framePtrPtr, namespacePtr, /*isProcCallFrame*/ 0); if (result != TCL_OK) { return result; |