diff options
| author | patthoyts <patthoyts@users.sourceforge.net> | 2008-08-20 23:48:42 (GMT) |
|---|---|---|
| committer | patthoyts <patthoyts@users.sourceforge.net> | 2008-08-20 23:48:42 (GMT) |
| commit | ae0969dc1fc93fffcaffba7b9558c852a33d624f (patch) | |
| tree | 94db153b59d92ba32b438c0eade0149305150e3b /generic | |
| parent | faa29c2fefd6d227c3dad33bb98df241a38006bf (diff) | |
| download | tcl-ae0969dc1fc93fffcaffba7b9558c852a33d624f.zip tcl-ae0969dc1fc93fffcaffba7b9558c852a33d624f.tar.gz tcl-ae0969dc1fc93fffcaffba7b9558c852a33d624f.tar.bz2 | |
Added casts to make MSVC happy and re-enable the debug build.
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclBasic.c | 4 | ||||
| -rw-r--r-- | generic/tclOOMethod.c | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 40c76b5..ac7fd5e 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.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: tclBasic.c,v 1.356 2008/08/20 15:31:06 dkf Exp $ + * RCS: @(#) $Id: tclBasic.c,v 1.357 2008/08/20 23:48:42 patthoyts Exp $ */ #include "tclInt.h" @@ -2270,7 +2270,7 @@ TclInvokeStringCommand( result = (*cmdPtr->proc)(cmdPtr->clientData, interp, objc, argv); - TclStackFree(interp, argv); + TclStackFree(interp, (char **)argv); return result; } diff --git a/generic/tclOOMethod.c b/generic/tclOOMethod.c index 0110283..c33638d 100644 --- a/generic/tclOOMethod.c +++ b/generic/tclOOMethod.c @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclOOMethod.c,v 1.14 2008/08/20 15:41:26 dkf Exp $ + * RCS: @(#) $Id: tclOOMethod.c,v 1.15 2008/08/20 23:48:42 patthoyts Exp $ */ #ifdef HAVE_CONFIG_H @@ -799,7 +799,7 @@ PushMethodCallFrame( ByteCode *codePtr = pmPtr->procPtr->bodyPtr->internalRep.otherValuePtr; - codePtr->nsPtr = nsPtr; + codePtr->nsPtr = (Namespace *) nsPtr; } result = TclProcCompileProc(interp, pmPtr->procPtr, pmPtr->procPtr->bodyPtr, (Namespace *) nsPtr, "body of method", |