with pointer_variable_bounds_q; use pointer_variable_bounds_q; | |
package pointer_variable_bounds is | |
type HALF_INTEGER is range -32768 .. 32767; | |
subtype HALF_NATURAL is HALF_INTEGER range 0 .. 32767; | |
MAX_COMPS : constant HALF_NATURAL := HALF_NATURAL(A_MAX_COMPS); | |
subtype COMP_POINTER_TYPE is HALF_NATURAL range 0 .. MAX_COMPS; | |
subtype BUNDLE_POINTER_TYPE is HALF_NATURAL range 0 .. 1; | |
subtype C_POINTER_TYPE is HALF_NATURAL range 0 .. 1; | |
procedure BUNDLE_DAT(BP : in BUNDLE_POINTER_TYPE); | |
procedure SEQUENCE_DAT(BP : in BUNDLE_POINTER_TYPE); | |
end pointer_variable_bounds; |