Lines Matching refs:Lbit
430 Lbit : constant Uint := Static_Integer (Last_Bit (CC)); constant
435 if Lbit >= Max_Machine_Scalar_Size then
440 if Fbit = 0 and then (Lbit + 1) mod SSU = 0 then
467 Error_Msg_Uint_1 := Lbit + 1;
473 if (Lbit + 1) mod SSU /= 0 then
6921 Lbit : Uint; variable
7103 Lbit := Static_Integer (Last_Bit (CC));
7107 and then Lbit /= No_Uint
7118 elsif Lbit < Fbit - 1 then
7231 Lbit := Lbit + UI_From_Int (SSU) * Posit;
7234 and then RM_Size (Rectype) <= Lbit
7242 Set_Esize (Comp, 1 + (Lbit - Fbit));
7261 if Hbit < Lbit then
7262 Hbit := Lbit;
7279 Set_Esize (Ocomp, 1 + (Lbit - Fbit));
10026 Lbit : Uint; variable
10178 Lbit := Fbit + Esize (Comp) - 1;
10287 Max_Bit_So_Far := Lbit;
10292 and then RM_Size (Rectype) <= Lbit
10318 if Hbit < Lbit then
10319 Hbit := Lbit;
10397 OC_Lbit (OC_Count) := Lbit;