Changeset 9574 for lang/perl

Show
Ignore:
Timestamp:
04/16/08 18:38:45 (7 years ago)
Author:
daisuke
Message:

lang/perl/Crypt-DH-GMP; cleanup calls by introducing another macro

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/Crypt-DH-GMP/trunk/GMP.xs

    r9570 r9574  
    1313#define DH_PRIVKEY(x) *((x)->priv_key) 
    1414#define DH_PUBKEY(x)  *((x)->pub_key) 
     15 
     16#define DH_G_PTR(x)       (x)->g 
     17#define DH_P_PTR(x)       (x)->p 
     18#define DH_PRIVKEY_PTR(x) (x)->priv_key 
     19#define DH_PUBKEY_PTR(x)  (x)->pub_key 
    1520 
    1621static 
     
    5762    CODE: 
    5863        Newxz(dh, 1, DH_gmp_t); 
    59         Newxz(dh->p, 1, mpz_t); 
    60         Newxz(dh->g, 1, mpz_t); 
    61         Newxz(dh->priv_key, 1, mpz_t); 
    62         Newxz(dh->pub_key, 1, mpz_t); 
     64        Newxz(DH_P_PTR(dh),      1, mpz_t); 
     65        Newxz(DH_G_PTR(dh),      1, mpz_t); 
     66        Newxz(DH_PRIVKEY_PTR(dh), 1, mpz_t); 
     67        Newxz(DH_PUBKEY_PTR(dh), 1, mpz_t); 
    6368 
    6469        mpz_init(DH_PUBKEY(dh)); 
     
    8691            mpz_sub_ui(max, DH_P(dh), 1); 
    8792            do { 
    88                 DH_mpz_rand_set(&(DH_PRIVKEY(dh)), mpz_sizeinbase(DH_P(dh), 2)); 
     93                DH_mpz_rand_set(DH_PRIVKEY_PTR(dh), mpz_sizeinbase(DH_P(dh), 2)); 
    8994            } while ( mpz_cmp(DH_PRIVKEY(dh), max) > 0 ); 
    9095        } 
     
    113118        DH_gmp_t *dh; 
    114119    CODE: 
    115         RETVAL = DH_mpz2sv_str(&( DH_PRIVKEY(dh) )); 
     120        RETVAL = DH_mpz2sv_str(DH_PRIVKEY_PTR(dh)); 
    116121    OUTPUT: 
    117122        RETVAL 
     
    121126        DH_gmp_t *dh; 
    122127    CODE: 
    123         RETVAL = DH_mpz2sv_str(&( DH_PUBKEY(dh) )); 
     128        RETVAL = DH_mpz2sv_str(DH_PUBKEY_PTR(dh)); 
    124129    OUTPUT: 
    125130        RETVAL 
     
    131136        STRLEN n_a; 
    132137    CODE: 
    133         RETVAL = DH_mpz2sv_str(&( DH_G(dh) )); 
     138        RETVAL = DH_mpz2sv_str(DH_G_PTR(dh)); 
    134139        if (items > 1) { 
    135140            mpz_init_set_str( DH_G(dh), (char *) SvPV(ST(1), n_a), 0 ); 
     
    144149        STRLEN n_a; 
    145150    CODE: 
    146         RETVAL = DH_mpz2sv_str(&( DH_P(dh) )); 
     151        RETVAL = DH_mpz2sv_str(DH_P_PTR(dh)); 
    147152        if (items > 1) { 
    148153            mpz_init_set_str( DH_P(dh), (char *) SvPV(ST(1), n_a), 0 ); 
     
    160165        mpz_clear(DH_PRIVKEY(dh)); 
    161166 
    162         Safefree(dh->p); 
    163         Safefree(dh->g); 
    164         Safefree(dh->priv_key); 
    165         Safefree(dh->pub_key); 
     167        Safefree(DH_P_PTR(dh)); 
     168        Safefree(DH_G_PTR(dh)); 
     169        Safefree(DH_PRIVKEY_PTR(dh)); 
     170        Safefree(DH_PUBKEY_PTR(dh)); 
    166171 
    167172        Safefree(dh);