immutable class NUM_BITS < $BIT_PATTERN{NUM_BITS} |
---|
$BIT_PATTERN{_} | $HASH | $IS_EQ | $IMMUTABLE | $STR | $BINARY | $BIT_PATTERNS | QUADBITS |
const Big_Shift : CARD := 17 ; |
---|
**** | Shifts for hashing! |
const Lesser_Shift : CARD := 15 ; |
---|
**** |
const Magic_Prime : CARD := 4292967291 ; |
---|
**** | largest prime! |
const Num_Bits : CARD := QUADBITS::asize ; |
---|
const Num_Max : CARD := Quad_Max ; |
---|
const Octets_per_Card : CARD := Octets_per_Quad ; |
---|
create( |
---|