diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-30 13:36:28 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-30 13:36:28 +0000 |
| commit | 516a5887ee93ac51c15492c01bb2e52bafd5bfaf (patch) | |
| tree | 2edd49fae5fcdc2d692fc0d6fe4779a740171b58 /ext/Digest/MD5/MD5.xs | |
| parent | a2e20b18d842b4285c1fb6554e5ff55510293193 (diff) | |
| download | perl-516a5887ee93ac51c15492c01bb2e52bafd5bfaf.tar.gz | |
Medley of -Wall cleanups from Michael Schwen, Hugo van der Sanden,
and Abhijit Menon-Sen.
p4raw-id: //depot/perl@10321
Diffstat (limited to 'ext/Digest/MD5/MD5.xs')
| -rw-r--r-- | ext/Digest/MD5/MD5.xs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/ext/Digest/MD5/MD5.xs b/ext/Digest/MD5/MD5.xs index 6fd9b485d7..12642ae166 100644 --- a/ext/Digest/MD5/MD5.xs +++ b/ext/Digest/MD5/MD5.xs @@ -42,7 +42,8 @@ extern "C" { } #endif -/*#define MD5_DEBUG /**/ +/* Define this to turn on verbose debugging prints */ +#undef MD5_DEBUG /* Perl does not guarantee that U32 is exactly 32 bits. Some system * has no integral type with exactly 32 bits. For instance, A Cray has @@ -193,7 +194,9 @@ MD5Init(MD5_CTX *ctx) static void MD5Transform(MD5_CTX* ctx, const U8* buf, STRLEN blocks) { +#ifdef MD5_DEBUG static int tcount = 0; +#endif U32 A = ctx->A; U32 B = ctx->B; |