1 type LL_Task_Procedure_Access is access procedure (Arg : System.Address);
4 (N : Node_Id) return Boolean is
7 or else NT (N).Nkind = N_Compilation_Unit);
11 type Type_Specific_Data is record
13 Expanded_Name : Cstring_Ptr;
14 External_Tag : Cstring_Ptr;
16 Ancestor_Tags : Tag_Table (Natural);
19 function "abs" (Right : Complex) return Real'Base renames Modulus;
21 type Barrier_Function_Pointer is access
24 E : Protected_Entry_Index)
27 function "=" (L, R : System.Address) return Boolean
30 type usfreelock_ptr is access
31 procedure (lock : ulock_t; arena : usptr_t_ptr);
33 function p pragma Import (C,
34 "pthread_mutexattr_setprio_ceiling",
35 "pthread_mutexattr_setprio_ceiling");
37 procedure LL_Wrapper (T : TCB_Ptr);
41 -- This file is an Ada file containing test data
42 -- for etags (Ada83 and Ada95 support).
46 type Private_T is private;
64 procedure Pkg1_Proc2 (I : Integer);
66 function Pkg1_Func1 return Boolean;
68 function Pkg1_Func2 (Ijk : Integer; Z : Integer) return Natural;
72 procedure Pkg1_Pkg1_Proc1;
75 task type Task_Type is
77 entry Entry2 (I : Integer);
91 procedure Pkg1_Proc1 is
96 package body Inner1 is
97 procedure Private_T is
103 package body Inner2 is
104 task body Private_T is
112 task body Task_Type is
119 accept Entry2 (I : Integer) do
126 procedure Pkg1_Proc2 (I : Integer) is
132 function Pkg1_Func1 return Boolean is separate;
134 function Pkg1_Func2 (Ijk : Integer; Z : Integer) return Natural is
140 package body Pkg1_Pkg1 is separate;
146 package body Pkg1_Pkg1 is
147 procedure Pkg1_Pkg1_Proc1 is
155 function Pkg1_Func1 return Boolean is
161 -- from now on, this is Ada 95 specific.
166 package Truc.Bidule is
172 protected type Machin_T is
178 package body Truc.Bidule is
179 protected body Bidule is
186 protected Machin_T is