summaryrefslogtreecommitdiffstats
path: root/generic/tclNamesp.c
diff options
context:
space:
mode:
authorrmax <rmax>2006-03-13 17:02:27 (GMT)
committerrmax <rmax>2006-03-13 17:02:27 (GMT)
commit0090672a25372ba0e9c52f4aa25c45aa995adcc5 (patch)
tree57ac99b75bca8556ee04a290e720b1e2a273004c /generic/tclNamesp.c
parente7c6e0ca85731660713714016acde44d23e78e30 (diff)
downloadtcl-0090672a25372ba0e9c52f4aa25c45aa995adcc5.zip
tcl-0090672a25372ba0e9c52f4aa25c45aa995adcc5.tar.gz
tcl-0090672a25372ba0e9c52f4aa25c45aa995adcc5.tar.bz2
silence a strict aliasing warning from gcc
Diffstat (limited to 'generic/tclNamesp.c')
-rw-r--r--generic/tclNamesp.c7
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;