More fixes

Author: vouillon

runtime/wasm/unix.wat

@@ -1551,7 +1551,7 @@
                (tuple.extract 3 1 (local.get $p))
                (tuple.extract 3 2 (local.get $p))
                (i32.const 0)
-               (i64.const 0x400000) ;; allow fd_filestat_set_size
+               (i64.const 0x400040) ;; allow fd_filestat_set_size and fd_write
                (i64.const 0)
                (i32.const 0)
                (local.get $buffer)))
@@ -2391,7 +2391,7 @@
       (local.set $kind (i32.load8_u offset=16 (local.get $buffer)))
       (block $ok
          (block $bad
-            (br_table $bad $bad $ok $bad $ok $bad $ok $bad (local.get $kind)))
+            (br_table $ok $bad $ok $bad $ok $bad $ok $bad (local.get $kind)))
          (call $caml_unix_error
             (i32.const 28) (; EINVAL ;)
             (call $channel_of_descr_name (local.get $out))