diff options
Diffstat (limited to 'gcc/ada/uintp.adb')
-rw-r--r-- | gcc/ada/uintp.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/ada/uintp.adb b/gcc/ada/uintp.adb index b84ae5a..a3ed817 100644 --- a/gcc/ada/uintp.adb +++ b/gcc/ada/uintp.adb @@ -1345,9 +1345,11 @@ package body Uintp is if not Discard_Quotient then Quotient := Uint_0; end if; + if not Discard_Remainder then Remainder := Left; end if; + return; end if; @@ -1377,6 +1379,7 @@ package body Uintp is if not Discard_Remainder then Remainder := UI_From_Int (Remainder_I); end if; + return; end; end if; |