From 194d6f3fc91c5642cb2dd9e93379af66d5e71e0c Mon Sep 17 00:00:00 2001 From: Justin Squirek Date: Wed, 22 Jun 2016 10:42:46 +0000 Subject: sem_ch8.adb (Push_Scope): Add a check for when the scope table is empty to assign the global variable... 2016-06-22 Justin Squirek * sem_ch8.adb (Push_Scope): Add a check for when the scope table is empty to assign the global variable Configuration_Component_Alignment. * sem.adb (Do_Analyze): Add Configuration_Component_Alignment to be assigned when the environment is cleaned instead of the default. * sem.ads Add a global variable Configuration_Component_Alignment to store the value given by pragma Component_Alignment in the context of a configuration file. * sem_prag.adb (Analyze_Pragma): Correct the case for Component_Alignment so that the pragma is verified and add comments to explain how it is applied to the scope stack. 2016-06-22 Justin Squirek * sprint.adb (Sprint_Node_Actual): Add check in the case of an N_Object_Declaration when evaluating an expression to properly ignore errors. From-SVN: r237694 --- gcc/ada/sem.adb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'gcc/ada/sem.adb') diff --git a/gcc/ada/sem.adb b/gcc/ada/sem.adb index 3cd0730..ea5f474 100644 --- a/gcc/ada/sem.adb +++ b/gcc/ada/sem.adb @@ -1355,7 +1355,8 @@ package body Sem is Outer_Generic_Scope := Empty; Scope_Suppress := Suppress_Options; Scope_Stack.Table - (Scope_Stack.Last).Component_Alignment_Default := Calign_Default; + (Scope_Stack.Last).Component_Alignment_Default := + Configuration_Component_Alignment; Scope_Stack.Table (Scope_Stack.Last).Is_Active_Stack_Base := True; -- cgit v1.1