diff options
Diffstat (limited to 'translate/grt/grt-unithread.adb')
| -rw-r--r-- | translate/grt/grt-unithread.adb | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/translate/grt/grt-unithread.adb b/translate/grt/grt-unithread.adb index 3197e2cce..b3809c382 100644 --- a/translate/grt/grt-unithread.adb +++ b/translate/grt/grt-unithread.adb @@ -52,7 +52,6 @@ package body Grt.Unithread is end Atomic_Inc; Current_Process : Process_Acc; - Current_Process_Id : Process_Id; -- Called by linux.c function Grt_Get_Current_Process return Process_Acc; @@ -64,10 +63,9 @@ package body Grt.Unithread is end Grt_Get_Current_Process; - procedure Set_Current_Process (Id : Process_Id; Proc : Process_Acc) is + procedure Set_Current_Process (Proc : Process_Acc) is begin Current_Process := Proc; - Current_Process_Id := Id; end Set_Current_Process; function Get_Current_Process return Process_Acc is @@ -75,11 +73,6 @@ package body Grt.Unithread is return Current_Process; end Get_Current_Process; - function Get_Current_Process_Id return Process_Id is - begin - return Current_Process_Id; - end Get_Current_Process_Id; - Stack2 : Stack2_Ptr; function Get_Stack2 return Stack2_Ptr is |