diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-07-01 15:14:15 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-07-01 15:14:15 (GMT) |
| commit | 29ac91cbfe043b243eb5e67530bd1ec5b22b4f40 (patch) | |
| tree | 7eed94d906a52ca0cf74a1b71d44e8083e870f6d | |
| parent | 0472b619fbc768a10d329b4a3b23ea32370a8d7e (diff) | |
| download | tcl-29ac91cbfe043b243eb5e67530bd1ec5b22b4f40.zip tcl-29ac91cbfe043b243eb5e67530bd1ec5b22b4f40.tar.gz tcl-29ac91cbfe043b243eb5e67530bd1ec5b22b4f40.tar.bz2 | |
Test for TclOO 1.1.0. Remove some useless type-casts
| -rw-r--r-- | generic/tclBasic.c | 2 | ||||
| -rw-r--r-- | generic/tclOO.c | 4 | ||||
| -rw-r--r-- | tests/oo.test | 2 | ||||
| -rw-r--r-- | tests/ooNext2.test | 2 |
4 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 33a96eb..9243539 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -4577,7 +4577,7 @@ TEOV_PushExceptionHandlers( */ TclNRAddCallback(interp, TEOV_Error, INT2PTR(objc), - (ClientData) objv, NULL, NULL); + objv, NULL, NULL); } if (iPtr->numLevels == 1) { diff --git a/generic/tclOO.c b/generic/tclOO.c index 9a32543..043aa4c 100644 --- a/generic/tclOO.c +++ b/generic/tclOO.c @@ -136,7 +136,7 @@ static const Tcl_MethodType classConstructor = { * file). */ -static const char *initScript = +static const char initScript[] = "package ifneeded TclOO " TCLOO_PATCHLEVEL " {# Already present, OK?};" "namespace eval ::oo { variable version " TCLOO_VERSION " };" "namespace eval ::oo { variable patchlevel " TCLOO_PATCHLEVEL " };"; @@ -276,7 +276,7 @@ TclOOInit( } return Tcl_PkgProvideEx(interp, "TclOO", TCLOO_PATCHLEVEL, - (ClientData) &tclOOStubs); + &tclOOStubs); } /* diff --git a/tests/oo.test b/tests/oo.test index 0f58c5d..abd5d31 100644 --- a/tests/oo.test +++ b/tests/oo.test @@ -7,7 +7,7 @@ # See the file "license.terms" for information on usage and redistribution of # this file, and for a DISCLAIMER OF ALL WARRANTIES. -package require TclOO 1.0.3 +package require TclOO 1.1.0 if {"::tcltest" ni [namespace children]} { package require tcltest 2.5 namespace import -force ::tcltest::* diff --git a/tests/ooNext2.test b/tests/ooNext2.test index 0ec7cdd..74ba006 100644 --- a/tests/ooNext2.test +++ b/tests/ooNext2.test @@ -7,7 +7,7 @@ # See the file "license.terms" for information on usage and redistribution of # this file, and for a DISCLAIMER OF ALL WARRANTIES. -package require TclOO 1.0.3 +package require TclOO 1.1.0 if {"::tcltest" ni [namespace children]} { package require tcltest 2.5 namespace import -force ::tcltest::* |