From c4ad27e24c8f28ad62f1d3afffaaa6033a460996 Mon Sep 17 00:00:00 2001
From: Sverker Eriksson <sverker@erlang.org>
Date: Tue, 13 Aug 2019 14:41:07 +0200
Subject: erl_interface: Fix bug in ei_decode_fun for very old encoding

Found by valgrind test runs.
---
 lib/erl_interface/src/decode/decode_fun.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lib/erl_interface/src/decode/decode_fun.c b/lib/erl_interface/src/decode/decode_fun.c
index 3a7a2b01c1..a7ceaa069e 100644
--- a/lib/erl_interface/src/decode/decode_fun.c
+++ b/lib/erl_interface/src/decode/decode_fun.c
@@ -52,7 +52,10 @@ int ei_decode_fun(const char *buf, int *index, erlang_fun *p)
     switch (get8(s)) {
     case ERL_FUN_EXT:
 	/* mark as old (R7 and older) external fun */
-	if (p != NULL) p->arity = -1;
+	if (p != NULL) {
+            p->type = EI_FUN_CLOSURE;
+            p->arity = -1;
+        }
 	/* first number of free vars (environment) */
 	n = get32be(s);
 	/* then the pid */
-- 
cgit v1.2.3