Esempio n. 1
0
obj make_bucket( obj bucket_class, int bucket_bits )
{
  obj x;

  assert( CLASS_P(bucket_class) );
  x = gvec_alloc( (3 * BUCKET_CAPACITY) + 2, bucket_class );
  gvec_write_fresh_non_ptr( x, SLOT(0), int2fx( bucket_bits ) );
  return x;
}
Esempio n. 2
0
static obj get_bytecode_correlation( void )
{
  return gvec_alloc( SLOT(0), vector_class );
}