Searched refs:dictval (Results 1 – 4 of 4) sorted by relevance
93 my $dictval = shift;103 die "dictval $dictval converts to " . sprintf("%d", $dictval) .104 " (integer overflow?)\n" if sprintf("%d", $dictval) ne $dictval;115 print " Dictval: " . sprintf("%d", $dictval) . ": " if $opt_v;118 if ($dictval < 2097152) {131 die "dictval $dictval too big for Perl on this machine\n";132 } elsif ($dictval < 274880004096) {134 $dictval -= 2097152;142 "(adjusted dictval $dictval)\n";147 die "dictval $dictval too big for Perl on this machine\n";[all …]
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;[all …]
443 bitv *dictval; in fm_dc_code2key() local455 if ((dictval = code2dictval(dhp, code)) == NULL) { in fm_dc_code2key()504 bitv_free(dictval); in fm_dc_code2key()516 if (bitv_cmp(thisval, dictval)) { in fm_dc_code2key()523 bitv_free(dictval); in fm_dc_code2key()557 bitv_free(dictval); in fm_dc_code2key()707 bitv *dictval; /* value from dictionary */ in buildcode() local730 if ((dictval = bitv_strparse(rhsp, MAXDATABITS)) == NULL) { in buildcode()754 infop = dictval2info(dictval); in buildcode()760 if (bitv_sub(dictval, infop->offset) < 0) { in buildcode()[all …]
42 # 21 bits dictval