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

Subversion Repositories openrisc

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

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


package Loop_Optimization8_Pkg2 is
 
  type Array_T is array (Natural range <>) of Integer;
 
  type Obj_T (Length : Natural) is
    record
      Elements : Array_T (1 .. Length);
    end record;
 
  type T is access Obj_T;
 
  function Length (Set : T) return Natural;
  function Index (Set : T; Position : Natural) return Integer;
  pragma Inline (Length, Index);
 
end Loop_Optimization8_Pkg2;

Line No.	Rev	Author	Line
1	696	jeremybenn	`package Loop_Optimization8_Pkg2 is`
2
3			`type Array_T is array (Natural range <>) of Integer;`
4
5			`type Obj_T (Length : Natural) is`
6			`record`
7			`Elements : Array_T (1 .. Length);`
8			`end record;`
9
10			`type T is access Obj_T;`
11
12			`function Length (Set : T) return Natural;`
13			`function Index (Set : T; Position : Natural) return Integer;`
14			`pragma Inline (Length, Index);`
15
16			`end Loop_Optimization8_Pkg2;`

Browse

Tools

Subversion Repositories openrisc

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