diff options
| author | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2012-06-19 10:08:33 +0000 |
|---|---|---|
| committer | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2012-06-19 10:08:33 +0000 |
| commit | abeb581713c1bf52fdc2ae04e9f5e02a730534ce (patch) | |
| tree | 100c9fe0f92e8d498d79572134aa6cb00ecd65c3 | |
| parent | 420a2f00d79e929a818c43d15d8a3ec9e158f5eb (diff) | |
revert wrong commit on bytecomp/typeclass.ml
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@12614 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -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 _ -> |