* [COMMITTED] ada: Add an assert in Posix Interrupt_Wait
@ 2023-07-28 7:31 Marc Poulhiès
0 siblings, 0 replies; only message in thread
From: Marc Poulhiès @ 2023-07-28 7:31 UTC (permalink / raw)
To: gcc-patches; +Cc: Clément Chigot
From: Clément Chigot <chigot@adacore.com>
All functions but Interrupt_Wait in s-inmaop__posix are checking the
result of their syscalls with an assert. However, any return code of
sigwait different than 0 means that something went wrong for it.
From sigwait man:
> RETURN VALUE
> On success, sigwait() returns 0. On error, it returns a
> positive error number (listed in ERRORS).
gcc/ada/
* libgnarl/s-inmaop__posix.adb: Add assert after sigwait in
Interrupt_Wait
Tested on x86_64-pc-linux-gnu, committed on master.
---
gcc/ada/libgnarl/s-inmaop__posix.adb | 1 +
1 file changed, 1 insertion(+)
diff --git a/gcc/ada/libgnarl/s-inmaop__posix.adb b/gcc/ada/libgnarl/s-inmaop__posix.adb
index 3171399f982..e4d07ee77eb 100644
--- a/gcc/ada/libgnarl/s-inmaop__posix.adb
+++ b/gcc/ada/libgnarl/s-inmaop__posix.adb
@@ -135,6 +135,7 @@ package body System.Interrupt_Management.Operations is
begin
Result := sigwait (Mask, Sig'Access);
+ pragma Assert (Result = 0);
if Result /= 0 then
return 0;
--
2.40.0
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2023-07-28 7:31 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2023-07-28 7:31 [COMMITTED] ada: Add an assert in Posix Interrupt_Wait Marc Poulhiès
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).