From b49896f2f7722f77705c30389e744e1f4b005936 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Tue, 3 Nov 2009 17:32:41 +0000 Subject: [PATCH] Updating based on Linux debugging svn: r16520 --- collects/web-server/stuffers/hmac-sha1.ss | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/collects/web-server/stuffers/hmac-sha1.ss b/collects/web-server/stuffers/hmac-sha1.ss index d44b9baa69..23d91d4275 100644 --- a/collects/web-server/stuffers/hmac-sha1.ss +++ b/collects/web-server/stuffers/hmac-sha1.ss @@ -28,15 +28,16 @@ [key_len : _int = (bytes-length key)] [data : _bytes] [data_len : _int = (bytes-length data)] - [md : _pointer = #f] - [md_len : _uint = 0] - f-> - _pointer)) + [md : (_bytes o 20)] + [md_len : (_ptr o _uint)] + f-> _bytes + f-> md)) (lambda (key data) (error 'HMAC-SHA1/raw "libcrypto could not load")))) (define (HMAC-SHA1 key data) + (HMAC-SHA1/raw key data) ; It returns the same pointer always - (bytes-copy + #;(bytes-copy ; A SHA1 is 20 bytes, including 0s (make-sized-byte-string (HMAC-SHA1/raw key data) 20)))