|
package VSSL.Conversions with Pure is
|
|
|
|
subtype Radix_Type is Integer range 2 .. 36;
|
|
|
|
function Multiply_by_Power (
|
|
A : Integer;
|
|
R : Integer; N : Integer)
|
|
return Integer is (if N >= 0 then A * R**N else A / R**(-N));
|
|
-- used by conversion subprograms
|
|
|
|
end VSSL.Conversions;
|