diff options
| author | dgp <dgp@users.sourceforge.net> | 2008-07-28 14:44:17 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2008-07-28 14:44:17 (GMT) |
| commit | 81be026d6ff0c901c6d0184728c69f2b133c2430 (patch) | |
| tree | 30ee94a9a873235e8632e8ff7b6f645ecec01adf | |
| parent | c2de1bd8835d3189362e9834df7ee7d903122371 (diff) | |
| download | tcl-81be026d6ff0c901c6d0184728c69f2b133c2430.zip tcl-81be026d6ff0c901c6d0184728c69f2b133c2430.tar.gz tcl-81be026d6ff0c901c6d0184728c69f2b133c2430.tar.bz2 | |
backport casting fix from HEAD
| -rw-r--r-- | generic/tclBasic.c | 5 |
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; |