aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/libgnat/s-caun64.adb
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/libgnat/s-caun64.adb')
-rw-r--r--gcc/ada/libgnat/s-caun64.adb4
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/ada/libgnat/s-caun64.adb b/gcc/ada/libgnat/s-caun64.adb
index 8a9720f..cca2069 100644
--- a/gcc/ada/libgnat/s-caun64.adb
+++ b/gcc/ada/libgnat/s-caun64.adb
@@ -52,6 +52,9 @@ package body System.Compare_Array_Unsigned_64 is
-- Compare_Array_U64 --
-----------------------
+ pragma Annotate (Gnatcheck, Exempt_On, "Improper_Returns",
+ "early returns for performance");
+
function Compare_Array_U64
(Left : System.Address;
Right : System.Address;
@@ -112,4 +115,5 @@ package body System.Compare_Array_Unsigned_64 is
end if;
end Compare_Array_U64;
+ pragma Annotate (Gnatcheck, Exempt_Off, "Improper_Returns");
end System.Compare_Array_Unsigned_64;