treat gfloat identically to gdouble

btj · Feb 5, 2023 · ebc4023 · ebc4023
1 parent 925c19d
commit ebc4023
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/generate_bindings.py b/generate_bindings.py
@@ -543,6 +543,8 @@ def ml_to_c_type(typ, ns):
         return Types('int64', 'Int64_val(%s)', 'gint64', 'int64', '%s')
     elif name == 'gdouble':
         return Types('float', 'Double_val(%s)', 'gdouble', 'float', '%s')
+    elif name == 'gfloat':
+        return Types('float', 'Double_val(%s)', 'gfloat', 'float', '%s')
     ns_elem = ns.local_env.get(name, None)
     if ns_elem is not None:
         if ns_elem.xml.tag == t_enumeration or ns_elem.xml.tag == t_bitfield:
@@ -573,6 +575,8 @@ def c_to_ml_type(typ, ns):
         return Types('bool', '(%s ? Val_true : Val_false)', 'gboolean', 'bool', '%s')
     elif name == 'gdouble':
         return Types('float', 'caml_copy_double(%s)', 'gdouble', 'float', '%s')
+    elif name == 'gfloat':
+        return Types('float', 'caml_copy_double(%s)', 'gfloat', 'float', '%s')
     elif name == 'utf8':
         if typ.allow_none:
             return Types('string option', 'Val_string_option(%s)', 'const char *', 'string option', '%s')