From 99f5e2fc8729e4cb8edaa2a05a46764744ced1e2 Mon Sep 17 00:00:00 2001
From: Stephen Heumann <stephenheumann@gmail.com>
Date: Tue, 7 Sep 2021 19:30:57 -0500
Subject: [PATCH] Avoid leaking memory when processing _Generic expressions.

---
 Expression.pas | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/Expression.pas b/Expression.pas
index 775ff7a..4354b51 100644
--- a/Expression.pas
+++ b/Expression.pas
@@ -1967,6 +1967,11 @@ var
       end; {while}
    if token.kind <> rparench then
       Error(12);
+   while typesSeen <> nil do begin      {dispose of the list of types seen}
+      tl := typesSeen^.next;
+      dispose(typesSeen);
+      typesSeen := tl;
+      end; {while}
 
    if not foundMatch then               {use default if no match found}
       if foundDefault then