diff options
Diffstat (limited to 'gcc/ada/s-tassta.adb')
-rw-r--r-- | gcc/ada/s-tassta.adb | 17 |
1 files changed, 1 insertions, 16 deletions
diff --git a/gcc/ada/s-tassta.adb b/gcc/ada/s-tassta.adb index 7e0bdcb..346e5bf 100644 --- a/gcc/ada/s-tassta.adb +++ b/gcc/ada/s-tassta.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2016, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2017, 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- -- @@ -52,7 +52,6 @@ with System.OS_Primitives; with System.Secondary_Stack; with System.Restrictions; with System.Standard_Library; -with System.Traces.Tasking; with System.Stack_Usage; with System.Storage_Elements; @@ -81,9 +80,6 @@ package body System.Tasking.Stages is use Task_Primitives.Operations; use Task_Info; - use System.Traces; - use System.Traces.Tasking; - ----------------------- -- Local Subprograms -- ----------------------- @@ -426,9 +422,6 @@ package body System.Tasking.Stages is -- ??? Why do we need to allow for nested deferral here? - if Runtime_Traces then - Send_Trace_Info (T_Activate); - end if; end Complete_Activation; --------------------- @@ -709,10 +702,6 @@ package body System.Tasking.Stages is Created_Task := T; Initialization.Undefer_Abort_Nestable (Self_ID); - if Runtime_Traces then - Send_Trace_Info (T_Create, T); - end if; - pragma Debug (Debug.Trace (Self_ID, "Created task in " & T.Master_of_Task'Img, 'C', T)); @@ -1453,10 +1442,6 @@ package body System.Tasking.Stages is begin Debug.Task_Termination_Hook; - if Runtime_Traces then - Send_Trace_Info (T_Terminate); - end if; - -- Since GCC cannot allocate stack chunks efficiently without reordering -- some of the allocations, we have to handle this unexpected situation -- here. Normally we never have to call Vulnerable_Complete_Task here. |