* s-tporft.adb (Register_Foreign_Thread): Initialize Task_Image[_Len]

	fields for foreign threads.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@94823 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/s-tporft.adb b/gcc/ada/s-tporft.adb
index feb922a..bcd7f97 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;