Patchwork [Ada] Clean up in Pop_Scope

login
register
mail settings
Submitter Arnaud Charlet
Date Oct. 19, 2010, 10:24 a.m.
Message ID <20101019102426.GA14760@adacore.com>
Download mbox | patch
Permalink /patch/68302/
State New
Headers show

Comments

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;".

Patch

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
       then
-         return;
+         raise Program_Error;
       end if;
 
       --  Free last subprogram name if allocated, and pop scope