1package body Pack22_Pkg is
2
3   package body Bit_Map_Generic is
4
5      function "xor" (L, R : List) return List is
6         Temp : List;
7         for Temp'address use Temp_buffer'address;
8      begin
9         Temp.Bits := L.Bits xor R.Bits;
10         Temp.Counter.Counter := 0;
11         return Temp;
12      end;
13
14   end Bit_Map_Generic;
15
16end Pack22_Pkg;
17