fix(compiler): Remove existing exports when writing universal exports (…

…grain-lang#919) * fix(compiler): Remove existing exports when writing universal exports * Actual test repro
spotandjake · Sep 23, 2021 · e80de43 · e80de43
1 parent fce05c1
commit e80de43
Show file tree

Hide file tree

Showing 2 changed files with 22 additions and 5 deletions.
diff --git a/compiler/src/codegen/comp_utils.re b/compiler/src/codegen/comp_utils.re
@@ -191,6 +191,8 @@ let write_universal_exports =
               [||],
               function_body,
             );
+            // Remove existing Grain export (if any)
+            Export.remove_export(wasm_mod, name);
             ignore @@ Export.add_function_export(wasm_mod, name, name);
           | TSigValue(_)
           | TSigType(_)

diff --git a/compiler/test/input/wasiPolyfill.gr b/compiler/test/input/wasiPolyfill.gr
@@ -1,7 +1,22 @@
-import foreign wasm fd_write : (WasmI32, WasmI32, WasmI32, WasmI32) -> WasmI32 from "wasi_snapshot_preview1"
+import foreign wasm fd_write: (
+  WasmI32,
+  WasmI32,
+  WasmI32,
+  WasmI32
+) -> WasmI32 from "wasi_snapshot_preview1"
 
-export let fd_write: (WasmI32, WasmI32, WasmI32, WasmI32) -> WasmI32 = (fd, iovs, iovs_len, nwritten) => {
-    fd_write(fd, iovs, iovs_len, nwritten)
-    fd_write(fd, iovs, iovs_len, nwritten)
-    fd_write(fd, iovs, iovs_len, nwritten)
+export let fd_write: (WasmI32, WasmI32, WasmI32, WasmI32) -> WasmI32 =
+  (
+    fd,
+    iovs,
+    iovs_len,
+    nwritten,
+  ) => {
+  fd_write(fd, iovs, iovs_len, nwritten)
+  fd_write(fd, iovs, iovs_len, nwritten)
+  fd_write(fd, iovs, iovs_len, nwritten)
+}
+
+export let args_get = (a, b) => {
+  76n
 }