diff options
Diffstat (limited to 'stdlib/camlinternalOO.ml')
| -rw-r--r-- | stdlib/camlinternalOO.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/stdlib/camlinternalOO.ml b/stdlib/camlinternalOO.ml index 6d7871465..1abb7e550 100644 --- a/stdlib/camlinternalOO.ml +++ b/stdlib/camlinternalOO.ml @@ -58,6 +58,7 @@ let initial_object_size = 2 (**** Items ****) type item = DummyA | DummyB | DummyC of int +let _ = [DummyA; DummyB; DummyC 0] (* to avoid warnings *) let dummy_item = (magic () : item) @@ -67,6 +68,8 @@ type tag type label = int type closure = item type t = DummyA | DummyB | DummyC of int +let _ = [DummyA; DummyB; DummyC 0] (* to avoid warnings *) + type obj = t array external ret : (obj -> 'a) -> closure = "%identity" |