feat(compiler)!: Allocate closures only when necessary (grain-lang#1660)

* feat(compiler)!: Allocate closures only when necessary * snapshots
spotandjake · Feb 23, 2023 · c40df12 · c40df12
1 parent b16b455
commit c40df12
Show file tree

Hide file tree

Showing 46 changed files with 608 additions and 1,270 deletions.
diff --git a/compiler/src/codegen/comp_utils.re b/compiler/src/codegen/comp_utils.re
@@ -180,7 +180,7 @@ let write_universal_exports =
               );
             let function_call =
               switch (direct) {
-              | Direct(name) =>
+              | Direct({name}) =>
                 Expression.Call.make(
                   wasm_mod,
                   Hashtbl.find(exported_names, name),

diff --git a/compiler/src/codegen/compcore.re b/compiler/src/codegen/compcore.re
@@ -3821,6 +3821,7 @@ let compile_main = (wasm_mod, env, prog) => {
       name: Some(grain_main),
       args: [],
       return_type: [Types.Unmanaged(WasmI32)],
+      has_closure: false,
       body: prog.main_body,
       stack_size: prog.main_body_stack_size,
       attrs: [],

diff --git a/compiler/src/codegen/mashtree.re b/compiler/src/codegen/mashtree.re
@@ -499,6 +499,7 @@ type mash_function = {
   name: option(string),
   args: list(Types.allocation_type),
   return_type: list(Types.allocation_type),
+  has_closure: bool,
   body: block,
   stack_size,
   attrs: attributes,