diff options
Diffstat (limited to 'gcc/ada/exp_ch9.adb')
| -rw-r--r-- | gcc/ada/exp_ch9.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb index 62ed2af0c5d..0864da74696 100644 --- a/gcc/ada/exp_ch9.adb +++ b/gcc/ada/exp_ch9.adb @@ -7237,7 +7237,7 @@ package body Exp_Ch9 is Expr := Expression (Expr); end if; - Expr := New_Copy (Expr); + Expr := New_Copy_Tree (Expr); -- Add conversion to proper type to do range check if required -- Note that for runtime units, we allow out of range interrupt |