From: Arnaud Charlet <charlet@gcc.gnu.org>
Date: Wed, 8 Dec 2004 11:46:58 +0000 (+0100)
Subject: * g-regpat.adb: (Match): Change a misuse of or to or else
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=4722c5d693d886d22da0a52e8a8133e0e33bdd30;p=gcc.git

* 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 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;