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

From-SVN: r91887
This commit is contained in:
Arnaud Charlet 2004-12-08 12:46:58 +01:00
parent 2fb9c1bbd4
commit 4722c5d693

View File

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