diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-06-06 12:15:44 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-06-06 12:15:44 +0200 |
| commit | df862408038ca7025bc3e758b693e4824c3b912b (patch) | |
| tree | e2e78fcbb231839968f5c9a4e41a9a86ee96ae3b /gcc | |
| parent | 73d39ad24ed694305c7fa501fb36036636dee40f (diff) | |
| download | gcc-df862408038ca7025bc3e758b693e4824c3b912b.zip gcc-df862408038ca7025bc3e758b693e4824c3b912b.tar.gz gcc-df862408038ca7025bc3e758b693e4824c3b912b.tar.bz2 | |
s-osinte-linux.ads (sigset_t): Bump alignment to match more closely its C counterpart.
2007-04-20 Arnaud Charlet <charlet@adacore.com>
* s-osinte-linux.ads (sigset_t): Bump alignment to match more closely
its C counterpart.
Remove references to Unchecked_Conversion, and use Ada.xxx instead.
Replace Unchecked_Conversion by Ada.Unchecked_Conversion.
From-SVN: r125368
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/s-osinte-linux.ads | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/gcc/ada/s-osinte-linux.ads b/gcc/ada/s-osinte-linux.ads index ea9b1c7..751e3b8 100644 --- a/gcc/ada/s-osinte-linux.ads +++ b/gcc/ada/s-osinte-linux.ads @@ -7,7 +7,7 @@ -- S p e c -- -- -- -- Copyright (C) 1991-1994, Florida State University -- --- Copyright (C) 1995-2006, Free Software Foundation, Inc. -- +-- Copyright (C) 1995-2007, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -41,7 +41,7 @@ -- Preelaborate. This package is designed to be a bottom-level (leaf) package. with Interfaces.C; -with Unchecked_Conversion; +with Ada.Unchecked_Conversion; package System.OS_Interface is pragma Preelaborate; @@ -275,12 +275,12 @@ package System.OS_Interface is function (arg : System.Address) return System.Address; function Thread_Body_Access is new - Unchecked_Conversion (System.Address, Thread_Body); + Ada.Unchecked_Conversion (System.Address, Thread_Body); type pthread_t is new unsigned_long; subtype Thread_Id is pthread_t; - function To_pthread_t is new Unchecked_Conversion + function To_pthread_t is new Ada.Unchecked_Conversion (unsigned_long, pthread_t); type pthread_mutex_t is limited private; @@ -463,6 +463,7 @@ private type sigset_t is array (0 .. 127) of unsigned_char; pragma Convention (C, sigset_t); + for sigset_t'Alignment use unsigned_long'Alignment; type pid_t is new int; |