diff options
Diffstat (limited to 'gcc/ada/g-expect-vms.adb')
| -rw-r--r-- | gcc/ada/g-expect-vms.adb | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/gcc/ada/g-expect-vms.adb b/gcc/ada/g-expect-vms.adb index 429a66ca55c..cc413f7248d 100644 --- a/gcc/ada/g-expect-vms.adb +++ b/gcc/ada/g-expect-vms.adb @@ -1030,11 +1030,7 @@ package body GNAT.Expect is Reinitialize_Buffer (Descriptor); end if; - if Add_LF then - Last := Full_Str'Last; - else - Last := Full_Str'Last - 1; - end if; + Last := (if Add_LF then Full_Str'Last else Full_Str'Last - 1); Call_Filters (Descriptor, Full_Str (Full_Str'First .. Last), Input); |