let native_type_of_fkind x : Jc_env.native_type = match x with | FFloat -> Tgenfloat `Float | FDouble -> Tgenfloat `Double | FLongDouble -> failwith "Jessie does not handle long double yet"