aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/s-taprop-vms.adb
diff options
context:
space:
mode:
authorArnaud Charlet <charlet@gcc.gnu.org>2012-03-07 15:53:39 +0100
committerArnaud Charlet <charlet@gcc.gnu.org>2012-03-07 15:53:39 +0100
commit844ec03891e1e5d99d7a8da2860a3ebfbfad62c8 (patch)
tree800812e8ad55fa893c772c327112a7dd5d669ba7 /gcc/ada/s-taprop-vms.adb
parent207aaeda9d3f95a88122b3c4264cd93ca7f9f63a (diff)
downloadgcc-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.adb4
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) :=