diff options
| author | dgp <dgp@noemail.net> | 2008-04-01 16:23:33 (GMT) |
|---|---|---|
| committer | dgp <dgp@noemail.net> | 2008-04-01 16:23:33 (GMT) |
| commit | 317262f10e7545da72370dcc6458f15d020a27db (patch) | |
| tree | 88e6f1d2a4e02352b1f81c9c23212f7119e55d8e /tools | |
| parent | 2f3d05f1b9c3d188e8e5b7fc2f2d12cd75f76ba1 (diff) | |
| download | tcl-317262f10e7545da72370dcc6458f15d020a27db.zip tcl-317262f10e7545da72370dcc6458f15d020a27db.tar.gz tcl-317262f10e7545da72370dcc6458f15d020a27db.tar.bz2 | |
* README: Bump version number to 8.6a0
* generic/tcl.h:
* library/init.tcl:
* macosx/Tcl-Common.xcconfig:
* macosx/Tcl.pbproj/default.pbxuser:
* macosx/Tcl.pbproj/project.pbxproj:
* tools/tcl.wse.in:
* unix/configure.in:
* unix/tcl.spec:
* win/README:
* win/configure.in:
* win/makefile.bc:
* win/tcl.m4:
* unix/configure: autoconf-2.59
* win/configure:
* generic/tclBasic.c: Revised stubs-generation tool and interp
* tools/genStubs.tcl: creation so that "tclStubsPtr" is not present
* unix/Makefile.in: in libtcl.so, but is present only in
libtclstub.a. This tightens up the rules for users of the stubs
interfaces. [Bug 1819422]
* generic/tclDecls.h: make genstubs
* generic/tclIntDecls.h:
* generic/tclIntPlatDecls.h:
* generic/tclPlatDecls.h:
* generic/tclTomMathDecls.h:
FossilOrigin-Name: b76be03521619e41d68101547228a6b69c44ccd3
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/genStubs.tcl | 6 | ||||
| -rw-r--r-- | tools/tcl.wse.in | 6 |
2 files changed, 8 insertions, 4 deletions
diff --git a/tools/genStubs.tcl b/tools/genStubs.tcl index 5bc3984..eceea00 100644 --- a/tools/genStubs.tcl +++ b/tools/genStubs.tcl @@ -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: genStubs.tcl,v 1.22 2007/12/13 15:28:40 dgp Exp $ +# RCS: @(#) $Id: genStubs.tcl,v 1.23 2008/04/01 16:23:42 dgp Exp $ package require Tcl 8.4 @@ -972,6 +972,7 @@ proc genStubs::emitMacros {name textVar} { proc genStubs::emitHeader {name} { variable outDir variable hooks + variable libraryName set capName [string toupper [string index $name 0]] append capName [string range $name 1 end] @@ -995,9 +996,12 @@ proc genStubs::emitHeader {name} { append text "} ${capName}Stubs;\n" + set upName [string toupper $libraryName] + append text "\n#if defined(USE_${upName}_STUBS) && !defined(USE_${upName}_STUB_PROCS)\n" append text "\n#ifdef __cplusplus\nextern \"C\" {\n#endif\n" append text "extern ${capName}Stubs *${name}StubsPtr;\n" append text "#ifdef __cplusplus\n}\n#endif\n" + append text "\n#endif /* defined(USE_${upName}_STUBS) && !defined(USE_${upName}_STUB_PROCS) */\n" emitMacros $name text diff --git a/tools/tcl.wse.in b/tools/tcl.wse.in index a732b25..e5914fc 100644 --- a/tools/tcl.wse.in +++ b/tools/tcl.wse.in @@ -1,7 +1,7 @@ Document Type: WSE item: Global Version=6.01 - Title=Tcl 8.5 for Windows Installation + Title=Tcl 8.6 for Windows Installation Flags=00010100 Languages=65 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 Japanese Font Name=MS Gothic @@ -12,7 +12,7 @@ item: Global Log Pathname=%MAINDIR%\INSTALL.LOG Message Font=MS Sans Serif Font Size=8 - Disk Label=tcl8.5.2 + Disk Label=tcl8.6a0 Disk Filename=setup Patch Flags=0000000000000001 Patch Threshold=85 @@ -42,7 +42,7 @@ item: End Block end item: Set Variable Variable=VER - Value=8.5 + Value=8.6 end item: Set Variable Variable=PATCHLEVEL |