diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-14 15:19:18 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-14 15:19:18 (GMT) |
| commit | a8dc97056d6b68ef14637bf9e6672707b32745b3 (patch) | |
| tree | 31cb160cbb890980419a769ceac2b44f3ced80ef /generic/tclInt.decls | |
| parent | e60c4a17aeedfbaa0ad9bc054f87f3096f123d48 (diff) | |
| download | tcl-a8dc97056d6b68ef14637bf9e6672707b32745b3.zip tcl-a8dc97056d6b68ef14637bf9e6672707b32745b3.tar.gz tcl-a8dc97056d6b68ef14637bf9e6672707b32745b3.tar.bz2 | |
Put back Tcl_[GS]etStartupScript in internal stub table, so extensions using this, compiled against 8.5 headers still run in Tcl 8.6.
Diffstat (limited to 'generic/tclInt.decls')
| -rw-r--r-- | generic/tclInt.decls | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/generic/tclInt.decls b/generic/tclInt.decls index 948cc01..58dab42 100644 --- a/generic/tclInt.decls +++ b/generic/tclInt.decls @@ -731,13 +731,13 @@ declare 177 { void TclVarErrMsg(Tcl_Interp *interp, const char *part1, const char *part2, const char *operation, const char *reason) } -# TIP 338 made these public - now declared in tcl.h -#declare 178 { -# void Tcl_SetStartupScript(Tcl_Obj *pathPtr, const char *encodingName) -#} -#declare 179 { -# Tcl_Obj *Tcl_GetStartupScript(const char **encodingNamePtr) -#} +# TIP 338 made these public - now declared in tcl.h too +declare 178 { + void Tcl_SetStartupScript(Tcl_Obj *pathPtr, const char *encodingName) +} +declare 179 { + Tcl_Obj *Tcl_GetStartupScript(const char **encodingNamePtr) +} # REMOVED # Allocate lists without copying arrays |