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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 50474d6abcd27de8b028df721e1245ba3cb8e171..9d7ff16bc0d962da42f14c7da15ca232f9512bb8 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+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

diff --git a/gcc/ada/g-spipat.adb b/gcc/ada/g-spipat.adb
index 2f499b8d3eccf1a46e1f7df8a581fd0bae347577..06f7542759c05444904fbe8250f12416c408b86d 100644 (file)
--- 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;