diff options
Diffstat (limited to 'gcc/ada/g-trasym-vms-alpha.adb')
| -rw-r--r-- | gcc/ada/g-trasym-vms-alpha.adb | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/gcc/ada/g-trasym-vms-alpha.adb b/gcc/ada/g-trasym-vms-alpha.adb index adfa8f83d4e..c58c5610bfd 100644 --- a/gcc/ada/g-trasym-vms-alpha.adb +++ b/gcc/ada/g-trasym-vms-alpha.adb @@ -217,11 +217,9 @@ package body GNAT.Traceback.Symbolic is System.Soft_Links.Lock_Task.all; for J in Traceback'Range loop - if J = Traceback'Last then - Return_Address := Address_Zero; - else - Return_Address := PC_For (Traceback (J + 1)); - end if; + Return_Address := + (if J = Traceback'Last then Address_Zero + else PC_For (Traceback (J + 1))); Symbolize (Status, |