From 9197b2055e8b84a7e209d45dd88997ba18a1e4e5 Mon Sep 17 00:00:00 2001 From: dgp Date: Sun, 28 Mar 2010 03:17:47 +0000 Subject: Revert the conversion of TCL_VERSION to "8.1" and "8.5" in the Tcl_InitStubs() calls of the pkg*.c testing extensions. --- ChangeLog | 3 --- unix/dltest/pkga.c | 4 ++-- unix/dltest/pkgb.c | 6 +++--- unix/dltest/pkgc.c | 6 +++--- unix/dltest/pkgd.c | 6 +++--- unix/dltest/pkge.c | 4 ++-- unix/dltest/pkgua.c | 4 ++-- 7 files changed, 15 insertions(+), 18 deletions(-) diff --git a/ChangeLog b/ChangeLog index bf4d6c5..49b408c 100644 --- a/ChangeLog +++ b/ChangeLog @@ -4,9 +4,6 @@ * generic/tclResult.c * generic/tclCmdMZ.c * generic/tclCompCmdsSZ.c - * unix/dltest/*.c Provide "lowest supported Tcl version" to - the Tcl_InitStubs functions, in stead of - "current Tcl version" 2010-03-26 Jan Nijtmans diff --git a/unix/dltest/pkga.c b/unix/dltest/pkga.c index 18ff997..3c12289 100644 --- a/unix/dltest/pkga.c +++ b/unix/dltest/pkga.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: pkga.c,v 1.15 2010/03/27 22:47:04 nijtmans Exp $ + * RCS: @(#) $Id: pkga.c,v 1.16 2010/03/28 03:17:50 dgp Exp $ */ #include "tcl.h" @@ -132,7 +132,7 @@ Pkga_Init( { int code; - if (Tcl_InitStubs(interp, "8.1", 0) == NULL) { + if (Tcl_InitStubs(interp, TCL_VERSION, 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 185f39c..df0cde3 100644 --- a/unix/dltest/pkgb.c +++ b/unix/dltest/pkgb.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: pkgb.c,v 1.12 2010/03/27 22:47:04 nijtmans Exp $ + * RCS: @(#) $Id: pkgb.c,v 1.13 2010/03/28 03:17:50 dgp Exp $ */ #include "tcl.h" @@ -122,7 +122,7 @@ Pkgb_Init( { int code; - if (Tcl_InitStubs(interp, "8.1", 0) == NULL) { + if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) { return TCL_ERROR; } code = Tcl_PkgProvide(interp, "Pkgb", "2.3"); @@ -159,7 +159,7 @@ Pkgb_SafeInit( { int code; - if (Tcl_InitStubs(interp, "8.1", 0) == NULL) { + if (Tcl_InitStubs(interp, TCL_VERSION, 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 16c768a..3e4c4e6 100644 --- a/unix/dltest/pkgc.c +++ b/unix/dltest/pkgc.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: pkgc.c,v 1.12 2010/03/27 22:47:04 nijtmans Exp $ + * RCS: @(#) $Id: pkgc.c,v 1.13 2010/03/28 03:17:50 dgp Exp $ */ #include "tcl.h" @@ -122,7 +122,7 @@ Pkgc_Init( { int code; - if (Tcl_InitStubs(interp, "8.1", 0) == NULL) { + if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) { return TCL_ERROR; } code = Tcl_PkgProvide(interp, "Pkgc", "1.7.2"); @@ -159,7 +159,7 @@ Pkgc_SafeInit( { int code; - if (Tcl_InitStubs(interp, "8.1", 0) == NULL) { + if (Tcl_InitStubs(interp, TCL_VERSION, 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 ef6f339..d713e2e 100644 --- a/unix/dltest/pkgd.c +++ b/unix/dltest/pkgd.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: pkgd.c,v 1.11 2010/03/27 22:47:04 nijtmans Exp $ + * RCS: @(#) $Id: pkgd.c,v 1.12 2010/03/28 03:17:50 dgp Exp $ */ #include "tcl.h" @@ -122,7 +122,7 @@ Pkgd_Init( { int code; - if (Tcl_InitStubs(interp, "8.1", 0) == NULL) { + if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) { return TCL_ERROR; } code = Tcl_PkgProvide(interp, "Pkgd", "7.3"); @@ -159,7 +159,7 @@ Pkgd_SafeInit( { int code; - if (Tcl_InitStubs(interp, "8.1", 0) == NULL) { + if (Tcl_InitStubs(interp, TCL_VERSION, 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 3e93602..bd0d838 100644 --- a/unix/dltest/pkge.c +++ b/unix/dltest/pkge.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: pkge.c,v 1.13 2010/03/27 22:47:04 nijtmans Exp $ + * RCS: @(#) $Id: pkge.c,v 1.14 2010/03/28 03:17:50 dgp Exp $ */ #include "tcl.h" @@ -48,7 +48,7 @@ Pkge_Init( { static const char script[] = "if 44 {open non_existent}"; - if (Tcl_InitStubs(interp, "8.1", 0) == NULL) { + if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) { return TCL_ERROR; } return Tcl_Eval(interp, script); diff --git a/unix/dltest/pkgua.c b/unix/dltest/pkgua.c index d22adcb..e431deb 100644 --- a/unix/dltest/pkgua.c +++ b/unix/dltest/pkgua.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: pkgua.c,v 1.10 2010/03/27 22:47:04 nijtmans Exp $ + * RCS: @(#) $Id: pkgua.c,v 1.11 2010/03/28 03:17:50 dgp Exp $ */ #include "tcl.h" @@ -209,7 +209,7 @@ Pkgua_Init( int code, cmdIndex = 0; Tcl_Command *cmdTokens; - if (Tcl_InitStubs(interp, "8.5", 0) == NULL) { + if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) { return TCL_ERROR; } -- cgit v0.12