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/] [varsize_copy.ads] - Diff between revs 304 and 384

Rev 304	Rev 384
`package Varsize_Copy is`	`package Varsize_Copy is`

`type Key_Type is`	`type Key_Type is`
`(Nul, Cntrl, Stx, Etx, Eot, Enq, Ack, Spad, Clr, Dc_1, Dc_2, Dc_3, Dc_4);`	`(Nul, Cntrl, Stx, Etx, Eot, Enq, Ack, Spad, Clr, Dc_1, Dc_2, Dc_3, Dc_4);`

`for Key_Type use`	`for Key_Type use`
`(Nul => 0,`	`(Nul => 0,`
`Cntrl => 1,`	`Cntrl => 1,`
`Stx => 2,`	`Stx => 2,`
`Etx => 3,`	`Etx => 3,`
`Eot => 4,`	`Eot => 4,`
`Enq => 5,`	`Enq => 5,`
`Ack => 6,`	`Ack => 6,`
`Spad => 7,`	`Spad => 7,`
`Clr => 8,`	`Clr => 8,`
`Dc_1 => 17,`	`Dc_1 => 17,`
`Dc_2 => 18,`	`Dc_2 => 18,`
`Dc_3 => 19,`	`Dc_3 => 19,`
`Dc_4 => 20);`	`Dc_4 => 20);`

`type Page_Type(D : Boolean := False) is record`	`type Page_Type(D : Boolean := False) is record`
`case D is`	`case D is`
`when True => I : Integer;`	`when True => I : Integer;`
`when False => null;`	`when False => null;`
`end case;`	`end case;`
`end record;`	`end record;`

`function F (Key : Key_Type) return Page_Type;`	`function F (Key : Key_Type) return Page_Type;`

`end Varsize_Copy;`	`end Varsize_Copy;`