aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/uintp.adb
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/uintp.adb')
-rw-r--r--gcc/ada/uintp.adb3
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;