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.0rc1/] [gcc/] [testsuite/] [gnat.dg/] [specs/] [pack6_pkg.ads] - Diff between revs 304 and 338

Rev 304	Rev 338
`generic`	`generic`

`Size : Positive;`	`Size : Positive;`

`package Pack6_Pkg is`	`package Pack6_Pkg is`

`type Object is private;`	`type Object is private;`

`private`	`private`

`type Bit is range 0 .. 1;`	`type Bit is range 0 .. 1;`
`for Bit'Size use 1;`	`for Bit'Size use 1;`

`type Object is array (1 .. Size) of Bit;`	`type Object is array (1 .. Size) of Bit;`
`pragma Pack (Object);`	`pragma Pack (Object);`

`end Pack6_Pkg;`	`end Pack6_Pkg;`