dougm 01/02/01 13:35:44 Modified: lib/ModPerl Code.pm Log: use hex for better readability Revision Changes Path 1.39 +3 -2 modperl-2.0/lib/ModPerl/Code.pm Index: Code.pm =================================================================== RCS file: /home/cvs/modperl-2.0/lib/ModPerl/Code.pm,v retrieving revision 1.38 retrieving revision 1.39 diff -u -r1.38 -r1.39 --- Code.pm 2001/01/21 23:19:02 1.38 +++ Code.pm 2001/02/01 21:35:42 1.39 @@ -279,6 +279,7 @@ $n++; for my $f (@$opts) { + my $x = sprintf "0x%08x", $i; my $flag = "${class}_f_$f"; my $cmd = $class . $f; my $name = canon_name($f); @@ -290,7 +291,7 @@ print $h_fh <<EOF; /* $f */ -#define $flag $i +#define $flag $x #define $cmd(p) ($flags(p) & $flag) #define ${cmd}_On(p) ($flags(p) |= $flag) #define ${cmd}_Off(p) ($flags(p) &= ~$flag) @@ -298,7 +299,7 @@ EOF push @dumper, qq{fprintf(stderr, " $name %s\\n", \\ - ($flags(p) & $i) ? "On " : "Off");}; + ($flags(p) & $x) ? "On " : "Off");}; $i += $i || 1; }
- Re: cvs commit: modperl-2.0/lib/ModPerl Code.pm Stas Bekman
- Re: cvs commit: modperl-2.0/lib/ModPerl Code.pm brian moseley
- cvs commit: modperl-2.0/lib/ModPerl Code.pm dougm
- cvs commit: modperl-2.0/lib/ModPerl Code.pm dougm
- cvs commit: modperl-2.0/lib/ModPerl Code.pm dougm
- cvs commit: modperl-2.0/lib/ModPerl Code.pm dougm
- cvs commit: modperl-2.0/lib/ModPerl Code.pm dougm
- cvs commit: modperl-2.0/lib/ModPerl Code.pm dougm
- cvs commit: modperl-2.0/lib/ModPerl Code.pm dougm
- cvs commit: modperl-2.0/lib/ModPerl Code.pm dougm
- cvs commit: modperl-2.0/lib/ModPerl Code.pm dougm
- cvs commit: modperl-2.0/lib/ModPerl Code.pm dougm
- cvs commit: modperl-2.0/lib/ModPerl Code.pm dougm
- cvs commit: modperl-2.0/lib/ModPerl Code.pm dougm
- cvs commit: modperl-2.0/lib/ModPerl Code.pm dougm
- cvs commit: modperl-2.0/lib/ModPerl Code.pm dougm
- cvs commit: modperl-2.0/lib/ModPerl Code.pm dougm
- cvs commit: modperl-2.0/lib/ModPerl Code.pm dougm
- cvs commit: modperl-2.0/lib/ModPerl Code.pm dougm
- cvs commit: modperl-2.0/lib/ModPerl Code.pm dougm
- cvs commit: modperl-2.0/lib/ModPerl Code.pm stas