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

Details | Compare with Previous | View Log


package Opt1 is
 
   type Dimention_Length is array (1 .. 16) of Natural;
 
   type Dimension_Indexes is array (Positive range <>) of Positive;
 
   function De_Linear_Index
     (Index       : Natural;
      D           : Natural;
      Ind_Lengths : Dimention_Length)
      return Dimension_Indexes;
 
end Opt1;

Line No.	Rev	Author	Line
1	304	jeremybenn	`package Opt1 is`
2
3			`type Dimention_Length is array (1 .. 16) of Natural;`
4
5			`type Dimension_Indexes is array (Positive range <>) of Positive;`
6
7			`function De_Linear_Index`
8			`(Index : Natural;`
9			`D : Natural;`
10			`Ind_Lengths : Dimention_Length)`
11			`return Dimension_Indexes;`
12
13			`end Opt1;`

Browse

Tools

Subversion Repositories openrisc

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