Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | typos. On Cygwin, Tcl_SetPanicProc(NULL) should set back the panic proc to its default, which is not NULL. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
38e74dd2c50e916b9638d51de630a5e1 |
| User & Date: | jan.nijtmans 2013-06-26 14:24:20 |
Context
|
2013-06-26
| ||
| 17:26 | Correct typo detected by valgrind. check-in: 8817dafe34 user: dgp tags: trunk | |
| 14:24 | typos. On Cygwin, Tcl_SetPanicProc(NULL) should set back the panic proc to its default, which is no... check-in: 38e74dd2c5 user: jan.nijtmans tags: trunk | |
| 14:20 | formatting, typo check-in: e359b91742 user: jan.nijtmans tags: core-8-5-branch | |
|
2013-06-25
| ||
| 19:23 | Replace always true test with assertion. check-in: 131df98507 user: dgp tags: trunk | |
Changes
Changes to generic/tclConfig.c.
| ︙ | ︙ | |||
84 85 86 87 88 89 90 |
cdPtr->pkg = Tcl_NewStringObj(pkgName, -1);
/*
* Phase I: Adding the provided information to the internal database of
* package meta data. Only if we have an ok encoding.
*
* Phase II: Create a command for querying this database, specific to the
| | | | 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 |
cdPtr->pkg = Tcl_NewStringObj(pkgName, -1);
/*
* Phase I: Adding the provided information to the internal database of
* package meta data. Only if we have an ok encoding.
*
* Phase II: Create a command for querying this database, specific to the
* package registering its configuration. This is the approved interface
* in TIP 59. In the future a more general interface should be done, as
* follow-up to TIP 59. Simply because our database is now general across
* packages, and not a structure tied to one package.
*
* Note, the created command will have a reference through its clientdata.
*/
Tcl_IncrRefCount(cdPtr->pkg);
|
| ︙ | ︙ |
Changes to generic/tclPanic.c.
| ︙ | ︙ | |||
48 49 50 51 52 53 54 55 56 57 58 59 60 61 |
void
Tcl_SetPanicProc(
Tcl_PanicProc *proc)
{
#if defined(_WIN32)
/* tclWinDebugPanic only installs if there is no panicProc yet. */
if ((proc != tclWinDebugPanic) || (panicProc == NULL))
#endif
panicProc = proc;
}
/*
*----------------------------------------------------------------------
*
| > > > > | 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 |
void
Tcl_SetPanicProc(
Tcl_PanicProc *proc)
{
#if defined(_WIN32)
/* tclWinDebugPanic only installs if there is no panicProc yet. */
if ((proc != tclWinDebugPanic) || (panicProc == NULL))
#elif defined(__CYGWIN__)
if (proc == NULL)
panicProc = tclWinDebugPanic;
else
#endif
panicProc = proc;
}
/*
*----------------------------------------------------------------------
*
|
| ︙ | ︙ |