let integral_type name ty bitsize = let min = Num.num_of_big_int (min_value_of_integral_type ~bitsize ty) in let max = Num.num_of_big_int (max_value_of_integral_type ~bitsize ty) in mkdecl (JCDenum_type(name,min,max)) Loc.dummy_position