diff options
| -rw-r--r-- | bytecomp/translclass.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/bytecomp/translclass.ml b/bytecomp/translclass.ml index 8ac5ba6dd..a5116f629 100644 --- a/bytecomp/translclass.ml +++ b/bytecomp/translclass.ml @@ -271,9 +271,10 @@ let rec build_class_init cla cstr super inh_init cl_init msubst top cl = (vals, meths_super cla str.cstr_meths meths) inh_init cl_init msubst top cl in (inh_init, cl_init, [], values) - | Tcf_val (name, _, _, id, exp, over) -> + | Tcf_val (name, _, _, id, Tcfk_concrete exp, over) -> let values = if over then values else (name, id) :: values in (inh_init, cl_init, methods, values) + | Tcf_val (_, _, _, _, Tcfk_virtual _, _) | Tcf_meth (_, _, _, Tcfk_virtual _, _) | Tcf_constr _ -> |