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

From-SVN: r91887

diff --git a/gcc/ada/g-regpat.adb b/gcc/ada/g-regpat.adb
index 76fd6abd46d597d9052010b4a030f1e5da995924..4c21fa6d4e7292404cbf9994847f842a92d350cc 100644 (file)
--- a/gcc/ada/g-regpat.adb
+++ b/gcc/ada/g-regpat.adb
@@ -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;