Named handlers

Author: dhil

interpreter/exec/eval.ml

@@ -386,10 +386,10 @@ let rec step (c : config) : config =
       | SuspendTo (x, y), vs ->
         let tagt = tag c.frame.inst y in
         let FuncT (ts, _) = func_type_of_tag_type c.frame.inst (Tag.type_of tagt) in
-        let args, vs' = i32_split (Lib.List32.length ts) vs e.at in
+        let args, vs' = i32_split (Int32.add (Lib.List32.length ts) 1l) vs e.at in
         let args, href =
-          match Lib.List.lead args, Lib.List.last args with
-          | args, Ref r -> args, r
+          match args with
+          | Ref r :: rest -> rest, r
           | _ -> Crash.error e.at "type mismatch at suspend to"
         in
         vs', [Suspending (tagt, args, None, Some href, fun code -> code) @@ e.at]
@@ -428,8 +428,7 @@ let rec step (c : config) : config =
 
       | ResumeWith (x, xls), Ref (ContRef ({contents = Some (n, ctxt)} as cont)) :: vs ->
         let hs = handle_table c xls in
-        Printf.printf "arity: %s\n%!" (I32.to_string_u n); 
-        let args, vs' = i32_split (I32.sub n 1l) vs e.at in
+        let args, vs' = i32_split (Int32.sub n 1l) vs e.at in
         let exception Name in
         let name =
           Ref (HandlerRef (ref (Some Name)))

test/core/cont.wast

@@ -815,6 +815,7 @@
 
   (func $sumUp (export "sumUp") (param $n i32) (result i32)
     (local $i i32)
+    (local $j i32)
     (local $k (ref $ct))
     (local.set $k (cont.new $ct (ref.func $nats)))
     (loop $next
@@ -825,10 +826,11 @@
       (local.set $k)
       (i32.add (local.get $i))
       (local.set $i)
-      (br_if $next (i32.le_u (local.get $i) (local.get $n)))
+      (local.set $j (i32.add (i32.const 1) (local.get $j)))
+      (br_if $next (i32.le_u (local.get $j) (local.get $n)))
    )
    (return (local.get $i)))
 
   (elem declare func $nats)
 )
-(assert_return (invoke "sumUp" (i32.const 10)))
+(assert_return (invoke "sumUp" (i32.const 10)) (i32.const 55))