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

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [ada/] [a-coprnu.ads] - Blame information for rev 16

Line No.	Rev	Author	Line
1	12	jlechner	`------------------------------------------------------------------------------`
2			`-- --`
3			`-- GNAT LIBRARY COMPONENTS --`
4			`-- --`
5			`-- A D A . C O N T A I N E R S . P R I M E _ N U M B E R S --`
6			`-- --`
7			`-- S p e c --`
8			`-- --`
9			`-- This specification is adapted from the Ada Reference Manual for use with --`
10			`-- GNAT. In accordance with the copyright of that document, you can freely --`
11			`-- copy and modify this specification, provided that if you redistribute a --`
12			`-- modified version, any changes that you have made are clearly indicated. --`
13			`-- --`
14			`------------------------------------------------------------------------------`
15
16			`package Ada.Containers.Prime_Numbers is`
17			`pragma Pure;`
18
19			`type Primes_Type is array (Positive range <>) of Hash_Type;`
20
21			`Primes : constant Primes_Type :=`
22			`(53, 97, 193, 389, 769,`
23			`1543, 3079, 6151, 12289, 24593,`
24			`49157, 98317, 196613, 393241, 786433,`
25			`1572869, 3145739, 6291469, 12582917, 25165843,`
26			`50331653, 100663319, 201326611, 402653189, 805306457,`
27			`1610612741, 3221225473, 4294967291);`
28
29			`function To_Prime (Length : Count_Type) return Hash_Type;`
30
31			`end Ada.Containers.Prime_Numbers;`