Changeset 37645 in project


Ignore:
Timestamp:
06/02/19 19:30:33 (6 months ago)
Author:
Kon Lovett
Message:

match C update proc use of size_t len in ffi decl

Location:
release/5/sha2/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/5/sha2/trunk/sha2.egg

    r36135 r37645  
    33
    44((synopsis "Computes 256-, 385- and 512-bit SHA2 checksums")
    5  (version "4.0.4")
     5 (version "4.0.5")
    66 (category crypt)
    77 (author "Aaron D. Gifford and Daishi Kato")
     
    1414    #;(inline-file)
    1515    (types-file)
    16     (csc-options "-O3" "-d1") ) ) )
     16    (csc-options "-O3" "-d1" "-local" "-no-procedure-checks") ) ) )
  • release/5/sha2/trunk/sha2.scm

    r35883 r37645  
    3535;;; 256
    3636
    37 (define-foreign-variable context-size-256 int "sizeof(SHA256_CTX)")
    38 (define-foreign-variable digest-length-256 int "SHA256_DIGEST_LENGTH")
    39 (define-foreign-variable block-length-256 int "SHA256_BLOCK_LENGTH")
     37(define-foreign-variable context-size-256 size_t "sizeof(SHA256_CTX)")
     38(define-foreign-variable digest-length-256 size_t "SHA256_DIGEST_LENGTH")
     39(define-foreign-variable block-length-256 size_t "SHA256_BLOCK_LENGTH")
    4040
    4141(define sha256-init (foreign-lambda void "SHA256_Init" c-pointer))
    42 (define sha256-update (foreign-lambda void "SHA256_Update" c-pointer scheme-pointer int))
     42(define sha256-update (foreign-lambda void "SHA256_Update" c-pointer scheme-pointer size_t))
    4343(define sha256-final (foreign-lambda void "SHA256_Final" c-pointer scheme-pointer))
    44 (define sha256-raw-update (foreign-lambda void "SHA256_Update" c-pointer c-pointer int))
     44(define sha256-raw-update (foreign-lambda void "SHA256_Update" c-pointer c-pointer size_t))
    4545
    4646(define sha256-primitive
     
    5656;;; 384
    5757
    58 (define-foreign-variable context-size-384 int "sizeof(SHA384_CTX)")
    59 (define-foreign-variable digest-length-384 int "SHA384_DIGEST_LENGTH")
    60 (define-foreign-variable block-length-384 int "SHA384_BLOCK_LENGTH")
     58(define-foreign-variable context-size-384 size_t "sizeof(SHA384_CTX)")
     59(define-foreign-variable digest-length-384 size_t "SHA384_DIGEST_LENGTH")
     60(define-foreign-variable block-length-384 size_t "SHA384_BLOCK_LENGTH")
    6161
    6262(define sha384-init (foreign-lambda void "SHA384_Init" c-pointer))
    63 (define sha384-update (foreign-lambda void "SHA384_Update" c-pointer scheme-pointer int))
     63(define sha384-update (foreign-lambda void "SHA384_Update" c-pointer scheme-pointer size_t))
    6464(define sha384-final (foreign-lambda void "SHA384_Final" c-pointer scheme-pointer))
    65 (define sha384-raw-update (foreign-lambda void "SHA384_Update" c-pointer c-pointer int))
     65(define sha384-raw-update (foreign-lambda void "SHA384_Update" c-pointer c-pointer size_t))
    6666
    6767(define sha384-primitive
     
    7777;;; 512
    7878
    79 (define-foreign-variable context-size-512 int "sizeof(SHA512_CTX)")
    80 (define-foreign-variable digest-length-512 int "SHA512_DIGEST_LENGTH")
    81 (define-foreign-variable block-length-512 int "SHA512_BLOCK_LENGTH")
     79(define-foreign-variable context-size-512 size_t "sizeof(SHA512_CTX)")
     80(define-foreign-variable digest-length-512 size_t "SHA512_DIGEST_LENGTH")
     81(define-foreign-variable block-length-512 size_t "SHA512_BLOCK_LENGTH")
    8282
    8383(define sha512-init (foreign-lambda void "SHA512_Init" c-pointer))
    84 (define sha512-update (foreign-lambda void "SHA512_Update" c-pointer scheme-pointer int))
     84(define sha512-update (foreign-lambda void "SHA512_Update" c-pointer scheme-pointer size_t))
    8585(define sha512-final (foreign-lambda void "SHA512_Final" c-pointer scheme-pointer))
    86 (define sha512-raw-update (foreign-lambda void "SHA512_Update" c-pointer c-pointer int))
     86(define sha512-raw-update (foreign-lambda void "SHA512_Update" c-pointer c-pointer size_t))
    8787
    8888(define sha512-primitive
Note: See TracChangeset for help on using the changeset viewer.