Posted to tcl by kbk at Sun Jan 06 02:01:36 GMT 2008view raw
- conClassObj = Tcl_NewStringObj("::tdbc::odbc::connection", -1);
- Tcl_IncrRefCount(conClassObj);
- if ((conClassObject = Tcl_GetObjectFromObj(interp, conClassObj)) == NULL) {
- Tcl_DecrRefCount(conClassObj);
- return TCL_ERROR;
- }
- Tcl_DecrRefCount(conClassObj);