summaryrefslogtreecommitdiffstats
path: root/generic/tclBasic.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2008-07-28 14:44:17 (GMT)
committerdgp <dgp@users.sourceforge.net>2008-07-28 14:44:17 (GMT)
commit2931e2c849579bfd59bac1989e2051b22c2d4224 (patch)
tree30ee94a9a873235e8632e8ff7b6f645ecec01adf /generic/tclBasic.c
parentdf66a232058af1dc5b776821fe6c9c0281c696dd (diff)
downloadtcl-2931e2c849579bfd59bac1989e2051b22c2d4224.zip
tcl-2931e2c849579bfd59bac1989e2051b22c2d4224.tar.gz
tcl-2931e2c849579bfd59bac1989e2051b22c2d4224.tar.bz2
backport casting fix from HEAD
Diffstat (limited to 'generic/tclBasic.c')
-rw-r--r--generic/tclBasic.c5
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index 917a8a5..9afb5e7 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -14,7 +14,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclBasic.c,v 1.295.2.5 2008/07/25 20:30:34 andreas_kupries Exp $
+ * RCS: @(#) $Id: tclBasic.c,v 1.295.2.6 2008/07/28 14:44:17 dgp Exp $
*/
#include "tclInt.h"
@@ -4784,7 +4784,8 @@ TclArgumentGet(interp,obj,cfPtrPtr,wordPtr)
ExtIndex* eiPtr = cfwPtr->eiPtr;
framePtr = cfwPtr->framePtr;
- framePtr->data.tebc.pc = ((ByteCode*) framePtr->data.tebc.codePtr)->codeStart + eiPtr->pc;
+ framePtr->data.tebc.pc = (char *) (((ByteCode*)
+ framePtr->data.tebc.codePtr)->codeStart + eiPtr->pc);
*cfPtrPtr = cfwPtr->framePtr;
*wordPtr = eiPtr->word;
return;