URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gnat.dg/] [pointer_variable_bounds.ads] - Rev 304
Go to most recent revision | Compare with Previous | Blame | View Log
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;
Go to most recent revision | Compare with Previous | Blame | View Log