diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-09-10 11:54:24 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-09-10 11:54:24 +0200 |
| commit | 3dac89f7dfbd804de421819ee0106f98be582a36 (patch) | |
| tree | 900f6772a931ca236c4130e6f2991c2f0b01a575 /gcc | |
| parent | 96cb32ac1990c15cf8da1bff4ca7e1a39aa7fc1b (diff) | |
| download | gcc-3dac89f7dfbd804de421819ee0106f98be582a36.zip gcc-3dac89f7dfbd804de421819ee0106f98be582a36.tar.gz gcc-3dac89f7dfbd804de421819ee0106f98be582a36.tar.bz2 | |
[multiple changes]
2010-09-10 Arnaud Charlet <charlet@adacore.com>
* s-tporft.adb, s-taskin.ads (Register_Foreign_Thread): Move
initialization of Task_Alternate_Stack here, cleaner since in case of
ranvescar, Restricted_Ada_Task_Control_Block is not initialized
implicitly.
2010-09-10 Thomas Quinot <quinot@adacore.com>
* s-fileio.adb, a-dirval.adb: Minor reformatting.
From-SVN: r164151
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 11 | ||||
| -rw-r--r-- | gcc/ada/a-dirval.adb | 4 | ||||
| -rw-r--r-- | gcc/ada/s-fileio.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/s-taskin.ads | 2 | ||||
| -rw-r--r-- | gcc/ada/s-tporft.adb | 6 |
5 files changed, 20 insertions, 5 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 66db437..72a5d2a 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,14 @@ +2010-09-10 Arnaud Charlet <charlet@adacore.com> + + * s-tporft.adb, s-taskin.ads (Register_Foreign_Thread): Move + initialization of Task_Alternate_Stack here, cleaner since in case of + ranvescar, Restricted_Ada_Task_Control_Block is not initialized + implicitly. + +2010-09-10 Thomas Quinot <quinot@adacore.com> + + * s-fileio.adb, a-dirval.adb: Minor reformatting. + 2010-09-10 Emmanuel Briot <briot@adacore.com> * prj-util.adb (Executable_Of): Fix CE when the project does not diff --git a/gcc/ada/a-dirval.adb b/gcc/ada/a-dirval.adb index 48f3cc6..c3da2ef 100644 --- a/gcc/ada/a-dirval.adb +++ b/gcc/ada/a-dirval.adb @@ -7,7 +7,7 @@ -- B o d y -- -- (POSIX Version) -- -- -- --- Copyright (C) 2004-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 2004-2010, Free Software Foundation, Inc. -- -- -- -- GNAT 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- -- @@ -47,7 +47,7 @@ package body Ada.Directories.Validity is -- Is_Valid_Path_Name -- ------------------------ - function Is_Valid_Path_Name (Name : String) return Boolean is + function Is_Valid_Path_Name (Name : String) return Boolean is begin -- A path name cannot be empty and cannot contain any NUL character diff --git a/gcc/ada/s-fileio.adb b/gcc/ada/s-fileio.adb index 2142e49..a11d833 100644 --- a/gcc/ada/s-fileio.adb +++ b/gcc/ada/s-fileio.adb @@ -385,7 +385,7 @@ package body System.File_IO is end Errno_Message; function Errno_Message - (Name : String; + (Name : String; Errno : Integer := OS_Lib.Errno) return String is begin diff --git a/gcc/ada/s-taskin.ads b/gcc/ada/s-taskin.ads index 3ec38bb..104a3a6 100644 --- a/gcc/ada/s-taskin.ads +++ b/gcc/ada/s-taskin.ads @@ -523,7 +523,7 @@ package System.Tasking is -- Activator writes it, once, before Self starts executing. Thereafter, -- Self only reads it. - Task_Alternate_Stack : System.Address := System.Null_Address; + Task_Alternate_Stack : System.Address; -- The address of the alternate signal stack for this task, if any -- -- Protection: Only accessed by Self diff --git a/gcc/ada/s-tporft.adb b/gcc/ada/s-tporft.adb index f2cfd65d..3d62185 100644 --- a/gcc/ada/s-tporft.adb +++ b/gcc/ada/s-tporft.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2002-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 2002-2010, 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- -- @@ -86,6 +86,10 @@ begin Self_Id.Deferral_Level := 0; + -- We do not provide an alternate stack for foreign threads + + Self_Id.Common.Task_Alternate_Stack := Null_Address; + System.Soft_Links.Create_TSD (Self_Id.Common.Compiler_Data); -- ??? |