From 811c6a85c4e29f55dc408dcf6f5dff08c5a4f999 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Fri, 10 Jul 2009 15:18:49 +0200 Subject: [multiple changes] 2009-07-10 Thomas Quinot * exp_ch7.adb: Update comments. 2009-07-10 Arnaud Charlet * exp_ch13.adb (Expand_N_Record_Representation_Clause): Ignore mod clause if -gnatI is set instead of crashing. 2009-07-10 Ed Schonberg * sem_ch11.adb (Same_Expression): Null is always equal to itself. Additional work to remove redundant successive raise statements, in this case access checks. 2009-07-10 Vincent Celier * make.adb (Compile): Always create a deep copy of the mapping file argument (-gnatem=...) as it may be deallocate/reallocate by Normalize_Arguments. 2009-07-10 Javier Miranda * einfo.adb (Directly_Designated_Type): Add assertion. * sem_res.adb (Check_Fully_Declared_Prefix): Add missing check on access types before using attribute Directly_Designated_Type. 2009-07-10 Emmanuel Briot * prj.ads: Minor typo fix 2009-07-10 Ed Schonberg * sem_ch6.adb (Add_Extra_Formal): Protected operations do no need special treatment. * exp_ch6.adb (Expand_Protected_Subprogram_Call): If rewritten subprogram is a function call, resolve properly, to ensure that extra actuals are added as needed. From-SVN: r149474 --- gcc/ada/sem_ch11.adb | 3 +++ 1 file changed, 3 insertions(+) (limited to 'gcc/ada/sem_ch11.adb') diff --git a/gcc/ada/sem_ch11.adb b/gcc/ada/sem_ch11.adb index 73c966c..d54c6f8 100644 --- a/gcc/ada/sem_ch11.adb +++ b/gcc/ada/sem_ch11.adb @@ -585,6 +585,9 @@ package body Sem_Ch11 is return Same_Expression (Left_Opnd (C1), Left_Opnd (C2)) and then Same_Expression (Right_Opnd (C1), Right_Opnd (C2)); + elsif Nkind (C1) = N_Null then + return True; + else return False; end if; -- cgit v1.1