diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-12-08 11:46:58 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-12-08 11:46:58 +0000 |
| commit | f9e78a68929408f3fd51dffe26bba92e3146bb27 (patch) | |
| tree | 1499e87f0e9798f92ab630bde7d9f0024bac0bf4 /gcc/ada/g-regpat.adb | |
| parent | 71555fbb73c44693abda1554cd1b29bb1e2ce0b7 (diff) | |
| download | ppe42-gcc-f9e78a68929408f3fd51dffe26bba92e3146bb27.tar.gz ppe42-gcc-f9e78a68929408f3fd51dffe26bba92e3146bb27.zip | |
* g-regpat.adb: (Match): Change a misuse of or to or else
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@91887 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/g-regpat.adb')
| -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 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; |
