diff options
Diffstat (limited to 'gcc/ada/libgnarl/s-tporft.adb')
| -rw-r--r-- | gcc/ada/libgnarl/s-tporft.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/libgnarl/s-tporft.adb b/gcc/ada/libgnarl/s-tporft.adb index a7b4ce5..66a9f02 100644 --- a/gcc/ada/libgnarl/s-tporft.adb +++ b/gcc/ada/libgnarl/s-tporft.adb @@ -98,6 +98,7 @@ begin System.Soft_Links.Create_TSD (Self_Id.Common.Compiler_Data, null, Sec_Stack_Size); + Self_Id.Common.LL.Thread := Thread; Enter_Task (Self_Id); return Self_Id; |