s-tporft.adb (Register_Foreign_Thread): Initialize Task_Image[_Len] fields for foreig...

	* s-tporft.adb (Register_Foreign_Thread): Initialize Task_Image[_Len]
	fields for foreign threads.

From-SVN: r94823

diff --git a/gcc/ada/s-tporft.adb b/gcc/ada/s-tporft.adb
index feb922a6ce689d26b2abd53f1eb7bd0c5b3e73f4..bcd7f97fd96320c783620bba1e3e6957e600daf5 100644 (file)
--- a/gcc/ada/s-tporft.adb
+++ b/gcc/ada/s-tporft.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                  B o d y                                 --
 --                                                                          --
---          Copyright (C) 2002-2004, Free Software Foundation, Inc.         --
+--          Copyright (C) 2002-2005, 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- --
@@ -83,6 +83,9 @@ begin
    Self_Id.Common.State := Runnable;
    Self_Id.Awake_Count := 1;
 
+   Self_Id.Common.Task_Image (1 .. 14) := "foreign thread";
+   Self_Id.Common.Task_Image_Len := 14;
+
    --  Since this is not an ordinary Ada task, we will start out undeferred
 
    Self_Id.Deferral_Level := 0;