diff options
| -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 50474d6abcd..9d7ff16bc0d 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 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; |