diff options
Diffstat (limited to 'stdlib/camlinternalOO.ml')
| -rw-r--r-- | stdlib/camlinternalOO.ml | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/stdlib/camlinternalOO.ml b/stdlib/camlinternalOO.ml index dcf23dd6f..8d5c3cb6a 100644 --- a/stdlib/camlinternalOO.ml +++ b/stdlib/camlinternalOO.ml @@ -257,6 +257,16 @@ type table = mutable vars: vars; mutable initializers: (obj -> unit) list } +let dummy_table = + { buckets = [| |]; + methods_by_name = Meths.empty; + methods_by_label = Labs.empty; + previous_states = []; + hidden_meths = []; + vars = Vars.empty; + initializers = []; + size = initial_object_size } + let table_count = ref 0 let new_table () = |