1 files changed, 39 insertions, 0 deletions
diff --git a/gcc/ada/s-thread.adb b/gcc/ada/s-thread.adb
index 0f3a90c1a08..97f9e88cff4 100644
--- a/gcc/ada/s-thread.adb
+++ b/gcc/ada/s-thread.adb
@@ -43,6 +43,8 @@ package body System.Threads is
    function From_Address is
       new Unchecked_Conversion (Address, ATSD_Access);
 
+
+
    -----------------------
    -- Get_Current_Excep --
    -----------------------
@@ -98,4 +100,41 @@ package body System.Threads is
       CTSD.Sec_Stack_Addr := Addr;
    end Set_Sec_Stack_Addr;
 
+   -----------------------
+   -- Thread_Body_Enter --
+   -----------------------
+
+   procedure Thread_Body_Enter
+     (Sec_Stack_Address    : System.Address;
+      Sec_Stack_Size       : Natural;
+      Process_ATSD_Address : System.Address)
+   is
+      pragma Unreferenced (Sec_Stack_Address);
+      pragma Unreferenced (Sec_Stack_Size);
+      pragma Unreferenced (Process_ATSD_Address);
+   begin
+      null;
+   end Thread_Body_Enter;
+
+   ----------------------------------
+   -- Thread_Body_Exceptional_Exit --
+   ----------------------------------
+
+   procedure Thread_Body_Exceptional_Exit
+     (EO : Ada.Exceptions.Exception_Occurrence)
+   is
+      pragma Unreferenced (EO);
+   begin
+      null;
+   end Thread_Body_Exceptional_Exit;
+
+   -----------------------
+   -- Thread_Body_Leave --
+   -----------------------
+
+   procedure Thread_Body_Leave is
+   begin
+      null;
+   end Thread_Body_Leave;
+
 end System.Threads;