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/] [address_null_init.ads] - Blame information for rev 338

Details | Compare with Previous | View Log


package Address_Null_Init is
 
   type Acc is access Integer;
   A : Acc := new Integer'(123);
   B : Acc;  -- Variable must be set to null (and A overwritten by null)
   for B'Address use A'Address;
 
end Address_Null_Init;

Line No.	Rev	Author	Line
1	304	jeremybenn	`package Address_Null_Init is`
2
3			`type Acc is access Integer;`
4			`A : Acc := new Integer'(123);`
5			`B : Acc; -- Variable must be set to null (and A overwritten by null)`
6			`for B'Address use A'Address;`
7
8			`end Address_Null_Init;`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gnat.dg/] [address_null_init.ads] - Blame information for rev 338