From ad4ba28bb0d6acbd78ca6f2da71d987f6bd17ea6 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Tue, 26 May 2015 12:49:18 +0200 Subject: [multiple changes] 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. From-SVN: r223685 --- gcc/ada/sem_ch8.adb | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'gcc/ada/sem_ch8.adb') diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb index 239fadc..df1eff3 100644 --- a/gcc/ada/sem_ch8.adb +++ b/gcc/ada/sem_ch8.adb @@ -672,7 +672,9 @@ package body Sem_Ch8 is GM : constant Ghost_Mode_Type := Ghost_Mode; New_P : constant Entity_Id := Defining_Entity (N); Old_P : Entity_Id; - Inst : Boolean := False; -- prevent junk warning + + Inst : Boolean := False; + -- Prevent junk warning begin if Name (N) = Error then @@ -2646,7 +2648,7 @@ package body Sem_Ch8 is -- type is class-wide. GM : constant Ghost_Mode_Type := Ghost_Mode; - Inst_Node : Node_Id := Empty; + Inst_Node : Node_Id := Empty; New_S : Entity_Id; -- Start of processing for Analyze_Subprogram_Renaming -- cgit v1.1