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

Rev 304	Rev 384
`package debug1 is`	`package debug1 is`

`type Vector is array (Natural range <>) of Natural;`	`type Vector is array (Natural range <>) of Natural;`
`type Vector_Access is access Vector;`	`type Vector_Access is access Vector;`

`type Data_Line is record`	`type Data_Line is record`
`Length : Vector (1 .. 1);`	`Length : Vector (1 .. 1);`
`Line : Vector_Access;`	`Line : Vector_Access;`
`end record;`	`end record;`

`type Data_Block is array (1 .. 5) of Data_Line;`	`type Data_Block is array (1 .. 5) of Data_Line;`
`type Data_Block_Access is access Data_Block;`	`type Data_Block_Access is access Data_Block;`

`type Vector_Ptr is access Vector;`	`type Vector_Ptr is access Vector;`

`type Meta_Data is record`	`type Meta_Data is record`
`Vector_View : Vector_Ptr;`	`Vector_View : Vector_Ptr;`
`Block_View : Data_Block_Access;`	`Block_View : Data_Block_Access;`
`end record;`	`end record;`

`end;`	`end;`