blob: 0f7ed071c2bbe17d8ff40244ede5c6c85e950782 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
with volatile1; use volatile1;
package volatile2 is
type PData_Array is access Data_Array;
type Result_Desc is
record
Data : PData_Array;
end record;
type Result is access Result_Desc;
procedure Copy;
end volatile2;
|