URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [varsize_copy.ads] - Rev 304
Compare with Previous | Blame | View Log
package Varsize_Copy is type Key_Type is (Nul, Cntrl, Stx, Etx, Eot, Enq, Ack, Spad, Clr, Dc_1, Dc_2, Dc_3, Dc_4); for Key_Type use (Nul => 0, Cntrl => 1, Stx => 2, Etx => 3, Eot => 4, Enq => 5, Ack => 6, Spad => 7, Clr => 8, Dc_1 => 17, Dc_2 => 18, Dc_3 => 19, Dc_4 => 20); type Page_Type(D : Boolean := False) is record case D is when True => I : Integer; when False => null; end case; end record; function F (Key : Key_Type) return Page_Type; end Varsize_Copy;