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

Rev 304	Rev 384
`package Aggr10_Pkg is`	`package Aggr10_Pkg is`

`type Name_Id is range 300_000_000 .. 399_999_999;`	`type Name_Id is range 300_000_000 .. 399_999_999;`
`type Int is range -2 31 .. +2 31 - 1;`	`type Int is range -2 31 .. +2 31 - 1;`
`type Source_Id is range 5_000_000 .. 5_999_999;`	`type Source_Id is range 5_000_000 .. 5_999_999;`

`type Name_Location is record`	`type Name_Location is record`
`Name : Name_Id;`	`Name : Name_Id;`
`Location : Int;`	`Location : Int;`
`Source : Source_Id;`	`Source : Source_Id;`
`Except : Boolean;`	`Except : Boolean;`
`Found : Boolean := False;`	`Found : Boolean := False;`
`end record;`	`end record;`

`function Get return Name_Location;`	`function Get return Name_Location;`
`procedure Set (Name_Loc : Name_Location);`	`procedure Set (Name_Loc : Name_Location);`

`end Aggr10_Pkg;`	`end Aggr10_Pkg;`