diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-03-07 15:53:39 +0100 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-03-07 15:53:39 +0100 |
commit | 844ec03891e1e5d99d7a8da2860a3ebfbfad62c8 (patch) | |
tree | 800812e8ad55fa893c772c327112a7dd5d669ba7 /gcc/ada/s-taprop-vms.adb | |
parent | 207aaeda9d3f95a88122b3c4264cd93ca7f9f63a (diff) | |
download | gcc-844ec03891e1e5d99d7a8da2860a3ebfbfad62c8.zip gcc-844ec03891e1e5d99d7a8da2860a3ebfbfad62c8.tar.gz gcc-844ec03891e1e5d99d7a8da2860a3ebfbfad62c8.tar.bz2 |
[multiple changes]
2012-03-07 Robert Dewar <dewar@adacore.com>
* sem_ch5.adb, s-vaflop.adb, s-taprop-vms.adb, exp_ch6.adb,
s-gearop.adb, sem_ch6.adb, s-bbthre.adb, g-trasym.adb: Minor
reformatting.
2012-03-07 Javier Miranda <miranda@adacore.com>
* a-ngrear.ads: Add documentation.
From-SVN: r185053
Diffstat (limited to 'gcc/ada/s-taprop-vms.adb')
-rw-r--r-- | gcc/ada/s-taprop-vms.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/ada/s-taprop-vms.adb b/gcc/ada/s-taprop-vms.adb index 3c500c5..046aa03 100644 --- a/gcc/ada/s-taprop-vms.adb +++ b/gcc/ada/s-taprop-vms.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2011, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2012, 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- -- @@ -781,6 +781,7 @@ package body System.Task_Primitives.Operations is Ada.Unchecked_Conversion (System.Aux_DEC.Short_Address, Thread_Body); Task_Name : String (1 .. System.Parameters.Max_Task_Image_Length + 1); + begin -- Since the initial signal mask of a thread is inherited from the -- creator, we need to set our local signal mask to mask all signals @@ -811,6 +812,7 @@ package body System.Task_Primitives.Operations is pragma Assert (Result = 0); if T.Common.Task_Image_Len > 0 then + -- Set thread name to ease debugging Task_Name (1 .. T.Common.Task_Image_Len) := |