diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-12-05 14:21:55 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-12-05 14:21:55 (GMT) |
| commit | e102f7d0ca92adc41edb8c7a0625c0c9976e215d (patch) | |
| tree | 11a9323f8f77883c870bdebdd38ef81b5dcb5e96 /unix/dltest | |
| parent | 06d38df148ae4415dd9b1ed7afff6d74a5482345 (diff) | |
| parent | b1e66e34704ff978d2dbacea83cc81ae8650a6d0 (diff) | |
| download | tcl-e102f7d0ca92adc41edb8c7a0625c0c9976e215d.zip tcl-e102f7d0ca92adc41edb8c7a0625c0c9976e215d.tar.gz tcl-e102f7d0ca92adc41edb8c7a0625c0c9976e215d.tar.bz2 | |
merge trunk
Change TCL_VERSION to "8.6-" everywhere in Tcl_InitStubs. This is not the way how to do it! Just for testing purposes.
Diffstat (limited to 'unix/dltest')
| -rw-r--r-- | unix/dltest/pkga.c | 2 | ||||
| -rw-r--r-- | unix/dltest/pkgb.c | 4 | ||||
| -rw-r--r-- | unix/dltest/pkgc.c | 2 | ||||
| -rw-r--r-- | unix/dltest/pkgd.c | 4 | ||||
| -rw-r--r-- | unix/dltest/pkge.c | 2 | ||||
| -rw-r--r-- | unix/dltest/pkgua.c | 2 |
6 files changed, 8 insertions, 8 deletions
diff --git a/unix/dltest/pkga.c b/unix/dltest/pkga.c index c4d3f32..901f4c9 100644 --- a/unix/dltest/pkga.c +++ b/unix/dltest/pkga.c @@ -131,7 +131,7 @@ Pkga_Init( { int code; - if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) { + if (Tcl_InitStubs(interp, "8.6-", 0) == NULL) { return TCL_ERROR; } code = Tcl_PkgProvide(interp, "Pkga", "1.0"); diff --git a/unix/dltest/pkgb.c b/unix/dltest/pkgb.c index fe0d365..b00d4e5 100644 --- a/unix/dltest/pkgb.c +++ b/unix/dltest/pkgb.c @@ -121,7 +121,7 @@ Pkgb_Init( { int code; - if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) { + if (Tcl_InitStubs(interp, "8.6-", 0) == NULL) { return TCL_ERROR; } code = Tcl_PkgProvide(interp, "Pkgb", "2.3"); @@ -158,7 +158,7 @@ Pkgb_SafeInit( { int code; - if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) { + if (Tcl_InitStubs(interp, "8.6-", 0) == NULL) { return TCL_ERROR; } code = Tcl_PkgProvide(interp, "Pkgb", "2.3"); diff --git a/unix/dltest/pkgc.c b/unix/dltest/pkgc.c index 557f21b..e5678dc 100644 --- a/unix/dltest/pkgc.c +++ b/unix/dltest/pkgc.c @@ -121,7 +121,7 @@ Pkgc_Init( { int code; - if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) { + if (Tcl_InitStubs(interp, "8.6-", 0) == NULL) { return TCL_ERROR; } code = Tcl_PkgProvide(interp, "Pkgc", "1.7.2"); diff --git a/unix/dltest/pkgd.c b/unix/dltest/pkgd.c index 6e114e9..877489c 100644 --- a/unix/dltest/pkgd.c +++ b/unix/dltest/pkgd.c @@ -121,7 +121,7 @@ Pkgd_Init( { int code; - if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) { + if (Tcl_InitStubs(interp, "8.6-", 0) == NULL) { return TCL_ERROR; } code = Tcl_PkgProvide(interp, "Pkgd", "7.3"); @@ -158,7 +158,7 @@ Pkgd_SafeInit( { int code; - if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) { + if (Tcl_InitStubs(interp, "8.6-", 0) == NULL) { return TCL_ERROR; } code = Tcl_PkgProvide(interp, "Pkgd", "7.3"); diff --git a/unix/dltest/pkge.c b/unix/dltest/pkge.c index d616352..ccd15e3 100644 --- a/unix/dltest/pkge.c +++ b/unix/dltest/pkge.c @@ -47,7 +47,7 @@ Pkge_Init( { static const char script[] = "if 44 {open non_existent}"; - if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) { + if (Tcl_InitStubs(interp, "8.6-", 0) == NULL) { return TCL_ERROR; } return Tcl_Eval(interp, script); diff --git a/unix/dltest/pkgua.c b/unix/dltest/pkgua.c index 417bedb..18a1cac 100644 --- a/unix/dltest/pkgua.c +++ b/unix/dltest/pkgua.c @@ -208,7 +208,7 @@ Pkgua_Init( int code, cmdIndex = 0; Tcl_Command *cmdTokens; - if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) { + if (Tcl_InitStubs(interp, "8.6-", 0) == NULL) { return TCL_ERROR; } |