Add all missing option constructors added in 4.12

ygrek · Dec 8, 2023 · b34b939 · b34b939
1 parent 1e14d45
commit b34b939
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/common.h b/src/common.h
@@ -1,9 +1,13 @@
 #define UNUSED(x) (void)(x)
 
 #include <caml/version.h>
+
 #if OCAML_VERSION < 41200
 #define Val_none Val_int(0)
-#define Some_val(v) Field(v,0)
+#define Some_val(v) Field(v, 0)
+#define Tag_some 0
+#define Is_none(v) ((v) == Val_none)
+#define Is_some(v) Is_block(v)
 #endif
 
 int extunix_open_flags(value);