From e3e8f22f78e8d3a3d639cf3fdec15fda9fa3f519 Mon Sep 17 00:00:00 2001 From: James Cowgill Date: Tue, 14 Mar 2017 09:26:17 +0000 Subject: [PATCH] s-osinte-linux.ads (struct_sigaction): Use correct type for sa_flags. 2017-03-14 James Cowgill * s-osinte-linux.ads (struct_sigaction): Use correct type for sa_flags. From-SVN: r246118 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/s-osinte-linux.ads | 5 ++--- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index d592da3..d12a615 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2017-03-14 James Cowgill + + * s-osinte-linux.ads (struct_sigaction): Use correct type for sa_flags. + 2017-03-08 Thanassis Tsiodras PR ada/79903 diff --git a/gcc/ada/s-osinte-linux.ads b/gcc/ada/s-osinte-linux.ads index ee1809e..b0ba229 100644 --- a/gcc/ada/s-osinte-linux.ads +++ b/gcc/ada/s-osinte-linux.ads @@ -182,7 +182,7 @@ package System.OS_Interface is type struct_sigaction is record sa_handler : System.Address; sa_mask : sigset_t; - sa_flags : Interfaces.C.unsigned_long; + sa_flags : int; sa_restorer : System.Address; end record; pragma Convention (C, struct_sigaction); @@ -607,8 +607,7 @@ private for struct_sigaction use record sa_handler at Linux.sa_handler_pos range 0 .. Standard'Address_Size - 1; sa_mask at Linux.sa_mask_pos range 0 .. 1023; - sa_flags at Linux.sa_flags_pos - range 0 .. Interfaces.C.unsigned_long'Size - 1; + sa_flags at Linux.sa_flags_pos range 0 .. int'Size - 1; end record; -- We intentionally leave sa_restorer unspecified and let the compiler -- append it after the last field, so disable corresponding warning. -- 2.7.4