diff options
| author | mig <mig> | 2013-12-06 14:29:49 (GMT) |
|---|---|---|
| committer | mig <mig> | 2013-12-06 14:29:49 (GMT) |
| commit | 3cfba0cf67f0c2170e26cbff26e5dcc8bc64bf61 (patch) | |
| tree | 11696c0833d09d26e3409c75934a97dd38d0d97c | |
| parent | 2b62a862dd4a4cfadaace89495663f3b90d49b69 (diff) | |
| download | tcl-mig_opt_foreach.zip tcl-mig_opt_foreach.tar.gz tcl-mig_opt_foreach.tar.bz2 | |
change NULL to INT2PTR(0), for claritymig_opt_foreach
| -rw-r--r-- | generic/tclExecute.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index b6d8841..a3083bc 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -6237,7 +6237,7 @@ TEBCresume( */ TclNewObj(tmpPtr); - tmpPtr->internalRep.twoPtrValue.ptr1 = NULL; + tmpPtr->internalRep.twoPtrValue.ptr1 = INT2PTR(0); tmpPtr->internalRep.twoPtrValue.ptr2 = INT2PTR(iterMax); PUSH_OBJECT(tmpPtr); /* iterCounts object */ |