Index: tlsBIO.c ================================================================== --- tlsBIO.c +++ tlsBIO.c @@ -141,11 +141,10 @@ long num; void *ptr; { Tcl_Channel chan = Tls_GetParent((State*)BIO_get_data(bio)); long ret = 1; - int *ip; dprintf("BioCtrl(%p, 0x%x, 0x%x, %p)", (void *) bio, (unsigned int) cmd, (unsigned int) num, (void *) ptr); @@ -157,30 +156,18 @@ ret = 0; break; case BIO_CTRL_INFO: ret = 1; break; -#if 0 case BIO_C_SET_FD: - BioFree(bio); - /* Sets State* */ - bio->ptr = *((char **)ptr); - bio->shutdown = (int)num; - bio->init = 1; - break; + dprintf("Unsupported call: BIO_C_SET_FD"); + ret = -1; + break; case BIO_C_GET_FD: - if (bio->init) { - ip = (int *)ptr; - if (ip != NULL) { - *ip = bio->num; - } - ret = bio->num; - } else { - ret = -1; - } - break; -#endif + dprintf("Unsupported call: BIO_C_GET_FD"); + ret = -1; + break; case BIO_CTRL_GET_CLOSE: ret = BIO_get_shutdown(bio); break; case BIO_CTRL_SET_CLOSE: BIO_set_shutdown(bio, num);