Lines Matching refs:dictval
84 my $dictval;
163 $dictval = substr($bits, 4, $Dictvalbits[$codelen]);
165 unless length($dictval) == $Dictvalbits[$codelen];
167 " bits dictval: $dictval\n" unless $opt_q;
168 $dictval = bintoi($dictval);
169 print " Decimal dictval: $dictval\n" unless $opt_q;
173 if $dictval < 0;
177 $dictval += 2097152;
178 print " Adjusted dictval: $dictval\n" unless $opt_q;
181 $dictval += 274880004096;
182 print " Adjusted dictval: $dictval\n" unless $opt_q;
186 $dictval += 36029071898968064;
187 print " Adjusted dictval: $dictval\n" unless $opt_q;
191 warn "$Myname: ERROR: dictval $dictval converts to " .
192 sprintf("%d", $dictval) . " (integer overflow?)\n"
193 if sprintf("%d", $dictval) ne $dictval;
239 return "$dictname $dictval";