From: James Cowgill <James.Cowgill@imgtec.com>
Date: Tue, 14 Mar 2017 09:26:17 +0000 (+0000)
Subject: s-osinte-linux.ads (struct_sigaction): Use correct type for sa_flags.
X-Git-Tag: upstream/12.2.0~40707
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=e3e8f22f78e8d3a3d639cf3fdec15fda9fa3f519;p=platform%2Fupstream%2Fgcc.git

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

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