From: Robert Dewar Date: Mon, 4 Oct 2004 14:59:42 +0000 (+0000) Subject: g-spipat.adb: (XMatch): Avoid warning for Logic_Error call X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=4cded177ca59ebcb3eae73f708e4cd71c7e27615;p=gcc.git 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 --- diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 50474d6abcd..9d7ff16bc0d 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +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 diff --git a/gcc/ada/g-spipat.adb b/gcc/ada/g-spipat.adb index 2f499b8d3ec..06f7542759c 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;