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