OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[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
This commit is contained in:
Arnaud Charlet 2010-09-10 11:54:24 +02:00
parent 96cb32ac19
commit 3dac89f7df
5 changed files with 20 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
gcc/ada/ChangeLog
View File

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

4
gcc/ada/a-dirval.adb
View File

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

2
gcc/ada/s-fileio.adb
View File

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

2
gcc/ada/s-taskin.ads
View File

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

6
gcc/ada/s-tporft.adb
View File

@ -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);
-- ???