s-osinte-linux.ads (struct_sigaction): Use correct type for sa_flags.

2017-03-14  James Cowgill  <James.Cowgill@imgtec.com>

        * s-osinte-linux.ads (struct_sigaction): Use correct type for sa_flags.

From-SVN: r246118
This commit is contained in:
James Cowgill 2017-03-14 09:26:17 +00:00 committed by Matthias Klose
parent 778dd3b627
commit e3e8f22f78
2 changed files with 6 additions and 3 deletions

View File

@ -1,3 +1,7 @@
2017-03-14 James Cowgill <James.Cowgill@imgtec.com>
* s-osinte-linux.ads (struct_sigaction): Use correct type for sa_flags.
2017-03-08 Thanassis Tsiodras <ttsiodras@gmail.com>
PR ada/79903

View File

@ -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.