diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2004-12-08 12:46:58 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2004-12-08 12:46:58 +0100 |
| commit | 4722c5d693d886d22da0a52e8a8133e0e33bdd30 (patch) | |
| tree | 1499e87f0e9798f92ab630bde7d9f0024bac0bf4 /gcc | |
| parent | 2fb9c1bbd4094df3fbf2a598a30052d2d4842693 (diff) | |
| download | gcc-4722c5d693d886d22da0a52e8a8133e0e33bdd30.zip gcc-4722c5d693d886d22da0a52e8a8133e0e33bdd30.tar.gz gcc-4722c5d693d886d22da0a52e8a8133e0e33bdd30.tar.bz2 | |
* g-regpat.adb: (Match): Change a misuse of or to or else
From-SVN: r91887
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/g-regpat.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/g-regpat.adb b/gcc/ada/g-regpat.adb index 76fd6ab..4c21fa6 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; |