fix misc bugs

Author: jonasongg

src/wasm-compiler/constants.ts

@@ -52,7 +52,7 @@ export const MAKE_COMPLEX_FX = wasm
     f64.store(i32.add(global.get(HEAP_PTR), i32.const(8)), local.get("$img")),
 
     i32.const(TYPE_TAG.COMPLEX),
-    i64.extend_i32_s(global.get(HEAP_PTR)),
+    i64.extend_i32_u(global.get(HEAP_PTR)),
 
     global.set(HEAP_PTR, i32.add(global.get(HEAP_PTR), i32.const(16)))
   );
@@ -672,6 +672,11 @@ export const GET_LEX_ADDR_FX = wasm
           "$tag",
           i32.load(i32.add(i32.add(local.get("$env"), i32.const(4)), i32.mul(local.get("$index"), i32.const(12))))
         ),
+
+        wasm.call("$_log_int").args(i64.extend_i32_u(local.get("$depth"))),
+        wasm.call("$_log_int").args(i64.extend_i32_u(local.get("$index"))),
+        wasm.call("$_log_int").args(i64.extend_i32_u(local.get("$tag"))),
+
         wasm
           .if(i32.eq(local.get("$tag"), i32.const(TYPE_TAG.UNBOUND)))
           .then(wasm.call("$_log_error").args(i32.const(ERROR_MAP.UNBOUND[0])), wasm.unreachable()),

src/wasm-compiler/wasm-util/builder.ts

@@ -567,7 +567,7 @@ const wasm = {
     }
 
     const buildBlock = (index: number): [WasmBlock, ...WasmInstruction[]] => {
-      const body = bodies[bodies.length - index - 1];
+      const body = bodies[index];
       if (!body) {
         throw new Error(
           `No body found for block at index ${index} in br_table`
@@ -578,15 +578,15 @@ const wasm = {
         wasm
           .block(typeof labels[index] === "string" ? labels[index] : undefined)
           .body(
-            ...(index === labels.length - 1
+            ...(index === 0
               ? [wasm.br_table(value, ...labels)]
-              : buildBlock(index + 1))
+              : buildBlock(index - 1))
           ),
         ...(Array.isArray(body) ? body : [body]),
       ];
     };
 
-    return buildBlock(0);
+    return buildBlock(bodies.length - 1);
   },
 };