-- --
-- B o d y --
-- --
--- Copyright (C) 1991-2001 Florida State University --
+-- Copyright (C) 1991-1994, Florida State University --
+-- Copyright (C) 1995-2004, Ada Core Technologies --
-- --
-- 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- --
-- however invalidate any other reasons why the executable file might be --
-- covered by the GNU Public License. --
-- --
--- GNARL was developed by the GNARL team at Florida State University. It is --
--- now maintained by Ada Core Technologies Inc. in cooperation with Florida --
--- State University (http://www.gnat.com). --
+-- GNARL was developed by the GNARL team at Florida State University. --
+-- Extensive contributions were provided by Ada Core Technologies, Inc. --
-- --
------------------------------------------------------------------------------
with System.Traces;
-- used for Send_Trace_Info
+with System.Soft_Links.Tasking;
+-- Used for Init_Tasking_Soft_Links
+
package body System.Tasking.Protected_Objects is
use System.Task_Primitives.Operations;
end if;
end Unlock;
+begin
+ -- Ensure that tasking soft links are set when using protected objects
+
+ System.Soft_Links.Tasking.Init_Tasking_Soft_Links;
end System.Tasking.Protected_Objects;