blob: bd68f86cb13d795dc2727bfc13f6ef00eb7d6e79 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
package Expr_Func2 is
type T_Index is range 1 .. 255;
type T_Table is array (T_Index range <>) of Boolean;
type T_Variable_Table (N : T_Index := T_Index'First) is record
Table : T_Table (1 .. N);
end record;
type T_A_Variable_Table is access T_Variable_Table;
function Element (A_Variable_Table : T_A_Variable_Table) return Boolean;
private
function Element (A_Variable_Table : T_A_Variable_Table) return Boolean is
(A_Variable_Table.all.Table (1));
procedure Foo;
end Expr_Func2;
|
