Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | eliminate the use of intptr_t |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | core-8-5-branch |
| Files: | files | file ages | folders |
| SHA1: |
1622089a426827c13336a212c9806b3a |
| User & Date: | jan.nijtmans 2012-03-05 20:39:40 |
Context
|
2012-03-06
| ||
| 20:53 | Compatibility with older Visual Studio versions check-in: e54a8c811e user: jan.nijtmans tags: core-8-5-branch | |
|
2012-03-05
| ||
| 20:44 | merge-mark check-in: 6aba59467d user: jan.nijtmans tags: trunk | |
| 20:39 | eliminate the use of intptr_t check-in: 1622089a42 user: jan.nijtmans tags: core-8-5-branch | |
| 20:11 | merge-mark check-in: b9d5abfcc5 user: jan.nijtmans tags: core-8-5-branch | |
Changes
Changes to generic/tclTest.c.
| ︙ | ︙ | |||
5345 5346 5347 5348 5349 5350 5351 |
TestmainthreadCmd(
ClientData dummy, /* Not used. */
register Tcl_Interp *interp,/* Current interpreter. */
int argc, /* Number of arguments. */
const char **argv) /* Argument strings. */
{
if (argc == 1) {
| | | 5345 5346 5347 5348 5349 5350 5351 5352 5353 5354 5355 5356 5357 5358 5359 |
TestmainthreadCmd(
ClientData dummy, /* Not used. */
register Tcl_Interp *interp,/* Current interpreter. */
int argc, /* Number of arguments. */
const char **argv) /* Argument strings. */
{
if (argc == 1) {
Tcl_Obj *idObj = Tcl_NewLongObj((long)(size_t)Tcl_GetCurrentThread());
Tcl_SetObjResult(interp, idObj);
return TCL_OK;
} else {
Tcl_SetResult(interp, "wrong # args", TCL_STATIC);
return TCL_ERROR;
}
}
|
| ︙ | ︙ | |||
6044 6045 6046 6047 6048 6049 6050 |
if ((cmdName[0] == 'm') && (strncmp(cmdName, "mthread", len) == 0)) {
if (argc != 3) {
Tcl_AppendResult(interp, "channel name required", NULL);
return TCL_ERROR;
}
| | | 6044 6045 6046 6047 6048 6049 6050 6051 6052 6053 6054 6055 6056 6057 6058 |
if ((cmdName[0] == 'm') && (strncmp(cmdName, "mthread", len) == 0)) {
if (argc != 3) {
Tcl_AppendResult(interp, "channel name required", NULL);
return TCL_ERROR;
}
TclFormatInt(buf, (long)(size_t)Tcl_GetChannelThread(chan));
Tcl_AppendResult(interp, buf, NULL);
return TCL_OK;
}
if ((cmdName[0] == 'n') && (strncmp(cmdName, "name", len) == 0)) {
if (argc != 3) {
Tcl_AppendResult(interp, "channel name required", NULL);
|
| ︙ | ︙ |