Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Finish INT2PTR/PTR2INT work for tdbc-mysql:clean out commented casts. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
49a3fb27cb9416e187e10293647f323e |
| User & Date: | stu 2017-05-29 21:23:17 |
Context
|
2017-06-05
| ||
| 19:08 | Use tdbc_SRC_DIR from tdbcConfig.sh to locate genstubs tool, instead of hardcoded path. check-in: 294633cee4 user: stu tags: trunk, tdbcmysql-1-0-5 | |
|
2017-05-29
| ||
| 21:23 | Finish INT2PTR/PTR2INT work for tdbc-mysql:clean out commented casts. check-in: 49a3fb27cb user: stu tags: trunk | |
|
2017-05-26
| ||
| 18:30 | rm -f not needed before ${INSTALL_*}. A ghost of past installing. check-in: 82f71b5e9f user: stu tags: trunk | |
Changes
Changes to generic/tdbcmysql.c.
| ︙ | ︙ | |||
2336 2337 2338 2339 2340 2341 2342 |
nameObj = Tcl_NewStringObj(field->name, field->name_length);
Tcl_IncrRefCount(nameObj);
entry = Tcl_CreateHashEntry(&names, field->name, &new);
count = 1;
while (!new) {
count = PTR2INT(Tcl_GetHashValue(entry));
++count;
| | | | 2336 2337 2338 2339 2340 2341 2342 2343 2344 2345 2346 2347 2348 2349 2350 2351 2352 2353 2354 2355 2356 |
nameObj = Tcl_NewStringObj(field->name, field->name_length);
Tcl_IncrRefCount(nameObj);
entry = Tcl_CreateHashEntry(&names, field->name, &new);
count = 1;
while (!new) {
count = PTR2INT(Tcl_GetHashValue(entry));
++count;
Tcl_SetHashValue(entry, INT2PTR(count));
sprintf(numbuf, "#%d", count);
Tcl_AppendToObj(nameObj, numbuf, -1);
entry = Tcl_CreateHashEntry(&names, Tcl_GetString(nameObj),
&new);
}
Tcl_SetHashValue(entry, INT2PTR(count));
Tcl_ListObjAppendElement(NULL, retval, nameObj);
Tcl_DecrRefCount(nameObj);
}
}
Tcl_DeleteHashTable(&names);
return retval;
}
|
| ︙ | ︙ | |||
2592 2593 2594 2595 2596 2597 2598 | literals[LIT_INOUT]); break; default: break; } typeHashEntry = Tcl_FindHashEntry(&(pidata->typeNumHash), | | | 2592 2593 2594 2595 2596 2597 2598 2599 2600 2601 2602 2603 2604 2605 2606 |
literals[LIT_INOUT]);
break;
default:
break;
}
typeHashEntry =
Tcl_FindHashEntry(&(pidata->typeNumHash),
INT2PTR(sdata->params[i].dataType));
if (typeHashEntry != NULL) {
dataTypeName = (Tcl_Obj*) Tcl_GetHashValue(typeHashEntry);
Tcl_DictObjPut(NULL, paramDesc, literals[LIT_TYPE], dataTypeName);
}
Tcl_DictObjPut(NULL, paramDesc, literals[LIT_PRECISION],
Tcl_NewIntObj(sdata->params[i].precision));
Tcl_DictObjPut(NULL, paramDesc, literals[LIT_SCALE],
|
| ︙ | ︙ | |||
3586 3587 3588 3589 3590 3591 3592 |
Tcl_IncrRefCount(pidata->literals[i]);
}
Tcl_InitHashTable(&(pidata->typeNumHash), TCL_ONE_WORD_KEYS);
for (i = 0; dataTypes[i].name != NULL; ++i) {
int new;
Tcl_HashEntry* entry =
Tcl_CreateHashEntry(&(pidata->typeNumHash),
| | | 3586 3587 3588 3589 3590 3591 3592 3593 3594 3595 3596 3597 3598 3599 3600 |
Tcl_IncrRefCount(pidata->literals[i]);
}
Tcl_InitHashTable(&(pidata->typeNumHash), TCL_ONE_WORD_KEYS);
for (i = 0; dataTypes[i].name != NULL; ++i) {
int new;
Tcl_HashEntry* entry =
Tcl_CreateHashEntry(&(pidata->typeNumHash),
INT2PTR(dataTypes[i].num),
&new);
Tcl_Obj* nameObj = Tcl_NewStringObj(dataTypes[i].name, -1);
Tcl_IncrRefCount(nameObj);
Tcl_SetHashValue(entry, (ClientData) nameObj);
}
/*
|
| ︙ | ︙ |