Message ID | 20100614101037.GA8928@adacore.com |
---|---|
State | New |
Headers | show |
Index: exp_prag.adb =================================================================== --- exp_prag.adb (revision 160705) +++ exp_prag.adb (working copy) @@ -269,8 +269,8 @@ -------------------------- procedure Expand_Pragma_Check (N : Node_Id) is - Loc : constant Source_Ptr := Sloc (N); Cond : constant Node_Id := Arg2 (N); + Loc : constant Source_Ptr := Sloc (Cond); Nam : constant Name_Id := Chars (Arg1 (N)); Msg : Node_Id;