Lines Matching refs:Lbit
451 Lbit : constant Uint := Static_Integer (Last_Bit (CC)); constant
456 if Lbit >= Max_Machine_Scalar_Size then
461 if Fbit = 0 and then (Lbit + 1) mod SSU = 0 then
488 Error_Msg_Uint_1 := Lbit + 1;
494 if (Lbit + 1) mod SSU /= 0 then
8190 Lbit : Uint; variable
8346 Lbit := Static_Integer (Last_Bit (CC));
8350 and then Lbit /= No_Uint
8361 elsif Lbit < Fbit - 1 then
8474 Lbit := Lbit + UI_From_Int (SSU) * Posit;
8477 and then RM_Size (Rectype) <= Lbit
8480 Error_Msg_Uint_2 := Lbit + 1;
8487 Set_Esize (Comp, 1 + (Lbit - Fbit));
8521 Set_Esize (Ocomp, 1 + (Lbit - Fbit));
11410 Lbit : Uint := No_Uint; variable
11622 Lbit := Fbit + Esize (Comp) - 1;
11953 Max_Bit_So_Far := Lbit;
11958 and then RM_Size (Rectype) <= Lbit
11961 Error_Msg_Uint_2 := Lbit + 1;
11986 if Hbit < Lbit then
11987 Hbit := Lbit;
12065 OC_Lbit (OC_Count) := Lbit;