mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-02-05 14:59:45 +08:00
Code Issues Packages Projects Releases Wiki Activity

s-tassta.adb (Create_Task): Move the code in charge of resetting the deferral level...

Browse Source 
2005-11-14  Jose Ruiz  <ruiz@adacore.com>

	* s-tassta.adb (Create_Task): Move the code in charge of resetting the
	deferral level, when abort is not allowed, to a later stage (the
	Task_Wrapper).
	(Task_Wrapper): If Abort is not allowed, reset the deferral level since
	it will not get changed by the generated code. It was previously done
	in Create_Task.

From-SVN: r106960
This commit is contained in:
Jose Ruiz 2005-11-15 14:53:05 +01:00 committed by Arnaud Charlet
parent 982f26e474
commit fda5d6d4ff
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
gcc/ada/s-tassta.adb
View File

@ -617,16 +617,6 @@ package body System.Tasking.Stages is
(Storage_Error'Identity, "Failed to initialize task");
end if;
if not System.Restrictions.Abort_Allowed then
-- If Abort is not allowed, reset the deferral level since it will
-- not get changed by the generated code. Keeping a default value
-- of one would prevent some operations (e.g. select or delay) to
-- proceed successfully.
T.Deferral_Level := 0;
end if;
T.Master_of_Task := Master;
T.Master_Within := T.Master_of_Task + 1;
@ -950,6 +940,16 @@ package body System.Tasking.Stages is
Lock_RTS;
Unlock_RTS;
if not System.Restrictions.Abort_Allowed then
-- If Abort is not allowed, reset the deferral level since it will
-- not get changed by the generated code. Keeping a default value
-- of one would prevent some operations (e.g. select or delay) to
-- proceed successfully.
Self_ID.Deferral_Level := 0;
end if;
begin
-- We are separating the following portion of the code in order to
-- place the exception handlers in a different block. In this way,