diff --git a/src/modules/_Crypto/des.c b/src/modules/_Crypto/des.c
index c67dfef6a32cab6dc0997a2b9d2eda65560ded7e..77cd984ba6818bec0cce0df452086e26e3aff883 100644
--- a/src/modules/_Crypto/des.c
+++ b/src/modules/_Crypto/des.c
@@ -1,5 +1,5 @@
 /*
- * $Id: des.c,v 1.7 1997/03/17 03:11:15 hubbe Exp $
+ * $Id: des.c,v 1.8 1997/05/30 02:40:14 grubba Exp $
  *
  * A pike module for getting access to some common cryptos.
  *
@@ -94,7 +94,7 @@ static void set_key(INT32 args)
   }
   if (sp[-1].u.string->len != 8)
     error("Invalid key length to des->set_key()\n");
-  switch (DesMethod(THIS->method, sp[-1].u.string->str))
+  switch (DesMethod(THIS->method, (unsigned INT8 *)sp[-1].u.string->str))
     {
     case -1:
       error("des->set_key: parity error\n");
diff --git a/src/modules/_Crypto/include/des.h b/src/modules/_Crypto/include/des.h
index 06e39c6e60d9039f61dac773c1524032ac106d0a..76dbadf42eda4c1722ad057eff3d3b0f0f61ac4a 100644
--- a/src/modules/_Crypto/include/des.h
+++ b/src/modules/_Crypto/include/des.h
@@ -12,7 +12,7 @@
 #include "crypto_types.h"
 
 #include "RCSID.h"
-RCSID2(desCore_hRcs, "$Id: des.h,v 1.3 1997/03/15 04:51:08 nisse Exp $");
+RCSID2(desCore_hRcs, "$Id: des.h,v 1.4 1997/05/30 02:40:15 grubba Exp $");
 
 #define DES_KEYSIZE 8
 #define DES_BLOCKSIZE 8
@@ -35,7 +35,7 @@ extern DesFunc DesSmallCoreDecrypt;
 extern DesFunc DesSmallFipsDecrypt;
 
 extern DesFunc *DesCryptFuncs[2];
-extern int des_key_sched(INT8 *k, INT32 *s);
-extern int des_ecb_encrypt(INT8 *s, INT8 *d, INT32 *r, int e);
+extern int des_key_sched(unsigned INT8 *k, unsigned INT32 *s);
+extern int des_ecb_encrypt(unsigned INT8 *s, unsigned INT8 *d, unsigned INT32 *r, int e);
 
 #endif /*  DES_H_INCLUDED */
diff --git a/src/modules/_Crypto/lib/desKerb.c b/src/modules/_Crypto/lib/desKerb.c
index 0240074946b56d94c966b9aa5a263ae868a07876..05ddd31375bf91273002ed7685049d84cdd80b40 100644
--- a/src/modules/_Crypto/lib/desKerb.c
+++ b/src/modules/_Crypto/lib/desKerb.c
@@ -7,7 +7,7 @@
 #include "des.h"
 
 #include "RCSID.h"
-RCSID2(desKerb_cRcs, "$Id: desKerb.c,v 1.2 1997/03/15 04:51:44 nisse Exp $");
+RCSID2(desKerb_cRcs, "$Id: desKerb.c,v 1.3 1997/05/30 02:40:17 grubba Exp $");
 
 /* permit the default style of des functions to be changed */
 
@@ -16,7 +16,7 @@ DesFunc *DesCryptFuncs[2] = { DesSmallFipsDecrypt, DesSmallFipsEncrypt };
 /* kerberos-compatible key schedule function */
 
 int
-des_key_sched(INT8 *k, INT32 *s)
+des_key_sched(unsigned INT8 *k, unsigned INT32 *s)
 {
 	return DesMethod(s, k);
 }
@@ -24,7 +24,7 @@ des_key_sched(INT8 *k, INT32 *s)
 /* kerberos-compatible des coding function */
 
 int
-des_ecb_encrypt(INT8 *s, INT8 *d, INT32 *r, int e)
+des_ecb_encrypt(unsigned INT8 *s, unsigned INT8 *d, unsigned INT32 *r, int e)
 {
 	(*DesCryptFuncs[e])(d, r, s);
 	return 0;
diff --git a/src/pike_types.c b/src/pike_types.c
index 18ac0ff8e4913c541e21513bc3ca62737e300f2c..501084728e0a9134dcabb9e12b7fff20976d6b06 100644
--- a/src/pike_types.c
+++ b/src/pike_types.c
@@ -4,7 +4,7 @@
 ||| See the files COPYING and DISCLAIMER for more information.
 \*/
 #include "global.h"
-RCSID("$Id: pike_types.c,v 1.22 1997/05/19 23:31:06 hubbe Exp $");
+RCSID("$Id: pike_types.c,v 1.23 1997/05/30 02:40:10 grubba Exp $");
 #include <ctype.h>
 #include "svalue.h"
 #include "pike_types.h"
@@ -188,7 +188,7 @@ void type_stack_reverse()
 {
   INT32 a;
   a=pop_stack_mark();
-  reverse(type_stackp-a,a,1);
+  reverse((char *)(type_stackp-a),a,1);
 }
 
 void push_type_int(unsigned INT32 i)