3 package body Frame_Overflow is
5 function -- { dg-error "too large" }
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 "too large" }
15 Negate (Bitmap : Bitmap_T) return Bitmap_T
19 for E in Bitpos_Range_T loop
20 Result.Bits (E) := not Bitmap.Bits (E);