diff options
| author | Robert Dewar <dewar@gnat.com> | 2004-10-04 14:59:42 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2004-10-04 16:59:42 +0200 |
| commit | 4cded177ca59ebcb3eae73f708e4cd71c7e27615 (patch) | |
| tree | 67ab152469fa7f031faa501024ab899cb68255b1 | |
| parent | c6a60aa15d05354159d6feec39d2dcd8936a24be (diff) | |
| download | gcc-4cded177ca59ebcb3eae73f708e4cd71c7e27615.zip gcc-4cded177ca59ebcb3eae73f708e4cd71c7e27615.tar.gz gcc-4cded177ca59ebcb3eae73f708e4cd71c7e27615.tar.bz2 | |
g-spipat.adb: (XMatch): Avoid warning for Logic_Error call
2004-10-04 Robert Dewar <dewar@gnat.com>
* g-spipat.adb: (XMatch): Avoid warning for Logic_Error call
(XMatchD): Avoid warning for Logic_Error call
From-SVN: r88502
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/g-spipat.adb | 8 |
2 files changed, 10 insertions, 3 deletions
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 <dewar@gnat.com> + * g-spipat.adb: (XMatch): Avoid warning for Logic_Error call + (XMatchD): Avoid warning for Logic_Error call + +2004-10-04 Robert Dewar <dewar@gnat.com> + * 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; |