let
bin_read_float__ _sptr_ptr _eptr _vint =
Unsafe_read_c
.raise_variant_wrong_type
"float"