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

gcc/ada/ChangeLog

 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

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;