diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-04-04 17:15:57 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-04-04 17:15:57 (GMT) |
| commit | 708d24cc2db91bc756e868c21cc1cde376f040b3 (patch) | |
| tree | 4e410c2ae8b46408603dd7ce238c34d6841f4032 /generic/tclTest.c | |
| parent | 8050513a3135b2822a0d60bf2e42f4618cb3c015 (diff) | |
| parent | 15b5f31cafb65b5055b670feabbbcf17d7af45f4 (diff) | |
| download | tcl-708d24cc2db91bc756e868c21cc1cde376f040b3.zip tcl-708d24cc2db91bc756e868c21cc1cde376f040b3.tar.gz tcl-708d24cc2db91bc756e868c21cc1cde376f040b3.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index a51f473..31deffe 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -4220,7 +4220,7 @@ TestsetplatformCmd( * TeststaticpkgCmd -- * * This procedure implements the "teststaticpkg" command. - * It is used to test the procedure Tcl_StaticPackage. + * It is used to test the procedure Tcl_StaticLibrary. * * Results: * A standard Tcl result. @@ -4252,7 +4252,7 @@ TeststaticpkgCmd( if (Tcl_GetInt(interp, argv[3], &loaded) != TCL_OK) { return TCL_ERROR; } - Tcl_StaticPackage((loaded) ? interp : NULL, argv[1], + Tcl_StaticLibrary((loaded) ? interp : NULL, argv[1], StaticInitProc, (safe) ? StaticInitProc : NULL); return TCL_OK; } |