[Ada] Minor clean up in g-regpat

[Arnaud Charlet]

Tested on x86-linux, committed on mainline.

This could have caused an exception with checks on. In practice the
run-time library is intended to be compiled with checks off, so this
is unlikely to actually cause any problem in a normal build situation.

2004-12-07  Robert Dewar  <dewar@adacore.com>

	* g-regpat.adb: (Match): Change a misuse of or to or else

-------------- next part --------------
Index: g-regpat.adb
===================================================================
RCS file: /cvs/gcc/gcc/gcc/ada/g-regpat.adb,v
retrieving revision 1.11
diff -u -p -r1.11 g-regpat.adb
--- g-regpat.adb	5 May 2004 10:09:54 -0000	1.11
+++ g-regpat.adb	7 Dec 2004 17:22:25 -0000
@@ -2549,7 +2549,7 @@ package body GNAT.Regpat is
                         end if;
 
                         Scan := Get_Next (Program, Scan);
-                        exit when Scan = 0 or Program (Scan) /= BRANCH;
+                        exit when Scan = 0 or else Program (Scan) /= BRANCH;
                      end loop;
 
                      exit State_Machine;