From 166131f652676deae25740abe73e5a6321070c9e Mon Sep 17 00:00:00 2001
From: Przemyslaw Czerpak <druzus@priv.onet.pl>
Date: Sat, 20 Nov 2010 12:22:46 +0000
Subject: [PATCH] 2010-11-20 13:22 UTC+0100 Przemyslaw Czerpak
 (druzus/at/priv.onet.pl)   * harbour/src/rtl/sha1.c     * cleaned casting to
 not drop canst attribute

---
 harbour/ChangeLog      | 4 ++++
 harbour/src/rtl/sha1.c | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index ca4ce52654..49ba7086c2 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -16,6 +16,10 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2010-11-20 13:22 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/src/rtl/sha1.c
+    * cleaned casting to not drop canst attribute
+
 2010-11-20 12:58 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/src/common/expropt2.c
     * casting
diff --git a/harbour/src/rtl/sha1.c b/harbour/src/rtl/sha1.c
index 7c6e5956ff..5ef9df1fb5 100644
--- a/harbour/src/rtl/sha1.c
+++ b/harbour/src/rtl/sha1.c
@@ -123,7 +123,7 @@ void hb_SHA1_Init(SHA_CTX* context) {
 
 /* Run your data through this. */
 void hb_SHA1_Update(SHA_CTX *context, const void *datav, unsigned int len) {
-    sha1_byte * data = ( sha1_byte * ) datav;
+    const sha1_byte * data = ( const sha1_byte * ) datav;
     unsigned int    i, j;
 
     j = (context->count[0] >> 3) & 63;