Changeset 9576 for lang/perl

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

lang/perl/Crypt-DH-GMP; Add VERY_VERBOSE flag for debug

Location:
lang/perl/Crypt-DH-GMP/trunk
Files:
2 modified

Legend:

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

    r9574 r9576  
    160160        DH_gmp_t *dh; 
    161161    CODE: 
     162#ifdef VERY_VERBOSE 
     163        PerlIO_printf(PerlIO_stderr(), "DH->DESTROY called\n" ); 
     164#endif 
    162165        mpz_clear(DH_P(dh)); 
    163166        mpz_clear(DH_G(dh)); 
    164167        mpz_clear(DH_PUBKEY(dh)); 
    165168        mpz_clear(DH_PRIVKEY(dh)); 
    166  
     169#ifdef VERY_VERBOSE 
     170        PerlIO_printf(PerlIO_stderr(), "cleared mpz_t\n" ); 
     171#endif 
    167172        Safefree(DH_P_PTR(dh)); 
    168173        Safefree(DH_G_PTR(dh)); 
    169174        Safefree(DH_PRIVKEY_PTR(dh)); 
    170175        Safefree(DH_PUBKEY_PTR(dh)); 
    171  
     176#ifdef VERY_VERBOSE 
     177        PerlIO_printf(PerlIO_stderr(), "freed mpz_t\n" ); 
     178#endif 
    172179        Safefree(dh); 
     180#ifdef VERY_VERBOSE 
     181        PerlIO_printf(PerlIO_stderr(), "DH->DESTROY done\n" ); 
     182#endif 
    173183         
  • lang/perl/Crypt-DH-GMP/trunk/Makefile.PL

    r9444 r9576  
    22use inc::Devel::CheckLib; 
    33use ExtUtils::MakeMaker; 
     4 
     5my $DEFINES = ''; 
     6if (grep { $_ eq '--very-verbose' } @ARGV) { 
     7    $DEFINES .= ' -DVERY_VERBOSE'; 
     8} 
    49 
    510# Check for hellish-ness 
     
    4247  } 
    4348 
    44  
    4549WriteMakefile( 
    4650    'NAME'          => 'Crypt::DH::GMP', 
     
    4953    'OBJECT'        => '$(O_FILES)', 
    5054    'CCFLAGS'       => $CCFLAGS, 
     55    'DEFINE'        => $DEFINES, 
    5156#    'OPTIMIZE'      => '-g', 
    5257);