[Ada] Clean up in Pop_Scope

Message ID 20101019102426.GA14760@adacore.com
State New
Headers show

Commit Message

Arnaud Charlet Oct. 19, 2010, 10:24 a.m.
This patch is minor cleanup: aborts the compiler by raising Program_Error,
which was intended.  No change in output expected; no test available.

Tested on x86_64-pc-linux-gnu, committed on trunk

2010-10-19  Bob Duff  <duff@adacore.com>

	* sem_ch8.adb (Pop_Scope): Change "return;" to "raise Program_Error;".


Index: sem_ch8.adb
--- sem_ch8.adb	(revision 165687)
+++ sem_ch8.adb	(working copy)
@@ -6683,7 +6683,7 @@  package body Sem_Ch8 is
            or else
          SST.Actions_To_Be_Wrapped_After  /= No_List
-         return;
+         raise Program_Error;
       end if;
       --  Free last subprogram name if allocated, and pop scope