24 lines
567 B
Ada
24 lines
567 B
Ada
pragma Restrictions (No_Implicit_Loops);
|
|
|
|
package TLS1_Pkg is
|
|
Type My_Record_Type is record
|
|
Date : long_float;
|
|
Point : Integer;
|
|
end record;
|
|
|
|
type Nb_Type is range 0 .. 500;
|
|
subtype Index_Type is Nb_Type range 1 .. 500;
|
|
|
|
type My_Array_Type is array (Index_Type) of My_Record_Type;
|
|
|
|
type My_Pseudo_Box_Type is record
|
|
Nb : Nb_Type;
|
|
Data : My_Array_Type;
|
|
End record;
|
|
|
|
My_Array : My_Pseudo_Box_Type := (Nb => 10,
|
|
Data => (others => (Date => 3.0, Point => 1)));
|
|
pragma Thread_Local_Storage (My_Array);
|
|
|
|
end TLS1_Pkg;
|