diff options
Diffstat (limited to 'gcc/ada/s-tratas-default.adb')
-rw-r--r-- | gcc/ada/s-tratas-default.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/ada/s-tratas-default.adb b/gcc/ada/s-tratas-default.adb index 24f0d24..9e45771 100644 --- a/gcc/ada/s-tratas-default.adb +++ b/gcc/ada/s-tratas-default.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2001-2014, Free Software Foundation, Inc. -- +-- Copyright (C) 2001-2016, 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- -- @@ -62,7 +62,9 @@ package body System.Traces.Tasking is begin if Parameters.Runtime_Traces then case Id is - when M_RDV_Complete | PO_Done => + when M_RDV_Complete + | PO_Done + => Trace_S (1 .. 3) := "/N:"; Trace_S (4 .. 3 + L0) := Task_S; Trace_S (4 + L0 .. 6 + L0) := "/C:"; |