Lines Matching defs:Build_Elementary_Input_Call
448 function Build_Elementary_Input_Call (N : Node_Id) return Node_Id is subprogram
449 Loc : constant Source_Ptr := Sloc (N);
450 P_Type : constant Entity_Id := Entity (Prefix (N));
451 U_Type : constant Entity_Id := Underlying_Type (P_Type);
452 Rt_Type : constant Entity_Id := Root_Type (U_Type);
453 FST : constant Entity_Id := First_Subtype (U_Type);
454 Strm : constant Node_Id := First (Expressions (N));
455 Targ : constant Node_Id := Next (Strm);
456 P_Size : constant Uint := Get_Stream_Size (FST);
457 Res : Node_Id;
458 Lib_RE : RE_Id;