Lines Matching refs:Msg_Length

534       return X.Msg_Length;
625          if Excep.Msg_Length <= Exception_Msg_Max_Length - Size then
626             Excep.Msg (Excep.Msg_Length + 1) := ':';
627             Excep.Msg_Length := Excep.Msg_Length + Size;
634                Excep.Msg (Excep.Msg_Length - Size) :=
648       Excep.Msg_Length       := 0;
650       while To_Ptr (Msg1) (Excep.Msg_Length + 1) /= ASCII.NUL
651         and then Excep.Msg_Length < Exception_Msg_Max_Length
653          Excep.Msg_Length := Excep.Msg_Length + 1;
654          Excep.Msg (Excep.Msg_Length) := To_Ptr (Msg1) (Excep.Msg_Length);
663         and then Excep.Msg_Length + 1 < Exception_Msg_Max_Length
665          Excep.Msg_Length := Excep.Msg_Length + 1;
666          Excep.Msg (Excep.Msg_Length) := ' ';
670            and then Excep.Msg_Length < Exception_Msg_Max_Length
672             Excep.Msg_Length := Excep.Msg_Length + 1;
673             Excep.Msg (Excep.Msg_Length) := To_Ptr (Msg2) (Ptr);
693       Excep.Msg_Length       := Len;