Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fixed the C99/C++ comments introduced by [8d3f0fb215] which break strict C89 compilers (AIX, cough, cough) |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
ca3ccdf1dfa93e10e8b069833b1a4dc1 |
| User & Date: | andreask 2011-08-16 16:04:28 |
Context
|
2011-08-17
| ||
| 06:37 | separate test for overflowed and negative Tcl_UniChar check-in: 4ab5a018bc user: jan.nijtmans tags: trunk | |
|
2011-08-16
| ||
| 16:04 | Fixed the C99/C++ comments introduced by [8d3f0fb215] which break strict C89 compilers (AIX, cough, ... check-in: ca3ccdf1df user: andreask tags: trunk | |
| 13:55 | Small changes to quell gcc warnings and make message generation less ugly. check-in: df6fb9a914 user: dkf tags: trunk | |
Changes
Changes to generic/tclMain.c.
| ︙ | ︙ | |||
388 389 390 391 392 393 394 |
if (Tcl_LimitExceeded(interp)) {
goto done;
}
if (TclFullFinalizationRequested()) {
/*
* Arrange for final deletion of the main interp
*/
| | | 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 |
if (Tcl_LimitExceeded(interp)) {
goto done;
}
if (TclFullFinalizationRequested()) {
/*
* Arrange for final deletion of the main interp
*/
/* ARGH Munchhausen effect */
Tcl_CreateExitHandler(FreeMainInterp, (ClientData)interp);
}
/*
* Invoke the script specified on the command line, if any. Must fetch it
* again, as the appInitProc might have reset it.
*/
|
| ︙ | ︙ | |||
924 925 926 927 928 929 930 |
static void
FreeMainInterp(
ClientData clientData)
{
Tcl_Interp *interp = (Tcl_Interp *) clientData;
| | | 924 925 926 927 928 929 930 931 932 933 934 935 936 937 938 |
static void
FreeMainInterp(
ClientData clientData)
{
Tcl_Interp *interp = (Tcl_Interp *) clientData;
/*if (TclInExit()) return;*/
if (!Tcl_InterpDeleted(interp)) {
Tcl_DeleteInterp(interp);
}
Tcl_SetStartupScript(NULL, NULL);
Tcl_Release(interp);
}
|
| ︙ | ︙ |