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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [controlled_record.ads] - Blame information for rev 801

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


with Ada.Finalization;
 
package Controlled_Record is
 
   type Point_T is limited private;
   procedure Assert_Invariants (PA : Point_T);
 
private
 
   type Coords_T is array (1 .. 2) of Natural;
 
   type Point_T is new Ada.Finalization.Controlled with record
      Pos : Coords_T := (0, 0);
   end record;
 
end Controlled_Record;

Line No.	Rev	Author	Line
1	696	jeremybenn	`with Ada.Finalization;`
2
3			`package Controlled_Record is`
4
5			`type Point_T is limited private;`
6			`procedure Assert_Invariants (PA : Point_T);`
7
8			`private`
9
10			`type Coords_T is array (1 .. 2) of Natural;`
11
12			`type Point_T is new Ada.Finalization.Controlled with record`
13			`Pos : Coords_T := (0, 0);`
14			`end record;`
15
16			`end Controlled_Record;`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [controlled_record.ads] - Blame information for rev 801