2012-02-08 Yannick Moy <moy@adacore.com>

[pf3gnuchains/gcc-fork.git] / gcc / ada / exp_intr.adb

diff --git a/gcc/ada/exp_intr.adb b/gcc/ada/exp_intr.adb
index 2707d7a..ad7f253 100644 (file)
--- a/gcc/ada/exp_intr.adb
+++ b/gcc/ada/exp_intr.adb
@@ -1091,7 +1091,7 @@ package body Exp_Intr is
          --  to null.
 
          elsif Present (Get_Rep_Pragma
-                          (Etype (Pool), Name_Simple_Storage_Pool))
+                          (Etype (Pool), Name_Simple_Storage_Pool_Type))
          then
             declare
                Dealloc_Op  : Entity_Id := Get_Name_Entity_Id (Name_Deallocate);