From 68d26922e31aad3cb34dd3b7689bcec75ad70fcb Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 25 Sep 2014 07:38:09 +0200
Subject: Add a python script to automatically generate disp_tree.

---
 sem_types.adb | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'sem_types.adb')

diff --git a/sem_types.adb b/sem_types.adb
index 7a2cb6828..8c4c5a48e 100644
--- a/sem_types.adb
+++ b/sem_types.adb
@@ -373,6 +373,9 @@ package body Sem_Types is
             Set_Range_Constraint (Sub_Type, Phys_Range);
             --  This must be locally...
             Set_Type_Staticness (Sub_Type, Get_Expr_Staticness (Range_Expr1));
+
+            --  FIXME: the original range is not used.  Reuse it ?
+            Free_Iir (Range_Expr);
          end;
       end if;
       Set_Resolved_Flag (Sub_Type, False);
-- 
cgit v1.2.3