diff options
| author | Alain Frisch <alain@frisch.fr> | 2012-01-18 08:31:11 +0000 |
|---|---|---|
| committer | Alain Frisch <alain@frisch.fr> | 2012-01-18 08:31:11 +0000 |
| commit | c45bcb892d78f3182acb2805aef7ec6e23cce42a (patch) | |
| tree | b92b5d6becb9e67a198bc2e070d748eeef62bc3d /bytecomp/translclass.ml | |
| parent | cdbb84ec682704379bac21a633cbd2b9e93b35a8 (diff) | |
| parent | 869feeb00704e0640c45ffe6aee6cc13e4077f79 (diff) | |
| download | ocaml-unused_declarations.tar.gz | |
Synchronize with trunk.unused_declarations
git-svn-id: http://caml.inria.fr/svn/ocaml/branches/unused_declarations@12034 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'bytecomp/translclass.ml')
| -rw-r--r-- | bytecomp/translclass.ml | 15 |
1 files changed, 1 insertions, 14 deletions
diff --git a/bytecomp/translclass.ml b/bytecomp/translclass.ml index f06e43b461..843ef5a90a 100644 --- a/bytecomp/translclass.ml +++ b/bytecomp/translclass.ml @@ -142,15 +142,7 @@ let rec build_object_init cl_table obj params inh_init obj_init cl = (inh_init, obj_init, has_init) | Cf_init _ -> (inh_init, obj_init, true) - | Cf_let (rec_flag, defs, vals) -> - (inh_init, - Translcore.transl_let rec_flag defs - (List.fold_right - (fun (id, expr) rem -> - lsequence (Lifused(id, set_inst_var obj id expr)) - rem) - vals obj_init), - has_init)) + ) str.cl_field (inh_init, obj_init obj, false) in @@ -292,11 +284,6 @@ let rec build_class_init cla cstr super inh_init cl_init msubst top cl = (inh_init, cl_init, Lvar (Meths.find name str.cl_meths) :: met_code @ methods, values) - | Cf_let (rec_flag, defs, vals) -> - let vals = - List.map (function (id, _) -> (Ident.name id, id)) vals - in - (inh_init, cl_init, methods, vals @ values) | Cf_init exp -> (inh_init, Lsequence(mkappl (oo_prim "add_initializer", |