Changeset 35440 in project


Ignore:
Timestamp:
04/26/18 02:08:24 (4 months ago)
Author:
kon
Message:

ocd

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/tiger-hash/trunk/tiger-hash.scm

    r34378 r35440  
    55(module tiger-hash
    66
    7         (;export
    8         tiger192-primitive)
    9 
    10   (import scheme chicken foreign)
    11   (use message-digest-primitive)
     7(;export
     8  tiger192-primitive)
     9
     10(import scheme chicken foreign)
     11(use message-digest-primitive)
    1212
    1313#>
     
    712712  for (i = length; i >= 64; i-=64) {
    713713        uint64_t *dat;
    714 #ifdef C_BIG_ENDIAN
     714# ifdef C_BIG_ENDIAN
    715715        uint8_t temp[64];
    716716    for (j = 0; j < 64; j++)
    717717      temp[j^7] = str[j];
    718718    dat = (uint64_t *)temp;
    719 #else
     719# else
    720720    dat = (uint64_t *)str;
    721 #endif
     721# endif
    722722    tiger_compress(dat, ctx->state);
    723723    str += 8 * sizeof(uint64_t);
     
    781781  uint8_t temp[64];
    782782
    783 #ifdef C_BIG_ENDIAN
     783# ifdef C_BIG_ENDIAN
    784784  for (j = 0; j < ctx->remlen; j++)
    785785    temp[j^7] = ctx->rembuf[j];
     
    788788  for (; j & 7; j++)
    789789    temp[j^7] = 0;
    790 #else
     790# else
    791791  for (j = 0; j < ctx->remlen; j++)
    792792    temp[j] = ctx->rembuf[j];
     
    794794  for (; j & 7; j++)
    795795    temp[j] = 0;
    796 #endif
     796# endif
    797797  if (j > 56) {
    798798    for (; j < 64; j++)
     
    834834      (unless the-tiger192-primitive
    835835        (set! the-tiger192-primitive
    836               (make-message-digest-primitive context-size192 digest-length192
    837                                              init192 update192 final192
    838                                              block-length192 'tiger192-primitive
    839                                              raw-update192)) )
     836          (make-message-digest-primitive
     837            context-size192 digest-length192
     838            init192 update192 final192
     839            block-length192
     840            'tiger192-primitive
     841            raw-update192)) )
    840842      the-tiger192-primitive ) ) )
    841843
Note: See TracChangeset for help on using the changeset viewer.