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

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


package TREE_STATIC_Def is
 
   type Int is record
      Value : Integer;
   end record;
 
   procedure check (I : Int; v : integer);
 
   One : constant Int := (Value => 1);
end;

Line No.	Rev	Author	Line
1	304	jeremybenn	`package TREE_STATIC_Def is`
2
3			`type Int is record`
4			`Value : Integer;`
5			`end record;`
6
7			`procedure check (I : Int; v : integer);`
8
9			`One : constant Int := (Value => 1);`
10			`end;`

Browse

Tools

Subversion Repositories openrisc

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