diff options
Diffstat (limited to 'middle_end/flambda/closure_conversion.ml')
-rw-r--r-- | middle_end/flambda/closure_conversion.ml | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/middle_end/flambda/closure_conversion.ml b/middle_end/flambda/closure_conversion.ml index 88132ddf15..350bf102ca 100644 --- a/middle_end/flambda/closure_conversion.ml +++ b/middle_end/flambda/closure_conversion.ml @@ -28,7 +28,6 @@ let name_expr_from_var = Flambda_utils.name_expr_from_var type t = { current_unit_id : Ident.t; symbol_for_global' : (Ident.t -> Symbol.t); - filename : string; backend : (module Backend_intf.S); mutable imported_symbols : Symbol.Set.t; mutable declared_symbols : (Symbol.t * Flambda.constant_defining_value) list; @@ -682,7 +681,7 @@ and close_let_bound_expression t ?let_rec_ident let_bound_var env ~var:let_bound_var)) | lam -> Expr (close t env lam) -let lambda_to_flambda ~backend ~module_ident ~size ~filename lam +let lambda_to_flambda ~backend ~module_ident ~size lam : Flambda.program = let lam = add_default_argument_wrappers lam in let module Backend = (val backend : Backend_intf.S) in @@ -690,7 +689,6 @@ let lambda_to_flambda ~backend ~module_ident ~size ~filename lam let t = { current_unit_id = Compilation_unit.get_persistent_ident compilation_unit; symbol_for_global' = Backend.symbol_for_global'; - filename; backend; imported_symbols = Symbol.Set.empty; declared_symbols = []; |