1 package body Equal6_Types
is
3 function "=" (L
, R
: in Mail_Box_Data_T
) return Boolean is
7 return L
.Message
(1) = R
.Message
(1);
10 function "=" (L
, R
: in To_Evc_Optional_Packet_List_T
) return Boolean is
12 Equal2_Called
:= True;
13 return L
.List
(1) = R
.List
(1);