Changeset 9576 for lang/perl

Timestamp:

04/16/08 18:45:28 (5 years ago)

Author:

daisuke

Message:

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

Location:

lang/perl/Crypt-DH-GMP/trunk

Files:

• GMP.xs (modified) (1 diff)
• Makefile.PL (modified) (3 diffs)

lang/perl/Crypt-DH-GMP/trunk/GMP.xs

@@ -160 +160 @@
         DH_gmp_t *dh;
     CODE:
+#ifdef VERY_VERBOSE
+        PerlIO_printf(PerlIO_stderr(), "DH->DESTROY called\n" );
+#endif
         mpz_clear(DH_P(dh));
         mpz_clear(DH_G(dh));
         mpz_clear(DH_PUBKEY(dh));
         mpz_clear(DH_PRIVKEY(dh));
-
+#ifdef VERY_VERBOSE
+        PerlIO_printf(PerlIO_stderr(), "cleared mpz_t\n" );
+#endif
         Safefree(DH_P_PTR(dh));
         Safefree(DH_G_PTR(dh));
         Safefree(DH_PRIVKEY_PTR(dh));
         Safefree(DH_PUBKEY_PTR(dh));
-
+#ifdef VERY_VERBOSE
+        PerlIO_printf(PerlIO_stderr(), "freed mpz_t\n" );
+#endif
         Safefree(dh);
+#ifdef VERY_VERBOSE
+        PerlIO_printf(PerlIO_stderr(), "DH->DESTROY done\n" );
+#endif
         

lang/perl/Crypt-DH-GMP/trunk/Makefile.PL

@@ -2 +2 @@
 use inc::Devel::CheckLib;
 use ExtUtils::MakeMaker;
+
+my $DEFINES = '';
+if (grep { $_ eq '--very-verbose' } @ARGV) {
+    $DEFINES .= ' -DVERY_VERBOSE';
+}
 
 # Check for hellish-ness
@@ -42 +47 @@
   }
 
-
 WriteMakefile(
     'NAME'          => 'Crypt::DH::GMP',
@@ -49 +53 @@
     'OBJECT'        => '$(O_FILES)',
     'CCFLAGS'       => $CCFLAGS,
+    'DEFINE'        => $DEFINES,
 #    'OPTIMIZE'      => '-g',
 );