OpenCores

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

Only display areas with differences | Details | Blame | View Log

Rev 304	Rev 384
`package Aliasing3_Pkg is`	`package Aliasing3_Pkg is`

`type Arr is array (1..3) of Integer;`	`type Arr is array (1..3) of Integer;`

`procedure Test (A : Arr);`	`procedure Test (A : Arr);`
`pragma Inline (Test);`	`pragma Inline (Test);`

`type My_Arr is new Arr;`	`type My_Arr is new Arr;`

`type Rec is record`	`type Rec is record`
`A : My_Arr;`	`A : My_Arr;`
`end record;`	`end record;`

`type Ptr is access all Rec;`	`type Ptr is access all Rec;`

`Block : aliased Rec;`	`Block : aliased Rec;`
`Pointer : Ptr := Block'Access;`	`Pointer : Ptr := Block'Access;`

`end Aliasing3_Pkg;`	`end Aliasing3_Pkg;`

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.