From 8d8194a6d88ed4e451d57a190dbba6ec1f4517a2 Mon Sep 17 00:00:00 2001 From: charlet Date: Tue, 26 May 2015 10:49:18 +0000 Subject: 2015-05-26 Robert Dewar * exp_prag.adb, sem_ch3.adb, sem_ch5.adb, exp_ch11.adb, ghost.adb, exp_ch6.adb, sem_ch6.adb, sem_ch8.adb, sem_ch11.adb, sem_ch13.adb, exp_ch3.adb: Minor reformatting. 2015-05-26 Bob Duff * treepr.adb: Minor improvement to debugging routines (pp, pn) robustness. Rearrange the code so passing a nonexistent Node_Id prints "No such node" rather than crashing, and causing gdb to generate confusing messages. 2015-05-26 Gary Dismukes * sem_util.adb: Minor typo fix. 2015-05-26 Yannick Moy * sem_aux.adb (Subprogram_Body_Entity): Deal with subprogram stubs. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@223685 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/exp_prag.adb | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'gcc/ada/exp_prag.adb') diff --git a/gcc/ada/exp_prag.adb b/gcc/ada/exp_prag.adb index fab3facddc3..d47e31c7cec 100644 --- a/gcc/ada/exp_prag.adb +++ b/gcc/ada/exp_prag.adb @@ -294,8 +294,8 @@ package body Exp_Prag is procedure Expand_Pragma_Check (N : Node_Id) is GM : constant Ghost_Mode_Type := Ghost_Mode; - Cond : constant Node_Id := Arg2 (N); - Nam : constant Name_Id := Chars (Arg1 (N)); + Cond : constant Node_Id := Arg2 (N); + Nam : constant Name_Id := Chars (Arg1 (N)); Msg : Node_Id; Loc : constant Source_Ptr := Sloc (First_Node (Cond)); @@ -1580,8 +1580,9 @@ package body Exp_Prag is -- end loop; procedure Expand_Pragma_Loop_Variant (N : Node_Id) is - Last_Var : constant Node_Id := Last (Pragma_Argument_Associations (N)); Loc : constant Source_Ptr := Sloc (N); + Last_Var : constant Node_Id := + Last (Pragma_Argument_Associations (N)); Curr_Assign : List_Id := No_List; Flag_Id : Entity_Id := Empty; -- cgit v1.2.1