URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gnat.dg/] [slice8_pkg2.ads] - Diff between revs 304 and 384

Rev 304	Rev 384
`generic`	`generic`

`Line_Length : Natural;`	`Line_Length : Natural;`
`Max_Lines : Natural;`	`Max_Lines : Natural;`

`package Slice8_Pkg2 is`	`package Slice8_Pkg2 is`

`Subtype Index is Natural Range 0..Line_length;`	`Subtype Index is Natural Range 0..Line_length;`
`Subtype Line_Count is Natural Range 0..Max_Lines;`	`Subtype Line_Count is Natural Range 0..Max_Lines;`

`Type Line (Size : Index := 0) is`	`Type Line (Size : Index := 0) is`
`Record`	`Record`
`Data : String (1..Size);`	`Data : String (1..Size);`
`End Record;`	`End Record;`

`Type Lines is Array (Line_Count Range <>) of Line;`	`Type Lines is Array (Line_Count Range <>) of Line;`

`Type Paragraph (Size : Line_Count) is`	`Type Paragraph (Size : Line_Count) is`
`Record`	`Record`
`Data : Lines (1..Size);`	`Data : Lines (1..Size);`
`End Record;`	`End Record;`

`end Slice8_Pkg2;`	`end Slice8_Pkg2;`