1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
package body Binary is
function "=" (Left, Right : T) return Boolean is
begin
return Natural (Left) = Natural (Right);
end "=";
function "<=" (Left, Right : T) return Boolean is
begin
return Natural (Left) <= Natural (Right);
end "<=";
function ">=" (Left, Right : T) return Boolean is
begin
return Natural (Left) >= Natural (Right);
end ">=";
function "<" (Left, Right : T) return Boolean is
begin
return Natural (Left) < Natural (Right);
end "<";
function ">" (Left, Right : T) return Boolean is
begin
return Natural (Left) > Natural (Right);
end ">";
end Binary;
|
