Termination analysis: add support for array creation

Author: cristianoc

Changes.md

@@ -2,6 +2,7 @@
 - Exception analysis: also report on exceptions in toplevel expressions, not just variable bindings.
 - Exception analysis: add support for Belt modules.
 - Termination analysis: add support for try blocks.
+- Termination analysis: add support for array creation.
 
 # 2.14.0
 - Fix issue where type dependencies could get lost if the last file processed is an interface file.

examples/termination/src/TestCyberTruck.bs.js

@@ -443,7 +443,7 @@ let rec testTry = () => {
     progress()
     testTry()
   | _ =>
-    progress()
+    let _ = [(), progress(), ()]
     testTry()
   }
 }

examples/termination/src/TestCyberTruck.res

@@ -598,7 +598,7 @@
   Termination Analysis for testTry
 
   Termination Analysis
-  File "./TestCyberTruck.res", line 440, characters 18-146
+  File "./TestCyberTruck.res", line 440, characters 18-164
   testTry returns Progress with trace [progress:Progress; testTry:Progress || progress:Progress; testTry:Progress]
 
   Termination Analysis Stats

examples/termination/src/termination.txt

@@ -1144,7 +1144,8 @@ module Compile = {
     | Texp_setfield(e1, _loc, _desc, e2) =>
       [e1, e2] |> List.map(expression(~ctx)) |> Command.unorderedSequence
 
-    | Texp_tuple(expressions) =>
+    | Texp_tuple(expressions)
+    | Texp_array(expressions) =>
       expressions |> List.map(expression(~ctx)) |> Command.unorderedSequence
 
     | Texp_assert(_) => Command.nothing
@@ -1154,7 +1155,6 @@ module Compile = {
       let cCases = cases |> List.map(case(~ctx)) |> Command.nondet;
       Command.(cE +++ cCases);
     | Texp_variant(_) => assert(false)
-    | Texp_array(_) => assert(false)
     | Texp_while(_) => assert(false)
     | Texp_for(_) => assert(false)
     | Texp_send(_) => assert(false)