From patchwork Tue Oct 19 10:24:26 2010 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Arnaud Charlet X-Patchwork-Id: 68302 Return-Path: X-Original-To: incoming@patchwork.ozlabs.org Delivered-To: patchwork-incoming@bilbo.ozlabs.org Received: from sourceware.org (server1.sourceware.org [209.132.180.131]) by ozlabs.org (Postfix) with SMTP id 09589B70D5 for ; Tue, 19 Oct 2010 21:24:35 +1100 (EST) Received: (qmail 1212 invoked by alias); 19 Oct 2010 10:24:33 -0000 Received: (qmail 1203 invoked by uid 22791); 19 Oct 2010 10:24:32 -0000 X-SWARE-Spam-Status: No, hits=-1.0 required=5.0 tests=AWL, BAYES_00, T_RP_MATCHES_RCVD X-Spam-Check-By: sourceware.org Received: from mel.act-europe.fr (HELO mel.act-europe.fr) (194.98.77.210) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Tue, 19 Oct 2010 10:24:28 +0000 Received: from localhost (localhost [127.0.0.1]) by filtered-smtp.eu.adacore.com (Postfix) with ESMTP id 700C2CB02DC; Tue, 19 Oct 2010 12:24:26 +0200 (CEST) Received: from mel.act-europe.fr ([127.0.0.1]) by localhost (smtp.eu.adacore.com [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id IraYpeYJR6-b; Tue, 19 Oct 2010 12:24:26 +0200 (CEST) Received: from saumur.act-europe.fr (saumur.act-europe.fr [10.10.0.183]) by mel.act-europe.fr (Postfix) with ESMTP id 5C988CB02DA; Tue, 19 Oct 2010 12:24:26 +0200 (CEST) Received: by saumur.act-europe.fr (Postfix, from userid 525) id 350AAD9BB5; Tue, 19 Oct 2010 12:24:26 +0200 (CEST) Date: Tue, 19 Oct 2010 12:24:26 +0200 From: Arnaud Charlet To: gcc-patches@gcc.gnu.org Cc: Robert A Duff Subject: [Ada] Clean up in Pop_Scope Message-ID: <20101019102426.GA14760@adacore.com> Mime-Version: 1.0 Content-Disposition: inline User-Agent: Mutt/1.5.9i X-IsSubscribed: yes Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Unsubscribe: List-Archive: List-Post: List-Help: Sender: gcc-patches-owner@gcc.gnu.org Delivered-To: mailing list gcc-patches@gcc.gnu.org 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 then - return; + raise Program_Error; end if; -- Free last subprogram name if allocated, and pop scope