pragma Thread_Local_Storage ([Entity =>] LOCAL_NAME);
This pragma specifies that the specified entity, which must be a variable declared in a library level package, is to be marked as "Thread Local Storage" (TLS). On systems supporting this (which include Windows, Solaris, GNU/Linux and VxWorks 6), this causes each thread (and hence each Ada task) to see a distinct copy of the variable.
The variable may not have default initialization, and if there is an explicit initialization, it must be either null for an access variable, or a static expression for a scalar variable. This provides a low level mechanism similar to that provided by the Ada.Task_Attributes package, but much more efficient and is also useful in writing interface code that will interact with foreign threads.
If this pragma is used on a system where TLS is not supported, then an error message will be generated and the program will be rejected.