Lines Matching refs:Lbit
469 Lbit : constant Uint := Static_Integer (Last_Bit (CC)); constant
474 if Lbit >= Max_Machine_Scalar_Size then
479 if Fbit = 0 and then (Lbit + 1) mod SSU = 0 then
506 Error_Msg_Uint_1 := Lbit + 1;
512 if (Lbit + 1) mod SSU /= 0 then
8507 Lbit : Uint; variable
8663 Lbit := Static_Integer (Last_Bit (CC));
8667 and then Present (Lbit)
8678 elsif Lbit < Fbit - 1 then
8791 Lbit := Lbit + UI_From_Int (SSU) * Posit;
8794 and then RM_Size (Rectype) <= Lbit
8797 Error_Msg_Uint_2 := Lbit + 1;
8804 Set_Esize (Comp, 1 + (Lbit - Fbit));
8835 Set_Esize (Ocomp, 1 + (Lbit - Fbit));
11805 Lbit : Uint := No_Uint; variable
12017 Lbit := Fbit + Esize (Comp) - 1;
12355 Max_Bit_So_Far := Lbit;
12360 and then RM_Size (Rectype) <= Lbit
12363 Error_Msg_Uint_2 := Lbit + 1;
12388 if Hbit < Lbit then
12389 Hbit := Lbit;
12467 OC_Lbit (OC_Count) := Lbit;