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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log


package Opt10_Pkg is
 
   type Rep_Message is record
      Bit : Boolean;
      Data : String (1 .. 4);
   end record;
   for Rep_Message use record
      Bit  at 0 range 0 .. 0;
      Data at 0 range 1 .. 32;
   end record;
 
   procedure Safe_Assign (M : in out Rep_Message; Bit : Boolean);
 
end;

Line No.	Rev	Author	Line
1	696	jeremybenn	`package Opt10_Pkg is`
2
3			`type Rep_Message is record`
4			`Bit : Boolean;`
5			`Data : String (1 .. 4);`
6			`end record;`
7			`for Rep_Message use record`
8			`Bit at 0 range 0 .. 0;`
9			`Data at 0 range 1 .. 32;`
10			`end record;`
11
12			`procedure Safe_Assign (M : in out Rep_Message; Bit : Boolean);`
13
14			`end;`

Browse

Tools

Subversion Repositories openrisc

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