Mercurial > hg > CbC > CbC_gcc

annotate gcc/ada/libgnat/s-dgmgop.ads @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents
children 1830386684a0
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
131
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
1 ------------------------------------------------------------------------------
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
2 -- --
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
3 -- GNAT RUN-TIME COMPONENTS --
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
4 -- --
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
5 -- S Y S T E M . D I M . G E N E R I C _ M K S --
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
6 -- . G E N E R I C _ O T H E R _ P R E F I X E S --
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
7 -- --
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
8 -- S p e c --
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
9 -- --
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
10 -- Copyright (C) 2011-2018, Free Software Foundation, Inc. --
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
11 -- --
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
12 -- GNAT is free software; you can redistribute it and/or modify it under --
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
13 -- terms of the GNU General Public License as published by the Free Soft- --
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
14 -- ware Foundation; either version 3, or (at your option) any later ver- --
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
15 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
16 -- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
17 -- or FITNESS FOR A PARTICULAR PURPOSE. --
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
18 -- --
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
19 -- As a special exception under Section 7 of GPL version 3, you are granted --
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
20 -- additional permissions described in the GCC Runtime Library Exception, --
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
21 -- version 3.1, as published by the Free Software Foundation. --
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
22 -- --
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
23 -- You should have received a copy of the GNU General Public License and --
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
24 -- a copy of the GCC Runtime Library Exception along with this program; --
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
25 -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see --
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
26 -- <http://www.gnu.org/licenses/>. --
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
27 -- --
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
28 -- GNAT was originally developed by the GNAT team at New York University. --
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
29 -- Extensive contributions were provided by Ada Core Technologies Inc. --
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
30 -- --
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
31 ------------------------------------------------------------------------------
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
32
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
33 -- Package that defines some other prefixes for the MKS base unit system.
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
34
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
35 -- These prefixes have been defined in a child package in order to avoid too
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
36 -- many constant declarations in System.Dim.Generic_Mks.
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
37
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
38 generic
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
39 package System.Dim.Generic_Mks.Generic_Other_Prefixes is
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
40
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
41 -- SI prefixes for Meter
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
42
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
43 pragma Warnings (Off);
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
44 -- Turn off the all the dimension warnings
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
45
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
46 ym : constant Length := 1.0E-24; -- yocto
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
47 zm : constant Length := 1.0E-21; -- zepto
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
48 am : constant Length := 1.0E-18; -- atto
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
49 fm : constant Length := 1.0E-15; -- femto
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
50 pm : constant Length := 1.0E-12; -- pico
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
51 nm : constant Length := 1.0E-09; -- nano
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
52 Gm : constant Length := 1.0E+09; -- giga
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
53 Tm : constant Length := 1.0E+12; -- tera
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
54 Pem : constant Length := 1.0E+15; -- peta
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
55 Em : constant Length := 1.0E+18; -- exa
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
56 Zem : constant Length := 1.0E+21; -- zetta
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
57 Yom : constant Length := 1.0E+24; -- yotta
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
58
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
59 -- SI prefixes for Kilogram
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
60
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
61 yg : constant Mass := 1.0E-27; -- yocto
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
62 zg : constant Mass := 1.0E-24; -- zepto
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
63 ag : constant Mass := 1.0E-21; -- atto
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
64 fg : constant Mass := 1.0E-18; -- femto
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
65 pg : constant Mass := 1.0E-15; -- pico
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
66 ng : constant Mass := 1.0E-12; -- nano
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
67 Gg : constant Mass := 1.0E+06; -- giga
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
68 Tg : constant Mass := 1.0E+09; -- tera
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
69 Peg : constant Mass := 1.0E+13; -- peta
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
70 Eg : constant Mass := 1.0E+15; -- exa
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
71 Zeg : constant Mass := 1.0E+18; -- zetta
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
72 Yog : constant Mass := 1.0E+21; -- yotta
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
73
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
74 -- SI prefixes for Second
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
75
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
76 ys : constant Time := 1.0E-24; -- yocto
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
77 zs : constant Time := 1.0E-21; -- zepto
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
78 as : constant Time := 1.0E-18; -- atto
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
79 fs : constant Time := 1.0E-15; -- femto
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
80 ps : constant Time := 1.0E-12; -- pico
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
81 ns : constant Time := 1.0E-09; -- nano
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
82 Gs : constant Time := 1.0E+09; -- giga
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
83 Ts : constant Time := 1.0E+12; -- tera
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
84 Pes : constant Time := 1.0E+15; -- peta
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
85 Es : constant Time := 1.0E+18; -- exa
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
86 Zes : constant Time := 1.0E+21; -- zetta
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
87 Yos : constant Time := 1.0E+24; -- yotta
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
88
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
89 -- SI prefixes for Ampere
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
90
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
91 yA : constant Electric_Current := 1.0E-24; -- yocto
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
92 zA : constant Electric_Current := 1.0E-21; -- zepto
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
93 aA : constant Electric_Current := 1.0E-18; -- atto
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
94 fA : constant Electric_Current := 1.0E-15; -- femto
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
95 nA : constant Electric_Current := 1.0E-09; -- nano
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
96 uA : constant Electric_Current := 1.0E-06; -- micro (u)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
97 GA : constant Electric_Current := 1.0E+09; -- giga
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
98 TA : constant Electric_Current := 1.0E+12; -- tera
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
99 PeA : constant Electric_Current := 1.0E+15; -- peta
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
100 EA : constant Electric_Current := 1.0E+18; -- exa
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
101 ZeA : constant Electric_Current := 1.0E+21; -- zetta
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
102 YoA : constant Electric_Current := 1.0E+24; -- yotta
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
103
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
104 -- SI prefixes for Kelvin
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
105
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
106 yK : constant Thermodynamic_Temperature := 1.0E-24; -- yocto
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
107 zK : constant Thermodynamic_Temperature := 1.0E-21; -- zepto
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
108 aK : constant Thermodynamic_Temperature := 1.0E-18; -- atto
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
109 fK : constant Thermodynamic_Temperature := 1.0E-15; -- femto
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
110 pK : constant Thermodynamic_Temperature := 1.0E-12; -- pico
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
111 nK : constant Thermodynamic_Temperature := 1.0E-09; -- nano
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
112 uK : constant Thermodynamic_Temperature := 1.0E-06; -- micro (u)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
113 mK : constant Thermodynamic_Temperature := 1.0E-03; -- milli
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
114 cK : constant Thermodynamic_Temperature := 1.0E-02; -- centi
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
115 dK : constant Thermodynamic_Temperature := 1.0E-01; -- deci
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
116 daK : constant Thermodynamic_Temperature := 1.0E+01; -- deka
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
117 hK : constant Thermodynamic_Temperature := 1.0E+02; -- hecto
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
118 kK : constant Thermodynamic_Temperature := 1.0E+03; -- kilo
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
119 MeK : constant Thermodynamic_Temperature := 1.0E+06; -- mega
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
120 GK : constant Thermodynamic_Temperature := 1.0E+09; -- giga
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
121 TK : constant Thermodynamic_Temperature := 1.0E+12; -- tera
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
122 PeK : constant Thermodynamic_Temperature := 1.0E+15; -- peta
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
123 EK : constant Thermodynamic_Temperature := 1.0E+18; -- exa
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
124 ZeK : constant Thermodynamic_Temperature := 1.0E+21; -- zetta
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
125 YoK : constant Thermodynamic_Temperature := 1.0E+24; -- yotta
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
126
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
127 -- SI prefixes for Mole
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
128
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
129 ymol : constant Amount_Of_Substance := 1.0E-24; -- yocto
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
130 zmol : constant Amount_Of_Substance := 1.0E-21; -- zepto
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
131 amol : constant Amount_Of_Substance := 1.0E-18; -- atto
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
132 fmol : constant Amount_Of_Substance := 1.0E-15; -- femto
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
133 pmol : constant Amount_Of_Substance := 1.0E-12; -- pico
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
134 nmol : constant Amount_Of_Substance := 1.0E-09; -- nano
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
135 umol : constant Amount_Of_Substance := 1.0E-06; -- micro (u)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
136 mmol : constant Amount_Of_Substance := 1.0E-03; -- milli
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
137 cmol : constant Amount_Of_Substance := 1.0E-02; -- centi
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
138 dmol : constant Amount_Of_Substance := 1.0E-01; -- deci
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
139 damol : constant Amount_Of_Substance := 1.0E+01; -- deka
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
140 hmol : constant Amount_Of_Substance := 1.0E+02; -- hecto
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
141 kmol : constant Amount_Of_Substance := 1.0E+03; -- kilo
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
142 Memol : constant Amount_Of_Substance := 1.0E+06; -- mega
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
143 Gmol : constant Amount_Of_Substance := 1.0E+09; -- giga
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
144 Tmol : constant Amount_Of_Substance := 1.0E+12; -- tera
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
145 Pemol : constant Amount_Of_Substance := 1.0E+15; -- peta
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
146 Emol : constant Amount_Of_Substance := 1.0E+18; -- exa
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
147 Zemol : constant Amount_Of_Substance := 1.0E+21; -- zetta
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
148 Yomol : constant Amount_Of_Substance := 1.0E+24; -- yotta
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
149
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
150 -- SI prefixes for Candela
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
151
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
152 ycd : constant Luminous_Intensity := 1.0E-24; -- yocto
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
153 zcd : constant Luminous_Intensity := 1.0E-21; -- zepto
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
154 acd : constant Luminous_Intensity := 1.0E-18; -- atto
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
155 fcd : constant Luminous_Intensity := 1.0E-15; -- femto
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
156 pcd : constant Luminous_Intensity := 1.0E-12; -- pico
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
157 ncd : constant Luminous_Intensity := 1.0E-09; -- nano
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
158 ucd : constant Luminous_Intensity := 1.0E-06; -- micro (u)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
159 mcd : constant Luminous_Intensity := 1.0E-03; -- milli
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
160 ccd : constant Luminous_Intensity := 1.0E-02; -- centi
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
161 dcd : constant Luminous_Intensity := 1.0E-01; -- deci
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
162 dacd : constant Luminous_Intensity := 1.0E+01; -- deka
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
163 hcd : constant Luminous_Intensity := 1.0E+02; -- hecto
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
164 kcd : constant Luminous_Intensity := 1.0E+03; -- kilo
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
165 Mecd : constant Luminous_Intensity := 1.0E+06; -- mega
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
166 Gcd : constant Luminous_Intensity := 1.0E+09; -- giga
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
167 Tcd : constant Luminous_Intensity := 1.0E+12; -- tera
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
168 Pecd : constant Luminous_Intensity := 1.0E+15; -- peta
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
169 Ecd : constant Luminous_Intensity := 1.0E+18; -- exa
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
170 Zecd : constant Luminous_Intensity := 1.0E+21; -- zetta
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
171 Yocd : constant Luminous_Intensity := 1.0E+24; -- yotta
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
172
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
173 pragma Warnings (On);
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
174 end System.Dim.Generic_Mks.Generic_Other_Prefixes;