URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [aliasing3_pkg.ads] - Blame information for rev 816

Go to most recent revision | Details | Compare with Previous | View Log


package Aliasing3_Pkg is
 
  type Arr is array (1..3) of Integer;
 
  procedure Test (A : Arr);
  pragma Inline (Test);
 
  type My_Arr is new Arr;
 
  type Rec is record
    A : My_Arr;
  end record;
 
  type Ptr is access all Rec;
 
  Block : aliased Rec;
  Pointer : Ptr := Block'Access;
 
end Aliasing3_Pkg;

Line No.	Rev	Author	Line
1	304	jeremybenn	`package Aliasing3_Pkg is`
2
3			`type Arr is array (1..3) of Integer;`
4
5			`procedure Test (A : Arr);`
6			`pragma Inline (Test);`
7
8			`type My_Arr is new Arr;`
9
10			`type Rec is record`
11			`A : My_Arr;`
12			`end record;`
13
14			`type Ptr is access all Rec;`
15
16			`Block : aliased Rec;`
17			`Pointer : Ptr := Block'Access;`
18
19			`end Aliasing3_Pkg;`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [aliasing3_pkg.ads] - Blame information for rev 816