diff options
Diffstat (limited to 'gcc/ada/uintp.adb')
| -rw-r--r-- | gcc/ada/uintp.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/uintp.adb b/gcc/ada/uintp.adb index 02dd4d9..f58353b 100644 --- a/gcc/ada/uintp.adb +++ b/gcc/ada/uintp.adb @@ -2027,7 +2027,7 @@ package body Uintp is begin Init_Operand (Left, L_Vec); Init_Operand (Right, R_Vec); - Neg := (L_Vec (1) < Int_0) xor (R_Vec (1) < Int_0); + Neg := L_Vec (1) < Int_0 xor R_Vec (1) < Int_0; L_Vec (1) := abs (L_Vec (1)); R_Vec (1) := abs (R_Vec (1)); |