lib.ads, [...] (Is_Compiler_Unit): Removed.

[thirdparty/gcc.git] / gcc / ada / sem_ch11.adb

diff --git a/gcc/ada/sem_ch11.adb b/gcc/ada/sem_ch11.adb
index a712fedd83f98087fd31a5f5ab66a0374f72c01f..c4a148f0cd5e2cf3961a372ce77ad60737eb1cc6 100644 (file)
--- a/gcc/ada/sem_ch11.adb
+++ b/gcc/ada/sem_ch11.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 1992-2013, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2014, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -436,7 +436,7 @@ package body Sem_Ch11 is
 
    begin
       if Comes_From_Source (N) then
-         Check_Compiler_Unit (N);
+         Check_Compiler_Unit ("raise expression", N);
       end if;
 
       Check_SPARK_Restriction ("raise expression is not allowed", N);