Index: tlsBIO.c ================================================================== --- tlsBIO.c +++ tlsBIO.c @@ -44,10 +44,12 @@ int flags; { BIO *bio; static BIO_METHOD *BioMethods = NULL; + dprintf("BIO_new_tcl() called"); + if (BioMethods == NULL) { BioMethods = BIO_meth_new(BIO_TYPE_TCL, "tcl"); BIO_meth_set_write(BioMethods, BioWrite); BIO_meth_set_read(BioMethods, BioRead); BIO_meth_set_puts(BioMethods, BioPuts); @@ -150,10 +152,11 @@ static int BioPuts (bio, str) BIO *bio; CONST char *str; { + dprintf("BioPuts(%p, ) called", bio, str); return BioWrite(bio, str, (int) strlen(str)); } static long BioCtrl (bio, cmd, num, ptr) @@ -224,10 +227,13 @@ static int BioNew (bio) BIO *bio; { + + dprintf("BioNew(%p) called", bio); + BIO_set_init(bio, 0); BIO_set_data(bio, NULL); BIO_clear_flags(bio, -1); return 1; @@ -238,10 +244,13 @@ BIO *bio; { if (bio == NULL) { return 0; } + + dprintf("BioFree(%p) called", bio); + if (BIO_get_shutdown(bio)) { if (BIO_get_init(bio)) { /*shutdown(bio->num, 2) */ /*closesocket(bio->num) */ }