Patchwork [Ada] Clean up in Pop_Scope

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


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  <>

	* 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