1 with pointer_variable_bounds_q; use pointer_variable_bounds_q;
\r
3 package pointer_variable_bounds is
\r
5 type HALF_INTEGER is range -32768 .. 32767;
\r
6 subtype HALF_NATURAL is HALF_INTEGER range 0 .. 32767;
\r
8 MAX_COMPS : constant HALF_NATURAL := HALF_NATURAL(A_MAX_COMPS);
\r
9 subtype COMP_POINTER_TYPE is HALF_NATURAL range 0 .. MAX_COMPS;
\r
10 subtype BUNDLE_POINTER_TYPE is HALF_NATURAL range 0 .. 1;
\r
11 subtype C_POINTER_TYPE is HALF_NATURAL range 0 .. 1;
\r
13 procedure BUNDLE_DAT(BP : in BUNDLE_POINTER_TYPE);
\r
14 procedure SEQUENCE_DAT(BP : in BUNDLE_POINTER_TYPE);
\r
16 end pointer_variable_bounds;
\r