2 -- { dg-options "-gnatws" }
4 package body pointer_variable_bounds
is
6 function COMPONENT_DAT
(BP
: in BUNDLE_POINTER_TYPE
; CP
: in COMP_POINTER_TYPE
) return HALF_INTEGER
is
7 type CP_TYPE
is access COMP_POINTER_TYPE
;
8 type CD_TYPE
is access HALF_INTEGER
;
14 procedure BUNDLE_DAT
(BP
: in BUNDLE_POINTER_TYPE
) is
15 N0
: C_POINTER_TYPE
:= COMPONENT_DAT
(BP
, 4);
20 procedure SEQUENCE_DAT
(BP
: in BUNDLE_POINTER_TYPE
) is
21 N0
: C_POINTER_TYPE
:= COMPONENT_DAT
(BP
, 4);
26 end pointer_variable_bounds
;