Searched defs:Expand_Pragma_Assert (Results 1 – 2 of 2) sorted by relevance
64 procedure Expand_Pragma_Assert (N : Node_Id); subprogspec196 procedure Expand_Pragma_Assert (N : Node_Id) is subprogram197 Loc : constant Source_Ptr := Sloc (N);198 Cond : constant Node_Id := Expression (Arg1 (N));199 Msg : String_Id;