Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Finish INT2PTR/PTR2INT work for tdbc-odbc:remove a cast, clean out a commented cast. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
e0f3c0cef078854a72301cfce93f3c68 |
| User & Date: | stu 2017-05-29 22:49:01 |
Context
|
2017-06-05
| ||
| 16:22 | Drop iodbc until we can deal with its different SQLCHAR size. check-in: 9daa1f819f user: stu tags: trunk | |
|
2017-05-29
| ||
| 22:49 | Finish INT2PTR/PTR2INT work for tdbc-odbc:remove a cast, clean out a commented cast. check-in: e0f3c0cef0 user: stu tags: trunk | |
| 04:57 | Fix inverted test in new loader. check-in: 986133b362 user: stu tags: trunk | |
Changes
Changes to generic/tdbcodbc.c.
| ︙ | ︙ | |||
1330 1331 1332 1333 1334 1335 1336 | /* * Non-unique name - append a # and the number of times * we've seen it before. */ count = PTR2INT(Tcl_GetHashValue(nameEntry)); ++count; | | | 1330 1331 1332 1333 1334 1335 1336 1337 1338 1339 1340 1341 1342 1343 1344 | /* * Non-unique name - append a # and the number of times * we've seen it before. */ count = PTR2INT(Tcl_GetHashValue(nameEntry)); ++count; Tcl_SetHashValue(nameEntry, INT2PTR(count)); sprintf(numbuf, "#%d", count); Tcl_AppendToObj(colNameObj, numbuf, -1); } /* Add column name to the list of column names */ Tcl_ListObjAppendElement(NULL, colNames, colNameObj); |
| ︙ | ︙ | |||
1691 1692 1693 1694 1695 1696 1697 |
Tcl_DecrRefCount(command);
if (status != TCL_OK) {
Tcl_AddErrorInfo(interp,
"\n (retrieving ID of parent window)");
return status;
}
Tcl_ResetResult(interp);
| | | 1691 1692 1693 1694 1695 1696 1697 1698 1699 1700 1701 1702 1703 1704 1705 |
Tcl_DecrRefCount(command);
if (status != TCL_OK) {
Tcl_AddErrorInfo(interp,
"\n (retrieving ID of parent window)");
return status;
}
Tcl_ResetResult(interp);
*hParentWindowPtr = INT2PTR(w);
*connectFlagsPtr = SQL_DRIVER_COMPLETE_REQUIRED;
break;
case COPTION_READONLY:
/* read-only indicator */
if (Tcl_GetBooleanFromObj(interp, objv[i+1], &j) != TCL_OK) {
|
| ︙ | ︙ |