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

Rev 304	Rev 338
`with Pack13_Pkg;`	`with Pack13_Pkg;`

`package Pack13 is`	`package Pack13 is`

`package Four_Bits is new Pack13_Pkg (4);`	`package Four_Bits is new Pack13_Pkg (4);`
`package Thirty_Two_Bits is new Pack13_Pkg (32);`	`package Thirty_Two_Bits is new Pack13_Pkg (32);`

`type Object is private;`	`type Object is private;`
`type Object_Ptr is access all Object;`	`type Object_Ptr is access all Object;`

`procedure Set (Myself : Object_Ptr; The_Data : Thirty_Two_Bits.Object);`	`procedure Set (Myself : Object_Ptr; The_Data : Thirty_Two_Bits.Object);`

`private`	`private`

`type Some_Record is record`	`type Some_Record is record`
`Data_1 : Thirty_Two_Bits.Object;`	`Data_1 : Thirty_Two_Bits.Object;`
`Data_2 : Thirty_Two_Bits.Object;`	`Data_2 : Thirty_Two_Bits.Object;`
`Small_Data : Four_Bits.Object;`	`Small_Data : Four_Bits.Object;`
`end record;`	`end record;`
`for Some_Record use record`	`for Some_Record use record`
`Data_1 at 0 range 0 .. 31;`	`Data_1 at 0 range 0 .. 31;`
`Data_2 at 4 range 0 .. 31;`	`Data_2 at 4 range 0 .. 31;`
`Small_Data at 8 range 0 .. 3;`	`Small_Data at 8 range 0 .. 3;`
`end record;`	`end record;`

`type Object is record`	`type Object is record`
`Something : Some_Record;`	`Something : Some_Record;`
`end record;`	`end record;`
`for Object use record`	`for Object use record`
`Something at 0 range 0 .. 67;`	`Something at 0 range 0 .. 67;`
`end record;`	`end record;`

`end Pack13;`	`end Pack13;`