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