From 4cded177ca59ebcb3eae73f708e4cd71c7e27615 Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Mon, 4 Oct 2004 14:59:42 +0000 Subject: g-spipat.adb: (XMatch): Avoid warning for Logic_Error call 2004-10-04 Robert Dewar * g-spipat.adb: (XMatch): Avoid warning for Logic_Error call (XMatchD): Avoid warning for Logic_Error call From-SVN: r88502 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/g-spipat.adb | 8 +++++--- 2 files changed, 10 insertions(+), 3 deletions(-) (limited to 'gcc/ada') diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 50474d6..9d7ff16 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,10 @@ 2004-10-04 Robert Dewar + * g-spipat.adb: (XMatch): Avoid warning for Logic_Error call + (XMatchD): Avoid warning for Logic_Error call + +2004-10-04 Robert Dewar + * exp_ch4.adb (Is_Procedure_Actual): Correct so that this does not consider expressions buried within a procedure actual to be an actual. This caused some blowups with uses of packed slices within a procedure diff --git a/gcc/ada/g-spipat.adb b/gcc/ada/g-spipat.adb index 2f499b8..06f7542 100644 --- a/gcc/ada/g-spipat.adb +++ b/gcc/ada/g-spipat.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1998-2003, Ada Core Technologies, Inc. -- +-- Copyright (C) 1998-2004, Ada Core Technologies, 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- -- @@ -4823,8 +4823,9 @@ package body GNAT.Spitbol.Patterns is -- match routine must end by executing a goto to the appropriate point -- in the finite state machine model. + pragma Warnings (Off); Logic_Error; - + pragma Warnings (On); end XMatch; ------------- @@ -6309,8 +6310,9 @@ package body GNAT.Spitbol.Patterns is -- match routine must end by executing a goto to the appropriate point -- in the finite state machine model. + pragma Warnings (Off); Logic_Error; - + pragma Warnings (On); end XMatchD; end GNAT.Spitbol.Patterns; -- cgit v1.1