From 54c8c50a582ba1547ca2941b097985c156c71375 Mon Sep 17 00:00:00 2001
From: radrow <radrowicki@gmail.com>
Date: Sun, 3 Jul 2022 18:20:48 +0200
Subject: [PATCH] .

---
 src/aeso_fcode_to_fate.erl | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/aeso_fcode_to_fate.erl b/src/aeso_fcode_to_fate.erl
index 2f4bb47..fe11e8b 100644
--- a/src/aeso_fcode_to_fate.erl
+++ b/src/aeso_fcode_to_fate.erl
@@ -1800,6 +1800,9 @@ crop_jumps([I|Code], Acc) ->
 %% -- Split basic blocks at CALL instructions --
 %%  Calls can only return to a new basic block. Also splits at JUMPIF instructions.
 
+split_calls({Ref, Code}) ->
+    split_calls(Ref, Code, [], []).
+
 split_calls(Ref, [], Acc, Blocks) ->
     lists:reverse([{Ref, lists:reverse(Acc)} | Blocks]);
 split_calls(Ref, [I | Code], Acc, Blocks) when element(1, I) == 'CALL';