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 …]
441 bitv *dictval; in fm_dc_code2key() local453 if ((dictval = code2dictval(dhp, code)) == NULL) { in fm_dc_code2key()502 bitv_free(dictval); in fm_dc_code2key()514 if (bitv_cmp(thisval, dictval)) { in fm_dc_code2key()521 bitv_free(dictval); in fm_dc_code2key()555 bitv_free(dictval); in fm_dc_code2key()705 bitv *dictval; /* value from dictionary */ in buildcode() local728 if ((dictval = bitv_strparse(rhsp, MAXDATABITS)) == NULL) { in buildcode()752 infop = dictval2info(dictval); in buildcode()758 if (bitv_sub(dictval, infop->offset) < 0) { in buildcode()[all …]
39 # 21 bits dictval