X-Git-Url: https://review.openocd.org/gitweb?p=openocd.git;a=blobdiff_plain;f=src%2Fjtag%2Fcore.c;h=4522321a7ace45eb0bb64a206ce63aaea0cfaa4d;hp=0fbd327fe6ece8c3d674fd98a4ad5d3f46ecf834;hb=6eba3777fca4a3e8c0d91dce9caedfeb9c08dc67;hpb=37deb37593c20c05a4bb29e1d88671a1f7ec6548

diff --git a/src/jtag/core.c b/src/jtag/core.c
index 0fbd327fe6..4522321a7a 100644
--- a/src/jtag/core.c
+++ b/src/jtag/core.c
@@ -1308,6 +1308,14 @@ void jtag_tap_free(struct jtag_tap *tap)
 {
 	jtag_unregister_event_callback(&jtag_reset_callback, tap);
 
+	struct jtag_tap_event_action *jteap = tap->event_action;
+	while (jteap) {
+		struct jtag_tap_event_action *next = jteap->next;
+		Jim_DecrRefCount(jteap->interp, jteap->body);
+		free(jteap);
+		jteap = next;
+	}
+
 	free(tap->expected);
 	free(tap->expected_mask);
 	free(tap->expected_ids);