From fbfe81aa8560305973fd8e3af9bc16b662cd0a8d Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Thu, 23 Mar 2006 07:57:10 +0000
Subject: [PATCH] Two casts to please gcc 4

---
 scsh/md5.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scsh/md5.c b/scsh/md5.c
index 45c7d16..7e1f37d 100644
--- a/scsh/md5.c
+++ b/scsh/md5.c
@@ -314,7 +314,7 @@ static s48_value MD5Init_stub(s48_value sch_context){
 
 static s48_value MD5Update_stub (s48_value sch_context, s48_value input){
   MD5Update (extract_context (sch_context),
-	     s48_extract_string (input),
+	     (unsigned char*) s48_extract_string (input),
 	     S48_STRING_LENGTH (input));
   return S48_UNSPECIFIC;
 }
@@ -323,7 +323,7 @@ static s48_value MD5Final_stub (s48_value sch_context){
   unsigned char digest[16];
 
   MD5Final (digest, extract_context (sch_context));
-  return (s48_enter_substring (digest, 16));
+  return s48_enter_substring ((char*) digest, 16);
 }