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