1 ------------------------------------------------------------------------------
3 -- GNAT COMPILER COMPONENTS --
5 -- I N T E R F A C E S --
10 -- This specification is adapted from the Ada Reference Manual for use with --
11 -- GNAT. In accordance with the copyright of that document, you can freely --
12 -- copy and modify this specification, provided that if you redistribute a --
13 -- modified version, any changes that you have made are clearly indicated. --
15 ------------------------------------------------------------------------------
17 -- This is the OpenVMS version of this package which adds Float_Representation
18 -- pragmas to the IEEE floating point types to enusre they remain IEEE in
19 -- thse presence of a VAX_Float Float_Representatin configuration pragma.
21 -- It assumes integer sizes of 8, 16, 32 and 64 are available, and that IEEE
22 -- floating-point formats are available.
25 pragma Pure
(Interfaces
);
27 type Integer_8
is range -2 ** 7 .. 2 ** 7 - 1;
28 for Integer_8
'Size use 8;
30 type Integer_16
is range -2 ** 15 .. 2 ** 15 - 1;
31 for Integer_16
'Size use 16;
33 type Integer_32
is range -2 ** 31 .. 2 ** 31 - 1;
34 for Integer_32
'Size use 32;
36 type Integer_64
is range -2 ** 63 .. 2 ** 63 - 1;
37 for Integer_64
'Size use 64;
39 type Unsigned_8
is mod 2 ** 8;
40 for Unsigned_8
'Size use 8;
42 type Unsigned_16
is mod 2 ** 16;
43 for Unsigned_16
'Size use 16;
45 type Unsigned_32
is mod 2 ** 32;
46 for Unsigned_32
'Size use 32;
48 type Unsigned_64
is mod 2 ** 64;
49 for Unsigned_64
'Size use 64;
61 function Shift_Right_Arithmetic
86 function Shift_Right_Arithmetic
102 (Value
: Unsigned_32
;
107 (Value
: Unsigned_32
;
111 function Shift_Right_Arithmetic
112 (Value
: Unsigned_32
;
117 (Value
: Unsigned_32
;
121 function Rotate_Right
122 (Value
: Unsigned_32
;
127 (Value
: Unsigned_64
;
132 (Value
: Unsigned_64
;
136 function Shift_Right_Arithmetic
137 (Value
: Unsigned_64
;
142 (Value
: Unsigned_64
;
146 function Rotate_Right
147 (Value
: Unsigned_64
;
151 pragma Import
(Intrinsic
, Shift_Left
);
152 pragma Import
(Intrinsic
, Shift_Right
);
153 pragma Import
(Intrinsic
, Shift_Right_Arithmetic
);
154 pragma Import
(Intrinsic
, Rotate_Left
);
155 pragma Import
(Intrinsic
, Rotate_Right
);
157 -- Floating point types. We use the digits value to define the IEEE
158 -- forms, otherwise a configuration pragma specifying VAX float can
159 -- default the digits to an illegal value for IEEE.
160 -- Note: it is harmless, and explicitly permitted, to include additional
161 -- types in interfaces, so it is not wrong to have IEEE_Extended_Float
162 -- defined even if the extended format is not available.
164 type IEEE_Float_32
is digits 6;
165 pragma Float_Representation
(IEEE_Float
, IEEE_Float_32
);
167 type IEEE_Float_64
is digits 15;
168 pragma Float_Representation
(IEEE_Float
, IEEE_Float_64
);
170 type IEEE_Extended_Float
is digits 15;
171 pragma Float_Representation
(IEEE_Float
, IEEE_Extended_Float
);