From 4722c5d693d886d22da0a52e8a8133e0e33bdd30 Mon Sep 17 00:00:00 2001
From: Arnaud Charlet <charlet@gcc.gnu.org>
Date: Wed, 8 Dec 2004 12:46:58 +0100
Subject: [PATCH] * g-regpat.adb: (Match): Change a misuse of or to or else

From-SVN: r91887
---
 gcc/ada/g-regpat.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gcc/ada/g-regpat.adb b/gcc/ada/g-regpat.adb
index 76fd6abd46d..4c21fa6d4e7 100644
--- 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;