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;