File: update_dummy.ml

package info (click to toggle)
js-of-ocaml 6.2.0-2
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 37,932 kB
  • sloc: ml: 135,957; javascript: 58,364; ansic: 437; makefile: 422; sh: 12; perl: 4
file content (21 lines) | stat: -rw-r--r-- 398 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
open Util

let%expect_test "deadcode elimination of cyclic values" =
  let program =
    compile_and_parse
      {|
      let f () =
        let rec x = 1 :: x in
        let rec y = 1 :: y in
        snd (x, y)
  |}
  in
  print_fun_decl program (Some "f");
  [%expect
    {|
    function f(param){
     var y = [];
     runtime.caml_update_dummy(y, [0, 1, y]);
     return y;
    }
    //end |}]