Index: tls.h
==================================================================
--- tls.h
+++ tls.h
@@ -16,24 +16,14 @@
  *
  */
 #ifndef _TLS_H
 #define _TLS_H
 
-#include <tcl.h>	/* Internal definitions for Tcl. */
-
-#ifdef TCL_STORAGE_CLASS
-# undef TCL_STORAGE_CLASS
-#endif
-#ifdef BUILD_tls
-# define TCL_STORAGE_CLASS DLLEXPORT
-#else
-# define TCL_STORAGE_CLASS DLLIMPORT
-#endif
+#include <tcl.h>
 
 /*
- * Forward declarations
+ * Initialization routines -- our entire public C API.
  */
-
-EXTERN int Tls_Init _ANSI_ARGS_ ((Tcl_Interp *));
-EXTERN int Tls_SafeInit _ANSI_ARGS_ ((Tcl_Interp *));
+int Tls_Init(Tcl_Interp *interp);
+int Tls_SafeInit(Tcl_Interp *interp);
 
 #endif /* _TLS_H */

Index: tlsIO.c
==================================================================
--- tlsIO.c
+++ tlsIO.c
@@ -250,11 +250,11 @@
 
     if (bytesRead < 0) {
 	int err = SSL_get_error(statePtr->ssl, bytesRead);
 
 	if (err == SSL_ERROR_SSL) {
-	    Tls_Error(statePtr, SSL_ERROR(statePtr->ssl, bytesRead));
+	    Tls_Error(statePtr, TCLTLS_SSL_ERROR(statePtr->ssl, bytesRead));
 	    *errorCodePtr = ECONNABORTED;
 	} else if (BIO_should_retry(statePtr->bio)) {
 	    dprintf("RE! ");
 	    *errorCodePtr = EAGAIN;
 	} else {
@@ -368,11 +368,11 @@
 		dprintf(" [%d] syscall errr: %d",
 			written, *errorCodePtr);
 		written = -1;
 		break;
 	    case SSL_ERROR_SSL:
-		Tls_Error(statePtr, SSL_ERROR(statePtr->ssl, written));
+		Tls_Error(statePtr, TCLTLS_SSL_ERROR(statePtr->ssl, written));
 		*errorCodePtr = ECONNABORTED;
 		written = -1;
 		break;
 	    default:
 		dprintf(" unknown err: %d", err);

Index: tlsInt.h
==================================================================
--- tlsInt.h
+++ tlsInt.h
@@ -42,38 +42,23 @@
 #  ifndef NO_SSL2
 #    define NO_SSL2
 #  endif
 #endif
 
-#ifdef BSAFE
-#include <ssl.h>
-#include <err.h>
-#include <rand.h>
-#else
 #include <openssl/ssl.h>
 #include <openssl/err.h>
 #include <openssl/rand.h>
 #include <openssl/opensslv.h>
-#endif
 
 /*
  * Determine if we should use the pre-OpenSSL 1.1.0 API
  */
 #undef TCLTLS_OPENSSL_PRE_1_1
 #if (defined(LIBRESSL_VERSION_NUMBER)) || OPENSSL_VERSION_NUMBER < 0x10100000L
 #  define TCLTLS_OPENSSL_PRE_1_1_API 1
 #endif
 
-#ifdef TCL_STORAGE_CLASS
-# undef TCL_STORAGE_CLASS
-#endif
-#ifdef BUILD_tls
-# define TCL_STORAGE_CLASS DLLEXPORT
-#else
-# define TCL_STORAGE_CLASS DLLIMPORT
-#endif
- 
 #ifndef ECONNABORTED
 #define ECONNABORTED	130	/* Software caused connection abort */
 #endif
 #ifndef ECONNRESET
 #define ECONNRESET	131	/* Connection reset by peer */
@@ -83,12 +68,11 @@
 #define dprintf(...) { fprintf(stderr, "%s:%i:", __func__, __LINE__); fprintf(stderr, __VA_ARGS__); fprintf(stderr, "\n"); }
 #else
 #define dprintf(...) if (0) { fprintf(stderr, __VA_ARGS__); }
 #endif
 
-#define SSL_ERROR(ssl,err)	\
-    ((char*)ERR_reason_error_string((unsigned long)SSL_get_error((ssl),(err))))
+#define TCLTLS_SSL_ERROR(ssl,err) ((char*)ERR_reason_error_string((unsigned long)SSL_get_error((ssl),(err))))
 /*
  * OpenSSL BIO Routines
  */
 #define BIO_TYPE_TCL	(19|0x0400)
 
@@ -112,28 +96,28 @@
  * of an ssl channel.
  *
  * The SSL processing context is maintained here, in the ClientData
  */
 typedef struct State {
-    Tcl_Channel self;	/* this socket channel */
-    Tcl_TimerToken timer;
-
-    int flags;		/* see State.flags above  */
-    int watchMask;	/* current WatchProc mask */
-    int mode;		/* current mode of parent channel */
-
-    Tcl_Interp *interp;	/* interpreter in which this resides */
-    Tcl_Obj *callback;	/* script called for tracing, verifying and errors */
-    Tcl_Obj *password;	/* script called for certificate password */ 
-
-    int vflags;		/* verify flags */
-    SSL *ssl;		/* Struct for SSL processing */
-    SSL_CTX *ctx;	/* SSL Context */
-    BIO *bio;		/* Struct for SSL processing */
-    BIO *p_bio;		/* Parent BIO (that is layered on Tcl_Channel) */
-
-    char *err;
+	Tcl_Channel self;       /* this socket channel */
+	Tcl_TimerToken timer;
+
+	int flags;              /* see State.flags above  */
+	int watchMask;          /* current WatchProc mask */
+	int mode;               /* current mode of parent channel */
+
+	Tcl_Interp *interp;     /* interpreter in which this resides */
+	Tcl_Obj *callback;      /* script called for tracing, verifying and errors */
+	Tcl_Obj *password;      /* script called for certificate password */ 
+
+	int vflags;             /* verify flags */
+	SSL *ssl;               /* Struct for SSL processing */
+	SSL_CTX *ctx;           /* SSL Context */
+	BIO *bio;               /* Struct for SSL processing */
+	BIO *p_bio;             /* Parent BIO (that is layered on Tcl_Channel) */
+
+	char *err;
 } State;
 
 #ifdef USE_TCL_STUBS
 #ifndef Tcl_StackChannel
 #error "Unable to compile on this version of Tcl"
@@ -141,18 +125,17 @@
 #endif /* USE_TCL_STUBS */
 
 /*
  * Forward declarations
  */
-
-Tcl_ChannelType *Tls_ChannelType _ANSI_ARGS_((void));
-Tcl_Channel     Tls_GetParent _ANSI_ARGS_((State *statePtr));
-
-Tcl_Obj         *Tls_NewX509Obj _ANSI_ARGS_ (( Tcl_Interp *interp, X509 *cert));
-void            Tls_Error _ANSI_ARGS_ ((State *statePtr, char *msg));
-void            Tls_Free _ANSI_ARGS_ ((char *blockPtr));
-void            Tls_Clean _ANSI_ARGS_ ((State *statePtr));
-int             Tls_WaitForConnect _ANSI_ARGS_(( State *statePtr, int *errorCodePtr));
-
-BIO             *BIO_new_tcl _ANSI_ARGS_((State* statePtr, int flags));
+Tcl_ChannelType *Tls_ChannelType(void);
+Tcl_Channel     Tls_GetParent(State *statePtr);
+
+Tcl_Obj         *Tls_NewX509Obj(Tcl_Interp *interp, X509 *cert);
+void            Tls_Error(State *statePtr, char *msg);
+void            Tls_Free(char *blockPtr);
+void            Tls_Clean(State *statePtr);
+int             Tls_WaitForConnect(State *statePtr, int *errorCodePtr);
+
+BIO             *BIO_new_tcl(State* statePtr, int flags);
 
 #endif /* _TLSINT_H */