let mk_memory_float_ctype kind = mk_memory_type_var (
match kind with
| FFloat -> "Mfloat"
| FDouble -> "Mdouble"
| FLongDouble -> "Mlongdouble"
)