diff options
| author | davygrvy <davygrvy@pobox.com> | 2004-09-18 22:01:36 (GMT) |
|---|---|---|
| committer | davygrvy <davygrvy@pobox.com> | 2004-09-18 22:01:36 (GMT) |
| commit | 918dd467ea075817926c825ae31091249e621a55 (patch) | |
| tree | c0ef65d3b87d7b973c84fbd57bf8c74b658c191a /win | |
| parent | db2dab191d956abec9f57c0ff0b8b66c99a3e2ca (diff) | |
| download | tcl-918dd467ea075817926c825ae31091249e621a55.zip tcl-918dd467ea075817926c825ae31091249e621a55.tar.gz tcl-918dd467ea075817926c825ae31091249e621a55.tar.bz2 | |
Dde package can load into a safe interp. Claim this fact for the
Tcl_StaticPackage() call when the shell is built with the TCL_USE_STATIC_PACKAGES
option.
Diffstat (limited to 'win')
| -rw-r--r-- | win/tclAppInit.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/win/tclAppInit.c b/win/tclAppInit.c index d8f38e7..b6a72f7 100644 --- a/win/tclAppInit.c +++ b/win/tclAppInit.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclAppInit.c,v 1.19 2004/06/11 19:41:23 kennykb Exp $ + * RCS: @(#) $Id: tclAppInit.c,v 1.20 2004/09/18 22:01:36 davygrvy Exp $ */ #include "tcl.h" @@ -176,6 +176,7 @@ Tcl_AppInit(interp) { extern Tcl_PackageInitProc Registry_Init; extern Tcl_PackageInitProc Dde_Init; + extern Tcl_PackageInitProc Dde_SafeInit; if (Registry_Init(interp) == TCL_ERROR) { return TCL_ERROR; @@ -185,7 +186,7 @@ Tcl_AppInit(interp) if (Dde_Init(interp) == TCL_ERROR) { return TCL_ERROR; } - Tcl_StaticPackage(interp, "dde", Dde_Init, NULL); + Tcl_StaticPackage(interp, "dde", Dde_Init, Dde_SafeInit); } #endif |