[multiple changes]

[gcc.git] / gcc / ada / exp_pakd.adb

diff --git a/gcc/ada/exp_pakd.adb b/gcc/ada/exp_pakd.adb
index 36b4b36b97c616f7010344418f21def6a1fbef78..f86ab6e8c27b6de91393defea25989c789c28f78 100644 (file)
--- a/gcc/ada/exp_pakd.adb
+++ b/gcc/ada/exp_pakd.adb
@@ -791,6 +791,12 @@ package body Exp_Pakd is
 
          Set_Has_Delayed_Freeze (PAT, False);
          Set_Has_Delayed_Freeze (Etype (PAT), False);
+
+         --  If we did allocate a freeze node, then clear out the reference
+         --  since it is obsolete (should we delete the freeze node???)
+
+         Set_Freeze_Node (PAT, Empty);
+         Set_Freeze_Node (Etype (PAT), Empty);
       end Install_PAT;
 
       -----------------