3 package body Frame_Overflow
is
5 function -- { dg-error "exceeds" }
6 Set_In
(Bitmap
: Bitmap_T
; Bitpos
: Bitpos_Range_T
) return Bitmap_T
8 Result
: Bitmap_T
:= Bitmap
;
10 Result
.Bits
(Bitpos
) := True;
14 function -- { dg-error "exceeds" }
15 Negate
(Bitmap
: Bitmap_T
) return Bitmap_T
19 for E
in Bitpos_Range_T
loop
20 Result
.Bits
(E
) := not Bitmap
.Bits
(E
);