From 4722c5d693d886d22da0a52e8a8133e0e33bdd30 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet 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; -- 2.30.2