@@ -1,9 +1,9 @@
 /*
  * Copyright (C) 1997-2000 Matt Newman <matt@novadigm.com>
  *
- * $Header: /home/rkeene/tmp/cvs2fossil/../tcltls/tls/tls/tlsBIO.c,v 1.5 2000/08/18 19:17:36 hobbs Exp $
+ * $Header: /home/rkeene/tmp/cvs2fossil/../tcltls/tls/tls/tlsBIO.c,v 1.6 2002/02/04 22:46:31 hobbs Exp $
  *
  * Provides BIO layer to interface openssl to Tcl.
  */
 
 #include "tlsInt.h"
@@ -10,14 +10,14 @@
 
 /*
  * Forward declarations
  */
 
-static int BioWrite	_ANSI_ARGS_ ((BIO *h, char *buf, int num));
+static int BioWrite	_ANSI_ARGS_ ((BIO *h, CONST char *buf, int num));
 static int BioRead	_ANSI_ARGS_ ((BIO *h, char *buf, int num));
-static int BioPuts	_ANSI_ARGS_ ((BIO *h, char *str));
-static long BioCtrl	_ANSI_ARGS_ ((BIO *h, int cmd, long arg1, char *ptr));
+static int BioPuts	_ANSI_ARGS_ ((BIO *h, CONST char *str));
+static long BioCtrl	_ANSI_ARGS_ ((BIO *h, int cmd, long arg1, CONST char *ptr));
 static int BioNew	_ANSI_ARGS_ ((BIO *h));
 static int BioFree	_ANSI_ARGS_ ((BIO *h));
 
 
 static BIO_METHOD BioMethods = {
@@ -53,11 +53,11 @@
 }
 
 static int
 BioWrite (bio, buf, bufLen)
     BIO *bio;
-    char *buf;
+    CONST char *buf;
     int bufLen;
 {
     Tcl_Channel chan = Tls_GetParent((State*)(bio->ptr));
     int ret;
 
@@ -125,21 +125,21 @@
 }
 
 static int
 BioPuts	(bio, str)
     BIO *bio;
-    char *str;
+    CONST char *str;
 {
     return BioWrite(bio, str, strlen(str));
 }
 
 static long
 BioCtrl	(bio, cmd, num, ptr)
     BIO *bio;
     int cmd;
     long num;
-    char *ptr;
+    CONST char *ptr;
 {
     Tcl_Channel chan = Tls_GetParent((State*)bio->ptr);
     long ret = 1;
     int *ip;