1package body Equal6_Types is 2 3 function "=" (L, R : in Mail_Box_Data_T) return Boolean is 4 use type Bits_T; 5 begin 6 Equal1_Called := True; 7 return L.Message (1) = R.Message (1); 8 end "="; 9 10 function "=" (L, R : in To_Evc_Optional_Packet_List_T) return Boolean is 11 begin 12 Equal2_Called := True; 13 return L.List (1) = R.List (1); 14 end "="; 15end Equal6_Types; 16